Самоуничтожение

[Albenous]

Программа удаляет себя, если введен неверный ключ.
Дамы и господа программисты, Ваши предложения по реализации?

[Alex21]

Поиск по форуму уже обсуждалось:
http://programmersforum.ru/showthread.php?t=5154

[Albenous]

Sorry, не нашел поиском. Модераторы, делитните топик.

[)Игнат(]

Можно написать дельную прогу, чтоб неверным ключем она похеривалась, оставляя следы в реестре, чтоб юзер не переустановил

[Alex21]

Сообщение от )Игнат(

Можно написать дельную прогу, чтоб неверным ключем она похеривалась, оставляя следы в реестре, чтоб юзер не переустановил

Можно. Работа с реестром кучу раз рассматривалась. Поиск по форуму.

[XerSon]

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

Программа удаляет себя, если введен неверный ключ.
Дамы и господа программисты, Ваши предложения по реализации?

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

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;