Wie ein Kommandozeilenprogramm ausführen?

[Kinimod8]

Hallo,

ich habe ein Kommandozeilenprogramm, dass .dbf-Dateien int .txt-Dateien umwandelt. Der Aufruf unter Windows ist ganz einfach (Start-Auführen-"cmd"-Programm mit Parametern ausführen), aber wie kann ich das Programm aus Delphi heraus aufrufen?

Die Syntax für mein Kommandozeilenprogramm ist

Code:

DBTAB xyz.dbf xyz.txt

Ich hoffe, ihr könnt mir helfen!
Dominik

PS: Mit diesem Code habe ich es schon probiert, geht aber nicht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  c, p: array[0..800] of Char;
begin
  StrPCopy(c, 'C:\DBTAB.exe');
  StrPCopy(p, 'DBTAB test.dbf test.txt');
  ShellExecute(Application.Handle, 'open', c, p, nil, SW_NORMAL);
end;

[droppi]

also wenn du es wie ein programm in cmd ausführen willst gib einfach ein:

Delphi-Quellcode:

windows.WinExec(pchar('DBTAB xyz.dbf xyz.txt'),0);

wenn das nicht funktioniert musst du es nochmal mit shellexecute ausprobieren.
aber ich denk mal das müsste funzen

[jim_raynor]

Schonmal versucht bei ShellExecute den Returncode auszuwerten? Dort findest du in der Regel nützliche Hinweise, warum es nicht geklappt hat. Vielleicht musst du aber auch das Verzeichniss für die Ein- und Ausgabedateien angeben oder das entsprechende Verzeichnis als Arbeitsverzeichnis (Parameter der jetzt bei dir auf nil steht) angeben.

[himitsu]

lass mal das 'open' weg ... manchmal macht es mehr Probleme, als es nützt.

Delphi-Quellcode:

ShellExecute(Application.Handle, nil, PChar('C:\DBTAB.exe'), PChar('xyz.dbf xyz.txt'), nil, SW_NORMAL);

und dann hast du das Programm "DBTAB" auch nochmals im Parameter aufgerufen ;)

Ach ja droppi ... WinExec ... schmeiß das Ding weg, sowas sollte nicht mehr verwendet werden ... das sollte sogar in der OH drin stehen :warn:

[Kinimod8]

Zitat:

Zitat von droppi

also wenn du es wie ein programm in cmd ausführen willst gib einfach ein:

Delphi-Quellcode:

windows.WinExec(pchar('DBTAB xyz.dbf xyz.txt'),0);

wenn das nicht funktioniert musst du es nochmal mit shellexecute ausprobieren.
aber ich denk mal das müsste funzen

Damit funktioniert es tatsächlich, aber die OH sagt auch, die Funktion wäre veraltet. Aber mit himitsus Methode funktioniert es dann wieder nicht.

[himitsu]

und?

Delphi-Quellcode:

ShellExecute(0, nil, PChar('C:\DBTAB.exe'), PChar('"xyz.dbf" "xyz.txt"'), PChar('C:\'), SW_NORMAL);

Programm, Parameter und Arbeitsverzeichnis?
Und wenn ein Parameter Leerzeichen enthält, dann muß er natürlich in " eingrschlossen werden, aber das ist ja in der DOS-Box nicht anders ^^

[Kinimod8]

Im Anhang mal ein Screenshot, wie ich das Programm aufrufe.

[himitsu]

Das sollte dann so aussehn.

Delphi-Quellcode:

ShellExecute(0, nil, PChar('DBTAB'), PChar('test.dbf test.txt'), PChar('C:\Dominik\DBF2HTML'), SW_NORMAL);

[Kinimod8]

Achso, jetzt habe ich's kapiert, danke! :thumb: