Текущий архив: 2003.04.03;
Скачать: CL | DM;
ВнизПроцессы..... Найти похожие ветки
← →
Михайлов Антон (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]Мастера, имейте совесть, помогите бедному ламеру дописать свою прогу :)
где примерчик взять... в факах искал... что-то ненашол
ХХХХЕЕЕЕЕЛЛЛЛЛЛПППППП
← →
bak (2003-02-08 18:52) [5]открываешь все процессы 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 у мя были проблемы..
если чё пиши на мыло
Страницы: 1 вся ветка
Текущий архив: 2003.04.03;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.124 c