Dateieigenschaften-Dialog aufrufen

[Benni]

Hallo allerseits,

ich habe folgende Frage: Wie kann ich den Dateieigenschaften-Dialog aufrufen? Nehmen wir mal an, ich habe nur einen Pfad

C:\Test.txt

und will den Eigenschaftendialog dieser Datei, als hätte man im Explorer über die rechten Maustaste die Eigenschaften aufgerufen. Wie geht das?

Vielen Dank!

Ciao

Benjamin Heil

[Uwe Merckens]

Hallo Benjamin,

dieses Problem wurde bereits einmal behandelt. Schau mal hier rein:
http://www.entwickler-forum.de/webx?128@@.ee6dc6d

Gruss
Uw

[Benni]

Hallo Uwe!

Danke für Deinen Hinweis! Ich habe aber zwischenzeitlich eine einfachere Methode gefunden:

function TMainForm.ShowFileProperties(hWndOwner: HWnd; const FileName: String; Caption: PChar): Boolean;

var Info: TShellExecuteInfo;

begin

With Info Do Begin

cbSize := SizeOf(Info);

fMask := SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI;

wnd := hWndOwner;

lpVerb := 'properties';

lpFile := PChar(FileName);

lpParameters := Caption;

lpDirectory := Nil;

nShow := 0;

hInstApp := 0;

lpIDList := Nil;

End;

Result := ShellExecuteEx(@Info);

end;

Aufruf dann z.B. folgendermaßen:
ShowFileProperties(HInstance, 'C:\', PChar('Das steht in der Caption'));
&#10