Shell execute

[DomPerle]

Hallo zusammen,

was muß ich tun, damit dieser Befehl richtig ausgeführt wird.

prog := copy(Form1.Programm,1,4); //Programm hat den Inhalt '15010000' also Prog = 1501
Ziel := 'C:\hdh\Transfer';

shellExecute(0, nil, 'cmd.exe', '/k copy prog ziel', nil, SW_SHOW); //Ergebnis: Datei nicht gefunden

shellExecute(0, nil, 'cmd.exe', '/k copy C:\hdh\1501 C:\hdh\Transfer', nil, SW_SHOW); //OK
Grüß domperle

[Dalai]

Du musst den Pfad richtig zusammenbauen. Frage: Was kommt raus, wenn du 'C:\hdh\Transfer' und '1501' verkettest? Antwort: 'C:\hdh\Transfer1501'. Du willst aber offenbar etwas anderes, und außerdem willst du nicht 'prog ziel' als literale Strings haben. Die Funktion Format ist übrigens sehr hilfreich beim formatierten Verketten von Variablen.

Unabhängig davon lassen sich mit Delphi auch ohne Hilfe der CMD Dateien kopieren (z.B. CopyFile(Ex)).

Grüße
Dalai

[DomPerle]

Du hast natürlich recht, der Code muß so aussehen.

Prog := 'C:\hdh\' + copy(Form1.Programm,1,4); //Programm hat den Inhalt 15010000 Prog = C:\hdh\1501
Ziel := 'C:\hdh\Transfer';

shellExecute(0, nil, 'cmd.exe', '/k copy prog ziel', nil, SW_SHOW);

shellExecute(0, nil, 'cmd.exe', '/k copy C:\hdh\1501 C:\hdh\Transfer', nil, SW_SHOW);

Quelle und Ziel des copy_Befehls sollen Variable sein, die ich durch Zuweisungen ändern kann.

[Dalai]

Meine Variante wäre diese, auch wenn das mit Sicherheit noch verbesserungsfähig ist (aber unter den gegebenen Bedingungen wohl brauchbar):

Delphi-Quellcode:

const cZiel = 'c:\hdh';

Prog := IncludeTrailingPathDelimiter(cZiel) + Copy(Form1.Programm,1,4);
Ziel := IncludeTrailingPathDelimiter(cZiel) + 'Transfer\';
ShellExecute(0, nil, 'cmd.exe', Format('/k copy "%s" "%s"', Prog, Ziel), nil, SW_SHOW);

Grüße
Dalai

[DomPerle]

Jetzt hast Du mich kalt erwischt:
Meine Delphi-Kenntnisse reichen nicht aus,um Deinen Vorschlag korrekt einbauen zu können.
Hier nochmal der jetzige Stand und die Fehlermeldung:

procedure TForm3.Button3Click(Sender: TObject);
const cZiel = 'c:\hdh';
var
prog : String;
Ziel : String;

begin
Prog := IncludeTrailingPathDelimiter(cZiel) + Copy(Form1.Programm,1,4);
Ziel := IncludeTrailingPathDelimiter(cZiel) + 'Transfer\';
ShellExecute(0, nil, 'cmd.exe', Format('/k copy "%s" "%s"', Prog, Ziel), nil, SW_SHOW);

MyShowMessage('Programmpaket im Verzeichnis ''C:\hdh\Transfer'' gespeichert', 12);
End;
Fehlermeldung:
[Fehler] Konvert_Unit3.pas(116): Undefinierter Bezeichner: 'IncludeTrailingPathDelimiter'

[jaenicke]

Welche Delphiversion hast du denn? In der aktuellen (auch kostenlos erhältlichen) Version liegt die Funktion in der Unit System.SysUtils, die dann oben hinter uses in der Liste stehen muss.

Kompilieren wird das aber trotzdem nicht, denn ShellExecute erwartet einen PChar, keinen String, und hat auch andere Parameter als Dalai geschrieben hat (man beachte die eckigen Klammern):
ShellExecute(0, nil, 'cmd.exe', PChar(Format('/k copy "%s" "%s"', [Prog, Ziel])), nil, SW_SHOW);