Delphi-Quellcode:
procedure WriteBatch;
var
F:Textfile;
begin
Rewrite(F);
AssignFile(F);
Writeln(F, '@echo off');
Writeln(F, 'Hier die Befehle zum Kopieren der Datei rein...');
Writeln(F, 'echo.');
Closefile(F);
end;
Sollte so PI mal Daumen funktionieren.
Hab es aber nicht getestet!
Die Funktion einfach beim Start ausführen (OnCreate) und dann geht es eigentlich
edit: Quelltext geändert! (thx to steve)!