Mehrere Dateien im Eigenschaften Dialog

[blablab]

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

[Hawkeye219]

Hallo Simon,

die Schweizer haben da eine Lösung.

Gruß Hawkeye

[blablab]

Vielen Dank!