Процессы.....

← →
Михайлов Антон (2003-02-03 20:05) [0]

Как узнать список процессов поддающихся уничтожению
И как уничтожить вообще процесс(не системный)...

← →
SeF © (2003-02-04 02:03) [1]

The OpenProcess function returns a handle of an existing process object.

HANDLE OpenProcess(

DWORD dwDesiredAccess, // access flag
BOOL bInheritHandle, // handle inheritance flag
DWORD dwProcessId // process identifier
);

Parameters

dwDesiredAccess

Specifies the access to the process object. For operating systems that support security checking, this access is checked against any security descriptor for the target process. Any combination of the following access flags can be specified in addition to the STANDARD_RIGHTS_REQUIRED access flags:

<....>

PROCESS_TERMINATE Enables using the process handle in the TerminateProcess function to terminate the process.

<....>

bInheritHandle

Specifies whether the returned handle can be inherited by a new process created by the current process. If TRUE, the handle is inheritable.

dwProcessId

Specifies the process identifier of the process to open.

Return Values

If the function succeeds, the return value is an open handle of the specified process.
If the function fails, the return value is NULL. To get extended error information, call GetLastError.

← →
SeF © (2003-02-04 14:52) [2]

< И как уничтожить вообще процесс(не системный)...>

TerminateProcess(..)

← →
Михайлов Антон (2003-02-06 11:04) [3]

Что-то я мало что понял, а точнее ничего не понял :(
можно примерчик того как получить список "убиваемых" процессов
в ListBox

← →
Михайлов Антон (2003-02-08 18:03) [4]

Мастера, имейте совесть, помогите бедному ламеру дописать свою прогу :)
где примерчик взять... в факах искал... что-то ненашол
ХХХХЕЕЕЕЕЛЛЛЛЛЛПППППП

открываешь все процессы OpenProcess(PROCESS_TERMINATE, false, PID). Если не 0, убить его хватит силенок. Список процессов получишь так (под 2k):

ProcessList: TStringList; {создай его} procedure GetProcessList; var handler :thandle; data :TProcessEntry32; function return_name:string; var i:byte; names:string; begin names:=""; i:=0; while data.szExeFile[i]<>"" do begin names:=names+data.szExeFile[i]; inc(i); end; return_name:=names; end; begin ProcessList.Clear; handler:=createtoolhelp32snapshot(TH32CS_SNAPALL,0); FillChar(data,SizeOf(TProcessEntry32),0); data.dwsize:=SizeOf(TProcessEntry32); if Process32First(handler,data) then begin ProcessList.Add(return_name); while Process32next(handler,data) do ProcessList.Add(return_name); end else ProcessList.Add("Error getting Process List"); closeHandle(handler); end;

зы у переменной data кажется есть поле th32processid, ставь его в OpenProcess. Пиши, аднака :)

← →
X-stasy` (2003-02-08 23:54) [6]

На delphibase.endimus.ru выложен юнит
поубевать можно всё чё хочешь...
под ХР точно пашет под 98 у мя были проблемы..
если чё пиши на мыло

Процессы..... Найти похожие ветки