Alle Rechner-Prozesse Anzeigen Lassen

[mz23]

Hallo liebe DP-Gemeinde,

gibt es eine Möglichkeit, "alle" auf einem Rechner laufende Prozesse, Programme
in einem Delphi-Programm in einer Memo-Box auszugeben?

Mit "alle" meine ich nicht nur die, die ich im Task-Manager auch einsehen kann,
das Problem habe ich bereits mit euerer Hilfe gelöst, sondern wirklich alles.

Mit freundlichen Grüßen
Manfred Zenns

[Luckie]

Was sind den alle Prozesse? Und welchen Code verwendest du bisher?

[Delphi-Laie]

Zitat von mz23:

gibt es eine Möglichkeit, "alle" auf einem Rechner laufende Prozesse, Programme
in einem Delphi-Programm in einer Memo-Box auszugeben?

Für die Prozesse gibt es den Prozeßschnappschuß („ProcessSnapShot“).

Der Unterschied zwischen Prozeß und Programm ist mir auch nicht ganz klar, sicher ist nur, daß die Prozesse ein Übermenge bzw. die Programme eine Teilmenge jeweils des anderen sind. Es gab mal bei einer diesbezüglichen Gegenfrage die Antwort, daß das, was der Taskmanager als Programme angibt, eben Programme, und was er in seiner Prozeßliste anzeigt, die Prozesse sind.

Ob das allerdings objektiv ist oder nach welchen Kriterien der Taskmanager die Prozesse in Programme und Nichtprogramme („Unprogramme“) unterteilt, ist mir leider auch nicht bekannt.

[mz23]

Hallo und Danke für die schnellen Antworten...


@ Luckie

Zitat:

Was sind den alle Prozesse? Und welchen Code verwendest du bisher?

Ich verwende hierfür bisher folgende procedure:

Delphi-Quellcode:

procedure TProcess_Unit._updateProcess;
var tmpList : TStringList;
{-} function ProcessList:TStringList;
    var PrIDs : array [0..1000] of DWORD;
        PrName : array [0..255] of Char;
        Bia : DWORD;
        i, PrCount : Integer;
        ProzessHandle : HWND;
        Modulhandle : HWND;
{-} begin
    result:=TStringList.Create;
    //result.Add('<>');
    if EnumProcesses(@PrIDs, SizeOf(PrIDs), bia) then begin
       if (Bia < sizeof(PrIDs)) then begin
          PrCount:=Bia div SizeOf(DWORD);
          for i:=0 to PrCount do begin
              ProzessHandle:=OpenProcess(PROCESS_QUERY_INFORMATION or
                                         PROCESS_VM_READ, False, PrIDS[i]);
              if (ProzessHandle <> 0) then begin
                 EnumProcessModules(ProzessHandle,
                                    @ModulHandle,
                                    SizeOf(modulhandle),
                                    Bia);
                 GetModuleFilenameEx(Prozesshandle,
                                     ModulHandle,
                                     PrName,
                                     SizeOf(PrName));
                 result.Add(ExtractFileName(PrName)+
                            ' --> '+
                            ExtractFilePath(PrName));
                 //result.Add(PrName);
                 //result.Add(ExtractFileName(PrName));
                 CloseHandle(ProzessHandle);
              end;
          end; {for i}
       end else begin
          MessageDlg('PrID-Array zu klein', mtError, [mbOk], 0)//if bia < sizeof...
       end;
    end else begin
       RaiseLastOSError(); //if enumprocesses...
    end;
{-} end;
begin
tmpList:=ProcessList;
try LBProcessList.items.assign(tmpList);
finally
    tmpList.Free;
end; {finally}
Caption:=prvCaption+_retTaskRunning(LBProcessList.Count);
end;

und hier rufe ich die procedure auf:

Delphi-Quellcode:

....
{-}
LBProcessList.Clear;
LBProcessList.MultiSelect:=True;
bevProcessList.SetBounds(8,8,4*bDX-4,bTop-bDY-16);
LBProcessList.SetBounds(8+2,8+2,4*bDX-8,bTop-bDY-20);
LBProcessList.ScrollWidth:=AWidth;
LBProcessList.Sorted:=True;
LBProcessList.ShowHint:=AisAllowHints;
LBProcessList.Hint:=_retHint(062); {-062: Running Tasks Under Your Login-}
{-}
_updateProcess;
{-}
....

@Delphi-Laie

Zitat:

Für die Prozesse gibt es den Prozeßschnappschuß („ProcessSnapShot“).

ich werde das mal ausprobieren und mich dann wieder melden.

Vielen Dank für die prompte Hilfe.
Mit freundlichen Grüßen
Manfred Zenns

[Der.Kaktus]

Hallo,

vielleicht hilft Dir diese Seite madcollection speziell madshell

[Luckie]

Und welche Prozesse fehlen da jetzt angeblich?

[Astat]

Zitat von Luckie:

Und welche Prozesse fehlen da jetzt angeblich?

Hallo Luckie, naja die Versteckten, also die Ring0 Dinger.

lg. Astat

[Luckie]

Kannst du mal welche benennen? Welche Prozesse laufen denn in Ring0?

[Astat]

Zitat von Luckie:

Kannst du mal welche benennen? Welche Prozesse laufen denn in Ring0?

RootKits, Treiber, VMS (Naja ist eigentlich Ring0 in Ring1 verschoben), und alle anderen deren Namen ich nicht kenne.

[Bernhard Geyer]

Zitat von Astat:

RootKits

Und dies werden wohl alles daran setzen das du sie nicht findest. Selbst Virenscanner tun sich mit denen schwer und versagen des öfteren. Dann wird es wohl keine API für deren erkennung geben. Du kannst ja mal googeln ob du aus den verfügbaren Sourcecode zu Quelloffenen Rootkit-Remove Kits was herausfindest.