Как программе удалить саму себя

Если вы решили удалить Windows, сделайте это медленно с удовольствием, побайтно...

uses
  Windows, SysUtils;

procedure DeleteMe;
var
  BatchFile: TextFile;
  BatchFileName: string;
  ProcessInfo: TProcessInformation;
  StartUpInfo: TStartupInfo;
begin
  { создаём бат-файл в директории приложения }
  BatchFileName := ExtractFilePath(ParamStr(0)) + '$$336699.bat';

  { открываем и записываем в файл }
  AssignFile(BatchFile, BatchFileName);
  Rewrite(BatchFile);

  Writeln(BatchFile, ':try');
  Writeln(BatchFile, 'del "' + ParamStr(0) + '"');
  Writeln(BatchFile,
  'if exist "' + ParamStr(0) + '"' + ' goto try');
  Writeln(BatchFile, 'del "' + BatchFileName + '"');
  CloseFile(BatchFile);

  FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);
  StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartUpInfo.wShowWindow := SW_HIDE;

  if CreateProcess(nil, PChar(BatchFileName), nil, nil,
  False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,
  ProcessInfo) then
  begin
    CloseHandle(ProcessInfo.hThread);
    CloseHandle(ProcessInfo.hProcess);
  end;
end;

А вот тот же способ, но немного модифицированный:

program delete2;

uses
  SysUtils, windows;

var
  BatchFile: TextFile;
  BatchFileName: string;
  TM: Cardinal;
  TempMem: PChar;

begin
  BatchFileName:=ExtractFilePath(ParamStr(0))+ '$$336699.bat';


  AssignFile(BatchFile, BatchFileName);
  Rewrite(BatchFile);

  Writeln(BatchFile,':try');
  Writeln(BatchFile,'del "' + ParamStr(0) + '"');
  Writeln(BatchFile,'if exist "' + ParamStr(0) + '" goto try');
  Writeln(BatchFile,'del "' + BatchFileName + '"');
  CloseFile(BatchFile);

  TM:=70;
  GetMem (TempMem,TM);
  GetShortPathName (pchar(BatchFileName), TempMem, TM);
  BatchFileName:=TempMem;
  FreeMem(TempMem);

  winexec(Pchar(BatchFileName),sw_hide);

  halt;
end.

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 308 • TDictionary Custom Sort 6 355 • Fast Watermark Sources 6 144 • 3D Designer 9 086 • Sik Screen Capture 6 469 • Patch Maker 6 886 • Айболит (remote control) 6 863 • ListBox Drag & Drop 5 741 • Доска для игры Реверси 96 655 • Графические эффекты 7 084 • Рисование по маске 6 389 • Перетаскивание изображений 5 257 • Canvas Drawing 5 628 • Рисование Луны 5 328 • Поворот изображения 4 880 • Рисование стержней 3 461 • Paint on Shape 2 721 • Генератор кроссвордов 3 598 • Головоломка Paletto 2 890 • Теорема Монжа об окружностях 3 697 • Пазл Numbrix 2 431 • Заборы и коммивояжеры 3 111 • Игра HIP 2 071 • Игра Go (Го) 1 999 • Симулятор лифта 2 358 • Программа укладки плитки 2 059 • Генератор лабиринта 2 517 • Проверка числового ввода 2 203 • HEX View 2 532 • Физический маятник 2 147