Очень нада убить процесс в памяти ПОМОГИТЕ ПОЗАЛУСТА

Здравствуйте Plastique, Вы писали:

P>Очень нада убить процесс в памяти ПОМОГИТЕ ПОЗАЛУСТА

Для получения списка —

CreateToolHelp32Snapshot,
Process32First,
Process32Next

А для убийства — TerminateProcess

Здравствуйте Максимов Андрей, Вы писали:

МА>Здравствуйте Plastique, Вы писали:

P>>Очень нада убить процесс в памяти ПОМОГИТЕ ПОЗАЛУСТА

МА>Для получения списка -

МА>CreateToolHelp32Snapshot,
МА>Process32First,
МА>Process32Next

МА>А для убийства — TerminateProcess

Совсем забыл — перед TerminateProcess надо сделать OpenProcess, чтобы по ID получить Handle

{----------------------------------------------------------------------------------
Для получения списка процессов необходимо использование модуля tlhelp32 (uses tlhelp32).
LoadProcList — процедура загрузки списка процессов в TStrings, например в TListBox.Items.
TermProc — процедура уничтожения процесса по его ID, который можно получить используя LoadProcList.
----------------------------------------------------------------------------------}

Procedure LoadProcList ( List : TStrings );
Var
Proc : Thandle;
ProcTag : TagProcessentry32;
begin
Proc := CreateToolHelp32Snapshot( TH32CS_SNAPPROCESS, 0 );
ProcTag.dwSize := SizeOf ( ProcTag );
If Process32first ( Proc,ProcTag ) then
Repeat
List.Add ( ProcTag.ЧТО_ТЕБЕ_НАДО );
Until not Process32Next ( Proc, ProcTag )
End;

Procedure TermProc ( ProcID : Cardinal );
var
Proc : THandle;
begin
Proc := openprocess (PROCESS_TERMINATE, False, ProcID );
TerminateProcess ( Proc, 0 );
end;

//Пример:

Begin
LoadProcList ( ProcList.Items );
TermProc ( GetCurrentProcessId );
End;

+----------------------+
| С уважением, Static. |
| static@ecard.ru |
+----------------------+