Mega Code Archive
Calışan exe ve dll listesi
<![CDATA[
uses TlHelp32;
//Oluşan listeden Killtask prosedürü yardımıyla çalışmasını istemediğiniz programı
//otomatik olarak sonlandırabilirsiniz.
//Killtask adlı prosedürden türettiğim exe_listesi prosedürü
procedure exe_listesi(S : TStrings);
var
devam: BOOL;
fyakhandle: THandle;
islem32: TProcessEntry32;
begin
fyakhandle := CreateToolhelp32Snapshot
(TH32CS_SNAPPROCESS, 0);
islem32.dwSize := Sizeof(islem32);
devam := Process32First(fyakhandle,
islem32);
while integer(devam) <> 0 do
begin
//Listeye çalışan exe dosyaları ekleniyor.
S.Add(islem32.szExeFile);
devam := Process32Next(fyakhandle,
islem32);
end;
CloseHandle(fyakhandle);
end;
Kullanımı: exe_listesi(ListBox1.Items);
procedure DLL_Listesi(S : TStrings);//çalışan 32 bit DLL programları listeleniyor.
var
Module32 : TModuleEntry32;
SS : THandle;
Next : Bool;
begin
Module32.dwSize := SizeOf(TModuleEntry32);
SS := CreateToolHelp32Snapshot(TH32CS_SNAPMODULE, 0);
If Module32First(SS, Module32) then
begin
S.Add(Module32.szExePath);
Repeat
Next := Module32Next(SS, Module32);
If Next Then S.Add(Module32.szExePath);
Until Not Next;
end;
CloseHandle(SS);
end;
Kullanımı: DLL_Listesi(ListBox1.Items);
]]>