ShellExecute mehrere Dateien als Parameter übergeben

[Bjoerk]

Delphi-Quellcode:

// Habe ich in meiner Sammlung, verwende ich aber nicht.
// Probier' mal, ob's geht.

// Für ParamStr die einzelnen Parameter vermutlich in "QuoteChars".
// Ob das überhaupt geht, hängt vom auzuführenden Programm ab.
// Es gibt Programme, die das nicht mögen, die Delphi IDE/ BDS zum Beispiel.

procedure ExecuteWinFile(const FileName, ParamStr: string);
var
  sei: TShellExecuteInfo;
begin
  FillChar(sei, SizeOf(sei), 0);
  sei.cbSize:= SizeOf(sei);
  sei.lpFile:= PChar(FileName);
  sei.lpParameters:= PChar(ParamStr);
  // sei.lpVerb:= 'runas';
  sei.lpDirectory:= PChar(ExtractFilePath(FileName));
  sei.Wnd:= Application.Handle;
  sei.nShow:= SW_SHOWNORMAL;
  if not ShellExecuteEx (@sei) then RaiseLastOsError;
end;