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 ; var devam: BOOL; fyakhandle: THandle; islem32: TProcessEntry32; begin fyakhandle := CreateToolhelp32Snapshot (TH32CS_SNAPPROCESS, 0); islem32. dwSize := Sizeof(islem32); devam := Process32First(fyakhandle, islem32); while integer <> 0 do begin //Listeye çalışan exe dosyaları ekleniyor. S. Add(islem32. szExeFile); devam := Process32Next(fyakhandle, islem32); end; CloseHandle ; end; Kullanımı: exe_listesi(ListBox1. Items); procedure DLL_Listesi ;//ç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 ; end; Kullanımı: DLL_Listesi(ListBox1. Items); Arkadaşlar uses kısmına TlHelp32 ekleyip daha sonra projenize bir adet listbox atıyorsunuz daha sonra bu yukardaki procedure leri gene implementation bölümğne yazıp istediğiniz bir yordam içinden çalıştırıyorsunuz. Çalışan exe ve dll leri görüyorsunuz

bilgilerin ve emeklerin için tahnkss

rica ederim arkadaşım hepsi sizin için. burada daha çok trojan yazımında işe yarayacak bilgiler vermeye çalışıyorum. ama istenirse her konuda da yardımcı olurum. Saygılar