Разное
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - База Знаний: Удалить свой же exe-шник
procedure Udalenie;
var
F: Textfile;
CurDir: String;
begin
CurDir:=ExtractFileName(Application.ExeName);
AssignFile(F,Changefileext(Paramstr (0),'.bat'));
Rewrite(F);
Writeln(F,':1');В В //создаём метку 1:
Writeln(F, 'Erase ',CurDir); //удалить ехе
Writeln(F, 'If exist ', CurDir, ' Goto 1');// если файл не удалён перейти на 1:
Writeln(F,'del %0');// удалить батник
CloseFile(F);
WinExec(PChar(ChangeFileExt(Paramstr(0),'.bat')),SW_HIDE); // запускаем батник
Halt;
end;
