Kommandozeilenprogramm aus Delphi heraus starten

[benst]

Hi,

ich möchte ein anderes Programm (Kommandozeilen-Programm - ImageMagick) aus Delphi heraus starten:
Beispiel: convert 01.jpg 02.jpg all.pdf
Dazu einige Fragen:
- Wie mache ich das am besten? Soll ich dafür ShellExecute verwenden?
- In der Eingabeauforderung von Windowskann man maximal ca. 255 Zeichen eingeben (so weit ich weiß), wie kann ich das umgehen, wenn ich mehr Parameter übergeben möchte?

Gruß
Ben

[marabu]

Hi Ben,

kannst ruhig ShellExecute() oder seinen jüngeren Bruder ShellExecuteEx() verwenden. Irgendwelche Limits des Tastaturpuffers müssen dich dabei nicht kümmern. Die CommandLine (Parameter) darf 32K einnehmen, aber Vorsicht: unter Win9X ist das Limit 1K. Viele Konsol-Programme unterstützen einen aus CP/M-Zeiten bekannten Trick, bei dem eine Liste von Dateinamen in einer Textdatei hinterlegt wird und dem Programm mit dem Schalter @ übergeben wird. CONVERT scheint diese Tugend nicht zu besitzen.

Grüße vom marabu

[benst]

Mein Versuch klappt nicht:
Ich möchte das gleiche bewirken, als wenn ich in der Eingabeaufforderung
convert e:\a.jpg e:\a.pdf schreibe.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
OperationAlsPChar, DateiAlsPChar, ParameterAlsPChar, VerzeichnisAlsPChar : Array [0..79] of Char;
begin
(OperationAlsPChar,'open'), StrPCopy(DateiAlsPChar,'convert'),StrPCopy(ParameterAlsPChar,'e:\a.jpg e:\a.pdf'), StrPCopy(VerzeichnisAlsPChar,'e:'),0);
end;

Was mache ich falsch?
Danke
Gruß
Ben

[Waldteufel]

Hi. :hi:

Zitat:

Zitat von benst

Was mache ich falsch?

Wo rufst du in dem Code überhaupt ShellExecute auf? :gruebel:

So würd' ich's machen:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  ShellExecute(Handle, 'open', 'P:\fad\Zur\convert.exe', 'e:\a.jpg e:\a.pdf', 'e:', SW_SHOW);
end;

PS: Statt SW_SHOW kannst du auch SW_HIDE einsetzen, dann wird's nicht angezeigt.

[benst]

Sorry, ja natürlich... Habe das auch so. Aber beim Kopieren des Codes hierher ist es verloren gegangen. :)
Das Problem ist, dass das "Dos-Fenster" sofort wieder zu ist und ich keine Meldung lesen kann.
Wie kann ich das verhindern?
Gruß
Ben

[Waldteufel]

Zitat:

Zitat von benst

Wie kann ich das verhindern?

So:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  ShellExecute(Handle, 'open', 'cmd.exe', '/C "P:\fad\Zur\convert.exe e:\a.jpg e:\a.pdf && pause > nul"', 'e:', SW_SHOW);
end;

[benst]

Ich habe das Programm jetzt zum Laufen bekommen.
Ich musste den vollständig Programm-Pfad angeben. Aber warum? In der Eingabeaufforderung funktioniert es auch aus jedem Verzeichnis heraus, weil entsprechende Umgebungsvariablen gesetzt sind. ??

Das Fenster wird jedoch leider immer noch geschlossen - trotzdeiner Erweiterung.
Gruß
Ben

[Martin K]

Zitat:

Zitat von benst

Ich habe das Programm jetzt zum Laufen bekommen.
Ich musste den vollständig Programm-Pfad angeben. Aber warum? In der Eingabeaufforderung funktioniert es auch aus jedem Verzeichnis heraus, weil entsprechende Umgebungsvariablen gesetzt sind. ??

Dann sollte es eigentlich auch so gehen - oder tut es das nicht?
Bei 'cmd.exe' ist ja auch nicht der volle Pfad angegeben.

[benst]

Funst alles prima.
Ich musste anstelle von /C /K schreiben.
Mit convert ohne Pfadangabe gibt es Probleme wenn ich mein Programm aus der Delphientwicklungsumgebung heraus starte, wenn ich es alleine starte funst es.
Vielen Dank
Ben