Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Çalışan EXE ve DLL listesi  (Okunma sayısı 2029 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı CMNSOFT

  • Delphi 2 Level 4
  • ****
  • İleti: 82
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.cmnsoft.com
Çalışan EXE ve DLL listesi
« : 13 Ekim 2005 14:25:18 »
Uses satırına TlHelp32 unitini ekleyin...



Kod:  (Unknown Language)
  1. Procedure EXE_Listesi(S: TStrings);
  2.  
  3. Var
  4.  
  5.    devam: BOOL;
  6.  
  7.    fyakhandle: THandle;
  8.  
  9.    islem32: TProcessEntry32;
  10.  
  11.  
  12.  
  13. Begin
  14.  
  15. fyakhandle := CreateToolhelp32Snapshot
  16.  
  17.                      (TH32CS_SNAPPROCESS, 0);
  18.  
  19. islem32.dwSize := Sizeof(islem32);
  20.  
  21. devam := Process32First(fyakhandle,
  22.  
  23.                                  islem32);
  24.  
  25.   while integer&#40;devam&#41; <> 0 do
  26.  
  27.   begin
  28.  
  29.     //Listeye &ccedil;al&#305;&#351;an exe dosyalar&#305; ekleniyor.
  30.  
  31.     S.Add&#40;islem32.szExeFile&#41;;
  32.  
  33.     devam &#58;= Process32Next&#40;fyakhandle,
  34.  
  35.                                   islem32&#41;;
  36.  
  37.   end;
  38.  
  39.   CloseHandle&#40;fyakhandle&#41;;
  40.  
  41. end;




Kullanım Şekli



Kod:  (Unknown Language)
  1. exe_listesi&#40;ListBox1.Items&#41;;








Çalışan 32 bit DLL programları listeleniyor.



Kod:  (Unknown Language)
  1. Procedure DLL_Listesi&#40;S&#58; TStrings&#41;;
  2.  
  3. var
  4.  
  5.    Module32&#58; TModuleEntry32;
  6.  
  7.    SS      &#58; THandle;
  8.  
  9.    Next    &#58; Bool;
  10.  
  11.  
  12.  
  13. begin
  14.  
  15. Module32.dwSize&#58;= SizeOf&#40;TModuleEntry32&#41;;
  16.  
  17. SS&#58;= CreateToolHelp32Snapshot&#40;TH32CS_SNAPMODULE, 0&#41;;
  18.  
  19. If Module32First&#40;SS, Module32&#41; then
  20.  
  21.   begin
  22.  
  23.    S.Add&#40;Module32.szExePath&#41;;
  24.  
  25.    Repeat
  26.  
  27.     Next&#58;= Module32Next&#40;SS, Module32&#41;;
  28.  
  29.     If Next Then S.Add&#40;Module32.szExePath&#41;;
  30.  
  31.    Until Not Next;
  32.  
  33.   end;
  34.  
  35.   CloseHandle&#40;SS&#41;;
  36.  
  37. end;






Kullanım Şekli



Kod:  (Unknown Language)
  1. DLL_Listesi&#40;ListBox1.Items&#41;;
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::

Çevrimdışı zaferpanch

  • Delphi 1 Level 1
  • *
  • İleti: 4
  • Rep: +0/-0
  • Cinsiyet: Bay
Ynt: Çalışan EXE ve DLL listesi
« Yanıtla #1 : 04 Nisan 2006 20:06:34 »
kısa ve güzel programcıklar
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »