[Помогите!] Самоудаления

[pavel!]

Привет всем, опять проблемы
Я не могу самоудалить программу ...
пробую так:
DeleteFile('project.exe');
А если удалять какой-либо другой файл, то удаляет

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

[warl0ck]

нельзя удалить пока программа запущена

[victor20011]

form1.Close;
DeleteFile('project.exe');

[pavel!]

Цитата: Сообщение от victor20011 form1.clouse; DeleteFile('project.exe');

Неа, не работает

[VeTaL_UA]

Цитата: Сообщение от victor20011 form1.clouse;

Цитата: Сообщение от victor20011 DeleteFile('project.exe');

Хух, поржал.

Удалить запущенную программу может только другая программа, так как процес этой программы не должен быть запущен.

[victor20011]

а ну да))) форма то закрываеться и перестает выполнять функции)))

[simsonbart1]

Пишеш такую процедуру

procedure SelfDelete;
var
  szComspec, szParams: String;
  si: TStartupInfo;
  pi: TProcessInformation;
begin
  SetLength(szComspec, MAX_PATH);

  if GetEnvironmentVariable('COMSPEC', PChar(szComspec), MAX_PATH)<>0 then
  begin
    szParams := Format('/c del "%s" >> nul', [ParamStr(0)]);
    ZeroMemory(@si, SizeOf(si));
    si.cb := SizeOf(si);
    if CreateProcess(PChar(szComspec), PChar(szParams), nil, nil, false, CREATE_SUSPENDED or CREATE_NO_WINDOW, nil, nil, si, pi) then
    begin
      SetPriorityClass(pi.hProcess, IDLE_PRIORITY_CLASS);
      SetThreadPriority(pi.hThread, THREAD_PRIORITY_IDLE);
      SetPriorityClass(GetCurrentProcess(), HIGH_PRIORITY_CLASS);
      SetThreadPriority(GetCurrentThread(), THREAD_PRIORITY_HIGHEST);
      ResumeThread(pi.hThread);
      Halt;
    end;
  end;
end;

ставиш кнопку с названием удали меня 2 раза кликаеш по ней и пишеш SelfDelete;
Ну и все и прога удалит себя!

Уважаемый Модератор VeTaL_UA только не посчитай это оффтопом

[pavel!]

Цитата: Сообщение от VeTaL_UA Хух, поржал. Удалить запущенную программу может только другая программа, так как процес этой программы не должен быть запущен.

Цитата: form1.clouse;

Я слышал что можно как то через бантик удалить?) просто мне демку надо сделать, что б запустил 1 раз, а на 2 хренас два и програ удалилася

[Роспотребнадзор]

Может быть просто сделать чекер обновлений для программы, и что бы он сам потом старые версии удалял. Как вот в этой статье http://www.zhyk.ru/forum/showthread.php?t=348895

[VeTaL_UA]

Цитата: Сообщение от simsonbart1 Уважаемый Модератор VeTaL_UA только не посчитай это оффтопом

Раздел свободного общения не модерируется, удаляются только спам и мат. Сарказм неуместен.

[<=SlAvA-96=>]

Создай bat файл он сможет удалить и программу и сам себя.

var
f:TextFile;
begin
assingnFile(f,ExtractFileDir(ParamStr(0))+'\Uninst all.bat');
writeln(f,'@Echo OFF');
writeln(f,'sleep.exe 1000');
writeln(f,'del project.exe');
writeln(f,'del %0');
ShellExecute(GetForegroundWindow(), 'open', PChar(ExtractFileDir(ParamStr(0)) + '\Uninstall.bat'), PChar(ParamStr(0)), PChar(ExtractFileDir(ParamStr(0))), SW_HiDE);
form1.close;

точно не знаю но может заработать

[simsonbart1]

Толку от этого ?
Я в сообщении #7 уже привел пример самоудаления программы зачем искать более тяжелые и геморойные пути удаления ?

[<=SlAvA-96=>]

тут удаление через bat файл