Egenskaber for et dokument!

Tags:    delphi

Hvordan kan jeg åbne en fils egenskaber i koder :D



Shafh
Shafh@stofanet.dk
Theis F. Hinz

Behandl nørder godt.
Du ender sandsynligvis
med at arbejde for en

Motto af Bill Gates



1 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma
Sorter efter stemmer Sorter efter dato
uses
shellapi;

// Thanks to Peter Below (TeamB) for this code
procedure PropertiesDialog(FileName: string);
var
sei: TShellExecuteInfo;
begin
FillChar(sei, SizeOf(sei), 0);
sei.cbSize := SizeOf(sei);
sei.lpFile := PChar(FileName);
sei.lpVerb := 'properties';
sei.fMask := SEE_MASK_INVOKEIDLIST;
ShellExecuteEx(@sei);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
if Opendialog1.Execute then
PropertiesDialog(Opendialog1.FileName);
end;

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------



t