RV: editing file properties from within delphi

_____

De: Ariel Ceballos [mailto: arielceb%40invel.com.ar">arielcebinvel.com.ar]
Enviado el: Jueves, 21 de Diciembre de 2006 12:32
Para: %27delphi-en%40yahoogroups.com">'delphi-enyahoogroups.com'
Asunto: RE: [delphi-en] editing file properties from within delphi

You can do it with dsofile.dll (you can download for free from Microsoft
site)

Install the files, then import the dll from Delphi, here is a snipet

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ComObj, ActiveX, ExtCtrls, FileCtrl,

Buttons, DSOFile_TLB;

type

TFMain = class(TForm)

……

private

valor :string;

od: _OleDocumentProperties;

sp: SummaryProperties;

cp: CustomProperty;

public

{ Public declarations }

end;

procedure TFMain.btSetpropClick(Sender: TObject);

begin

//open the file

od.Open(FileListBox1.filename, true, dsoOptionDefault);

if od.IsOleFile then

begin

sp := od.SummaryProperties;

showmessage(sp.Title);

//edit the property

sp.Title := ‘my title’;

od.save;

od.Close(False);

end;

you can even use your custom properties

od.CustomProperties.Get_Count

cp := od.CustomProperties.Item[0];

if cp.Type_ = dsoPropertyTypeString then

// you can’t edit custom properties, you must delete and add the item again

cp.Remove;

od.CustomProperties.Add(WideString('Aplicación'), EdAplicacion.text);

od.save;

od.Close(False);

_____

De: delphi-en%40yahoogroups.com">delphi-enyahoogroups.com [mailto: delphi-en%40yahoogroups.com">delphi-enyahoogroups.com] En nombre
de Andries Bos
Enviado el: Jueves, 21 de Diciembre de 2006 04:38
Para: delphi advanced group
Asunto: [delphi-en] editing file properties from within delphi

Within Windows one could read and edit file properties. These properties
include title, author, comments, revision number etc.

Does anyone know how the edit/ set these fields. i would like to use the
comment field.

thanks in advance

andries

__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail. <http://mail.yahoo.com> yahoo.com

[Non-text portions of this message have been removed]

[Non-text portions of this message have been removed]

Messages in this topic (1) Reply (via web post) | Start a new topic

.