VPF::Завершение системного процесса

anwe

Дата 18.2.2008, 00:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 748
Регистрация: 2.9.2006

Репутация: 4
Всего: 23

Держи полный код:

Код


unit CreateTool;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
    TPROCESSENTRY32 = record
    dwSize:DWORD;
    cntUsage:DWORD;
    th32ProcessID:DWORD;
    th32DefaultHeapID:DWORD;
    th32ModuleID:DWORD;
    cntThreads:DWORD;
    th32ParentProcessID:DWORD;
    pcPriClassBase:DWORD;
    dwFlags:DWORD;
    szExeFile:array [0..MAX_PATH] of char;
    end;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  function CreateToolhelp32Snapshot(dwFlags, th32ProcessID: DWORD): dword;stdcall; external 'kernel32.dll';
  function Process32First(hSnapshot:THandle; lppe:Pointer): Boolean; stdcall external 'kernel32.dll';
  function Process32Next(hSnapshot:THandle; lppe:Pointer): Boolean; stdcall external 'kernel32.dll';
const
TH32CS_SNAPPROCESS=2;

implementation

{$R *.dfm}

function ProcessTerminate(dwPID:Cardinal):Boolean;
var
hToken:THandle;
SeDebugNameValue:Int64;
tkp:TOKEN_PRIVILEGES;
ReturnLength:Cardinal;
hProcess:THandle;
begin
Result:=false;
if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES
or TOKEN_QUERY, hToken ) then
   exit;
if not LookupPrivilegeValue( nil, 'SeDebugPrivilege', SeDebugNameValue )
then begin
  CloseHandle(hToken);
  exit; 
end;
tkp.PrivilegeCount:= 1;
tkp.Privileges[0].Luid := SeDebugNameValue;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken,false,tkp,SizeOf(tkp),tkp,ReturnLength);
if GetLastError()<> ERROR_SUCCESS  then exit;
hProcess := OpenProcess(PROCESS_TERMINATE, FALSE, dwPID);
if hProcess =0 then exit;
  if not TerminateProcess(hProcess, DWORD(-1))
   then exit;
CloseHandle( hProcess );
tkp.Privileges[0].Attributes := 0;
AdjustTokenPrivileges(hToken, FALSE, tkp, SizeOf(tkp), tkp, ReturnLength);
if GetLastError() <>  ERROR_SUCCESS
then exit;
Result:=true;
end;

function GetProcessId(pName: PChar): dword;
var
 Snap: dword;
 Process: TPROCESSENTRY32;
begin
  Result := 0;
  Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if Snap <> INVALID_HANDLE_VALUE then
     begin
      Process.dwSize := SizeOf(TPROCESSENTRY32);
      if Process32First(Snap, @Process) then
         repeat
          if lstrcmpi(Process.szExeFile, pName) = 0 then
             begin
              Result := Process.th32ProcessID;
              CloseHandle(Snap);
              ShowMessage(IntToStr(Result));
              ProcessTerminate(Result);
              Exit;
             end;
         until not Process32Next(Snap, @Process);
      Result := 0;
      CloseHandle(Snap);
     end;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
GetProcessId('notepad.exe');
end;

end.

Пропиши под кнопку и не забудь запустить блокнот :smile

COOLHack

Дата 18.2.2008, 01:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 281
Регистрация: 8.2.2008

Репутация: -1
Всего: 0

ПАСИБ, РАБОТАЕТ! РЕСПЕКТ ТЕ! Еслиб мог, + бы ткнул, но у меня ещё сообщений мало, как только смогу ставить +, те обязательно поставлю!
РЕСПЕКТ!

Это сообщение отредактировал(а) COOLHack - 18.2.2008, 01:04

anwe

Дата 18.2.2008, 01:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 748
Регистрация: 2.9.2006

Репутация: 4
Всего: 23

Ну раз пишешь, значит накрыл действительно блокнот, а не winlogon. smile

Rennigth

Дата 18.2.2008, 02:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 8
Всего: 76

Цитата(Rennigth @ 17.2.2008, 23:03

)

COOLHack, может книжка не та?

Цитата(COOLHack @ 17.2.2008, 23:18

)

Может хватит оффтопить и по теме поможете?!
З.Ы. Если такой умный, довай ссыль на "ТУ" книжку

Ты прости конечно за сарказм, просто подобие этой темы создаються с очень большой переодичностью, и если хоть чуть-чуть неполениться и воспользоваться поиском, хоть на данном форуме или на каком другом, да хоть в гугле(яндексе), можно найти все что тебе было нужно. Просто иногда немножко раздражает когда люди просят уже что-то готовое, и просто копи пастят незадумываясь даже как это работает.

А на счет книжки... вот здесь очень хорошая подборка:
http://rouse.drkb.ru/books.php

Особенно обрати внимание на Рихтера. Очень хорошо и доступно. Маст рид так сказать.

зы: Удачи в нашем не легком деле smile

Добавлено через 1 минуту и 25 секунд

Цитата(COOLHack @ 18.2.2008, 01:03

)

ПАСИБ, РАБОТАЕТ! РЕСПЕКТ ТЕ! Еслиб мог, + бы ткнул, но у меня ещё сообщений мало, как только смогу ставить +, те обязательно поставлю!
РЕСПЕКТ!

я поставлю за тебя

--------------------

(* Honesta mors turpi vita potior *)

COOLHack

Дата 18.2.2008, 09:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 281
Регистрация: 8.2.2008

Репутация: -1
Всего: 0

Ты думаешь я не искал в поисковиках? Ты ошибаешся!
А за кножку спс

MAD_Kuzia

Дата 20.2.2008, 17:10 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 30.5.2007

Репутация: нет
Всего: нет

Цитата(anwe @ 18.2.2008, 00:39

)

TPROCESSENTRY32 - это одна из структур винды, описывающая процессы после применения снимка. Ее структура дана в MSDN. В type'е пропиши ее как запись. Функции CreateToolhelp32Snapshot, Process32First, Process32Next не описаны в модулях Делфи.

Описаны, так-же как и структуры, см. \Source\Rtl\Win\TlHelp32.pas

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »