Opit za programirane

Zdrawejte, mnogo mi hareswa tozi klub.
Ii na wyprosa bi li mi nqkoj otgoworil :

Kak buh mogil izpolzwajki Delphi3-5 da polucha informaciq za w moqta programa
za aktiwnite proceci(prilogeniq)startirani na moq komputyr.

e i sled towa po golemiq gydel e:
Kak bih mogyl da gi zatworq chrez programata si na Delpchi/nesto podobno kato Ctrl+F4/
Ako nqkoj naistina mi dade weren otgowor ste ima solidna pocherka.


Predwaritelno blagodarq.

Za hvashtane na vsi4ki procesi se izpolzva ToolHelp32(unit TlHelp32) funkciite

var
PE: TProcessEntry32;
Snap: THandle;
begin
Snap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
try
if Process32First(Snap, PE) then
repeat
PE.th32ProcessID - process ID , shte ti trqbva za TerminateProcess
PE.szExeFile - imeto na startiranoto exe
until not Process32Next(Snap, PE);
finally
CloseHandle(Snap);
end;
end;


Chakam pocherpkata
s shiroko otvorena usta

P.S. Siguren sum che shte imash oshte vuprosi. Ako beshe pisal za tova v Programisti shteshe da poluchish mnogo hubavi otgovori.

by Wise Guy