ShellExcecute Formulierung

[Delphi.Narium]

Wem passt das nicht?

Dem? -> polon.exe

Oder dem? -> ShellExecute

Bei ShellExecute würd' mich das eher wundern.
Gibt es denn OutPath?

Delphi-Quellcode:

WorkFile := '"C:\Users\Geldis\Projekt 7\PIC\polon.exe"';
OutPath := 'C:\Users\Geldis\Projekt 7\OUT\';
if not ForceDirectories(OutPath) then
begin
  Fehlermeldung, dass der Ausgabepfad nicht erstellt werden kann.
end else
begin
  InPath := 'C:\Users\Geldis\Projekt 7\IN\';
  if not ForceDirectories(InPath) then
  begin
    Fehlermeldung, dass der Eingabepfad nicht erstellt werden kann.
  end else
    InFile := Format('"%s%s"',[InPath,'sample.jpg']);
    if not FileExists(InFile) then
    begin
      Fehlermeldung, dass es das InFile nicht gibt.
    end else
    begin
      // Wenn polon.exe ein Problem mit dem abschließenden \ hat so:
      Params := Format('%s -w 256 -h 256 -ft tga -o "%s"',[InFile,ExcludeTrailingPathDelimiter(OutPath)]);
      // ansonsten so:
      Params := Format('%s -w 256 -h 256 -ft tga -o "%s"',[InFile,OutPath]);
      if ShellExecute(0, 'open', PChar(WorkFile), PChar(Params), nil, SW_HIDE) <= 32 then
      begin
        Fehlerbehandlung, Fehlermeldung ...
      end; 
    end; 
  end;
end;

(ungetestet hingedaddelt)