Как удалить exe если он запущен?

[TwiX]

Никак. Надо сначала закрыть.

[p51x]

Где-то видел очень хитрый и не простой способ... Но подробностей не помню и на неделе точно не вспомню.

[jone]

// финкция самоудаления экзешника с физ носителя! Кулл!

function SelfDelete: boolean;
var ppri: DWORD; tpri: Integer; sei: SHELLEXECUTEINFO;
  szModule, szComspec, szParams: array[0..MAX_PATH - 1] of char;
begin
  Result := false;
  if ((GetModuleFileName(0, szModule, MAX_PATH) <> 0) and
    (GetShortPathName(szModule, szModule, MAX_PATH) <> 0) and
    (GetEnvironmentVariable('COMSPEC', szComspec, MAX_PATH) <> 0)) then
  begin
    lstrcpy(szParams, '/c del ');
    lstrcat(szParams, szModule);
    lstrcat(szParams, ' > nul');

    sei.cbSize := sizeof(sei);
    sei.Wnd := 0;
    sei.lpVerb := 'Open';
    sei.lpFile := szComspec;
    sei.lpParameters := szParams;
    sei.lpDirectory := nil;
    sei.nShow := SW_HIDE;
    sei.fMask := SEE_MASK_NOCLOSEPROCESS;

    ppri := GetPriorityClass(GetCurrentProcess);
    tpri := GetThreadPriority(GetCurrentThread);

    SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
    SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
    try
      if ShellExecuteEx(@sei) then
      begin
        SetPriorityClass(sei.hProcess, IDLE_PRIORITY_CLASS);
        SetProcessPriorityBoost(sei.hProcess, TRUE);

        SHChangeNotify(SHCNE_DELETE, SHCNF_PATH, @szModule, nil);

        result := true;
      end;
    finally
      SetPriorityClass(GetCurrentProcess, ppri);
      SetThreadPriority(GetCurrentThread, tpri)
    end
  end
end;

Пример использования:

if not SelfDelete then else halt;

потипу такова можна удалить только не себя а другую запущеную прогу
?????

[W0LF]

Не понимаю, а чем вас не устроил Килл процесс + Делейт файл... ?

[jone]

ненужно мне завершать прогу!!!! мне нужна врубить и удалить чтобы юзеру глаза не мазолила
плизз подскажите может ring0 паможет там вроде была функция удаления если я неошибаюсь !?

[Gorychev]

Вам русским языком говорят и показывают как это можно сделать. Что не понятно? Перечитайте пост №7

[W0LF]

1:
Как удалить запущеный exe фаил ????
2:
ненужно мне завершать прогу!!!! мне нужна врубить и удалить чтобы юзеру глаза не мазолила

А как это вы хотите удалить прогу не завершая её?

...врубить и удалить...

Может вы хотите запустить программу и скрыть её от глаз пользователя?
Объясните толком, что вам нужно... !

[psycho-coder]

Запустите программу и переместите ее куда нибудь подальше или переименуйте в неприметное название.

[bitSoft]

My Example ,Working 100%

procedure TForm1.Button1Click(Sender: TObject);
begin
 with TStringList.Create do
 begin
   Add('taskkill /f /im '+ExtractFileName(Application.exename));
   Add('del '+Application.ExeName);
   Add('del mycmd.bat');
   SaveToFile('mycmd.bat');
   WinExec('mycmd.bat',SW_HIDE);
   Free;
 end;
end;

[psycho-coder]

Сообщение от bitSoft

My Example ,Working 100%

procedure TForm1.Button1Click(Sender: TObject);
begin
 with TStringList.Create do
 begin
   Add('taskkill /f /im '+ExtractFileName(Application.exename));
   Add('del '+Application.ExeName);
   Add('del mycmd.bat');
   SaveToFile('mycmd.bat');
   WinExec('mycmd.bat',SW_HIDE);
   Free;
 end;
end;

ненужно мне завершать прогу!!!! мне нужна врубить и удалить чтобы юзеру глаза не мазолила
плизз подскажите может ring0 паможет там вроде была функция удаления если я неошибаюсь !?

Are you seeing this it or you can't read?
Ah yes (how i could forget?) we are is on Russian forum!!!
Так, что хорош выкобениваться!