var
F: TextFile;
Temp, AppName: string;
begin
Temp:= 'delete.bat';
AppName:= ExtractFileName(ParamSTR(0));
AssignFile(F, Temp);
Rewrite(F);
Writeln(F, 'del ' + AppName);
Writeln(F, 'del ' + Temp);
CloseFile(F);
ShellExecute(Application.Handle,'open','Delete.bat',nil,nil,SW_ShowNormal);
Halt;
15 сен 2024