Delete - Di 20.05.03 08:09
Titel: ...den "Datei-Eigenschaften"-Dialog anzeigen?
In den Weiten des WWW fand ich diese Routine. Sie ist nicht von mir, und mein Dank geht daher auch unbekannterweise an den Autoren. Ich wollte sie nur in den FAQ-Bereich einbringen, weil auch oft danach gefragt wird. (Wenn der Autor anwesend ist und seine Arbeit unter seinem Namen veröffentlicht wissen möchte - kein Problem; ich denke, die Mods werden das sicher ändern.)
Hier also die Funktion
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
| uses
ShellAPI;
function ShowFileProperties(const hWndOwner: HWnd;
FileName, 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 := FileName;
lpParameters := Caption;
lpDirectory := Nil;
nShow := 0;
hInstApp := 0;
lpIDList := Nil;
End;
Result := ShellExecuteEx(@Info);
end; |
Anzuwenden etwa
Delphi-Quelltext
1:
2:
3:
| ShowFileProperties(Form1.Handle,
'C:\LastCrap\Test.txt',
'Hallo, Welt!'); |