Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Как получить дату создания файла
   Категория: Файловая система
  Упаковать BD Accuracer
   Категория: Базы данных
  Возвести в степень
   Категория: Математика
  Как удалить не пустой каталог
   Категория: Файловая система
  Шифрование текста по паролю
   Категория: Текст и строки
  Компоненты CoolBar и ControlBar
   Категория: Компоненты
  Распознавание кодировки. Перекодировка.
   Категория: Текст и строки
  Компонент MainMenu
   Категория: Компоненты

диваны для ресторанов фото,Ортопедия и игры для девочек онлайн, в игры онлайн для девочек www.game-fans.ru
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;
  << Вернуться к Содержанию