Prog. eine Batch Datei erstellen lassen.

[The-X]

Delphi-Quellcode:

procedure WriteBatch;
var
F:Textfile;
begin
AssignFile(F,'Kopieren.bat'); //Ohne Dateiname geht hier nix *gg*
Rewrite(F);
Writeln(F, '@echo off');
Writeln(F, 'rem Hier die Befehle zum Kopieren der Datei rein...');
Writeln(F, 'echo.');
Closefile(F);
end;

Man sollte AssignFile auch sagen wie die Datei heissen soll
und Rewrite sollte nach Assignfile ausgeführt werden sonst ==> Fehler!