Siema!
Piszę sobie program do robienia batchy (popularnych .bat'ów) i krótko mówiąc - mam problem :-)
Mianowicie: mam taki sobie kolorowy przycisk co się nazywa "Testuj", i nie wiem jak wygenerować samokasujący się plik .bat, który przed skasowaniem, robi wszystkie operacje, które są zapisane w memo...
krótko:
Po kliknięciu na przycisk "Testuj", program tworzy plik .bat z takimi liniami, jakie są w memo(1), dopisuje do niego linijki samodestrukcyjne (a raczej wywalające bat'a po zakończeniu pracy), uruchamia, a użytkownik cieszy oczy swoją aplikacją (?).
Mam taki pomysł:
procedure RunApp();
var
Child : TForm2;
FName, SName: String;
TF: TextFile;
begin
SName := ParamStr(0);
FName := 'Skrypt.bat';
AssignFile(TF, FName);
Rewrite(TF);
try
Writeln(TF, ':start');
Writeln(TF, Child.Memo1.Text);
Writeln(TF, 'Goto end);
Writeln(TF, ':end');
Writeln(TF, 'del "' + FName + '"'); }
finally
CloseFile(TF);
end;
WinExec(PChar(FName), SW_SHOW);
end;
Ale wyskakuje mi błąd "Naruszenie Praw Dostępu" :-(
Help-Please-Help-Please-Help-Please-Help-Please-Help!
Będę zachwycony, jeśli ktoś mi powie (a najlepiej poda cały kod źródłowy procki RunApp) jak to zrobić :p