1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

[Delphi] Dirt Jumper Killer [1,2,3,5]

Тема в разделе "Исходные коды", создана пользователем ErrorNick, 14 авг 2012.

  1. TopicStarter Overlay
    ErrorNick

    ErrorNick

    Регистрация:
    6 июл 2012
    Сообщения:
    126
    Симпатии:
    55
    Код:
    function GetEnvironmentVariables(const Name: string): string;
    var
    Len: integer;
    begin
    Result := '';
    Len := GetEnvironmentVariable(PChar(Name), nil, 0);
    if Len > 0 then
    begin
    SetLength(Result, Len - 1);
    GetEnvironmentVariable(PChar(Name), PChar(Result), Len);
    end;
    end;
     
    procedure TForm1.btn1Click(Sender: TObject);
    var
    files : TSearchRec;
    Windir: String;
    begin
    Windir:=GetEnvironmentVariables('WINDIR');
    if FindFirst(Windir+'\System32\drivers\*.exe', faAnyFile, files) = 0 then
    begin
    repeat
    repeat
    WinExec(PChar('taskkill /F /IM '+files.Name),SW_HIDE);
    sleep(150);
    DeleteFile(Windir+'\System32\drivers\'+files.Name);
    until FileExists(Windir+'\System32\drivers\'+files.Name)=False;
    until FindNext(files) <> 0;
    FindClose(files);
    end;
     
    • Like Like x 1
    Метки:
  2. _or_75

    _or_75 Гость

    бреед такой, особено если dirt установлен в другой папке
     
    • Like Like x 1
  3. TopicStarter Overlay
    ErrorNick

    ErrorNick

    Регистрация:
    6 июл 2012
    Сообщения:
    126
    Симпатии:
    55
    Стандартные билды и дропаются по стандарту...
     
  4. Iphon321

    Iphon321 Гость

    это для чего?
     
  5. sayrax

    sayrax

    Регистрация:
    1 ноя 2012
    Сообщения:
    163
    Симпатии:
    35
    Для того, что бы ты спросил!
     
  6. Molodoy

    Molodoy Гость

    А 5 дирт уже дропается куда захочет юзер... Для 5 не актуально, а вот для 1,2,3,4 - - работать будет )
     

Поделиться этой страницей

Загрузка...