ShellExecute mehrere Dateien als Parameter übergeben

[Chris.R]

Hallo alle zusammen,

ich hab ein kleines Problem, für das ich bisher keine Lösung gefunden hab.
Und zwar will ich ShellExecute aufrufen und mehrere Dateien auf einmal als Parameter übergeben.

Falls hier irgendjemand eine Idee hat, dann immer her damit...

Ciao Chris

[himitsu]

Das ist wie überall, mit den Parametern, wenn ein Parameter z.B. Leerzeichen enthällt, dann muß er mit " maskiert werden.

Code:

"param 1" param2 "param 3" "param 4"

Also jeweils " davor und dahinter.

[Luckie]

Nimmt denn das Programm überhaupt mehrere Dateien als Parameter an? Wenn nicht, wirst du da nichts machen können.

[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;

[himitsu]

@Bjoerk: Bei dem, was du ShellExecuteEx mitgibst ist nichts besonderes dabei (abgesehn von dem auskommentierten Runas, aber auch das sollte kein Problem darstellen).

Jedenfalls kann man sich die Arbeit auch schwerer machen, als es ein muß,
oder man nimmt hier ganz einfach das kleinere/einfachere ShellExecute.