Hallo!
Ich benutze das Eigenschaften-Dialog, wie man es vom Windows-Explorer kennt. Allerding kann man mit Dem Windows-Explorer auch die Eigenschaften von mehreren Dateien anzeigen lassen, dann addiert er zb die Größe etc. Allerdings bekomme ich das nicht hin.
So zeige ich das Eigenschaften-Dialog an:
Delphi-Quellcode:
procedure TForm1.Eigenschaften1Click(Sender: TObject);
var Info: TShellExecuteInfo;
str: string;
begin
str := GetDateien;
if str <> '' then begin
with Info do begin
cbSize := SizeOf(Info);
fMask := SEE_MASK_NOCLOSEPROCESS or
SEE_MASK_INVOKEIDLIST or
SEE_MASK_FLAG_NO_UI;
wnd := Form1.Handle;
lpVerb := 'properties';
lpFile := pChar(str);
lpDirectory := nil;
nShow := 0;
hInstApp := 0;
lpIDList := nil;
end;
ShellExecuteEx(@Info);
end;
end;
Und in der Hilfe steht, man könne bei lpFile statt einer Datei einfach mehrere angeben. Allerdings hab ich das versucht und egal wie ich die Dateien trenne, mit einem Leerzeichen, Komma, Semicolon... ich kriegs einfach nicht hin dass es funktioniert.
Könnt ihr mir weiterhelfen?
Danke schonmal!
Gruß
Simon