PHP Forum - Coding Board
Juni 18, 2018, 02:28:46 *
Willkommen Gast. Bitte einloggen oder registrieren.

Einloggen mit Benutzername, Passwort und Sitzungslänge
News:
 
   Übersicht   Hilfe Suche Einloggen Registrieren  
Seiten: [1]
  Drucken  
Autor Thema: [SRC]Prozesse auflisten  (Gelesen 76 mal)
0 Mitglieder und 1 Gast betrachten dieses Thema.
Slayer616
Entwickler Team
Spender
Moderator
Hat das Battle gewonnen
Sr. Member
****
Beiträge: 426


Profil anzeigen E-Mail
« am: Juni 24, 2009, 10:04:09 »

Wurde von mir kurz von VB auf Delphi konvertiert:
Code:

Function ListProcesses():string;
  var
  proc: tprocessentry32;
  snapshot: thandle;
  phandle: thandle;
  ppath:string;
  mylistitem:tlistitem;
begin
  snapshot := CreateToolHelp32SnapShot(TH32CS_SNAPALL,0);
    proc.dwSize := SizeOf(TProcessEntry32);
      try
       Process32First(snapshot, proc);
        repeat
        phandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, proc.th32ProcessID);
        SetLength(ppath, MAX_PATH);
          if (GetModuleFileNameEx(phandle, 0, PChar(ppath), MAX_PATH)) > 0 then begin;
            SetLength(ppath, StrLen(PChar(ppath)));
            end
          else begin
            ppath := 'System';
          end;
          mylistitem := form1.ListView1.Items.Add;
          mylistitem.Caption := proc.szExeFile; //processname

          mylistitem.SubItems.Add(inttostr(proc.th32ProcessID)); //PID
          mylistitem.SubItems.Add(ppath); //Filepath
          mylistitem.SubItems.Add(inttostr(proc.cntThreads)); // Threads
    until not Process32Next(snapshot, proc);
    finally
    CloseHandle(snapshot);
 end;
Gespeichert




Du sagst, du spürst die Ohnmacht, denn der Feind ist ach so stark
Und er will dich niederhalten mit Geschrei durch Bein und Mark
Mit Verboten und Zensur kann er zwar den Kampf erschweren
Doch niemals wird ein Richterspruch den freien Geist bekehren.

Fürchte lieber Deutschlands Untergang als die Reden der Vasallen
Derer, die der Lüge dienen, denn schon bald werden sie fallen.
Seiten: [1]
  Drucken  
 
Gehe zu:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines | New Look by Nolt Prüfe XHTML 1.0 Prüfe CSS