Taskmanager ListView auslesen

[Neutral General]

Hi toms,

Danke für den Link. Und danke Luckie das du deine Luckie Dips OpenSource gestellt hast
Ich hab geguckt wies da gemacht wurde und hab mal PI x Daume versucht es hinzubekommen und hatte schon damit gerechnet das mir bei meinem ganzen gepointere mein PC um die Ohren fliegt wenn ich den Code teste, aber er hat auf Anhieb funktioniert !

Hier ist mal der Code (als allgemeine Funktion hingebogen)

Delphi-Quellcode:

// Index = -1 für das momentan selektierte Item übergeben
function GetTaskManagerItemText(Index: Integer = -1): String;
var wnd1,wnd2,ListView: hwnd;
    ItemLoc,ItemGlob: PLVItemA;
    pid: Cardinal;
    hProc: THandle;
    Buffer: Array[0..255] of Char;
    bw: Cardinal;
begin 
  Result := '[Error]';
  wnd1 := FindWindow('#32770',nil);
  wnd2 := FindWindowEx(wnd1,0,'#32770',nil);
  ListView := FindWindowEx(wnd2,0,'SysListView32',nil);
  if ListView <> 0 then
  begin
    GetWindowThreadProcessID(wnd1,pid);
    hProc := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or PROCESS_VM_WRITE,
                         false,pid);
    if hProc <> 0 then
    begin
      ItemLoc := VirtualAlloc(nil,SizeOf(TLVItemA),MEM_RESERVE or MEM_COMMIT,
                              PAGE_READWRITE);
      ItemGlob := VirtualAllocEx(hProc,nil,SizeOf(TLVITemA)+SizeOf(Buffer),
                                 MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE);
    end
    else 
      exit;

    try
      if Index = -1 then
        Index := SendMessage(ListView,LVM_GETSELECTIONMARK, 0, 0);

      with ItemLoc^ do
      begin
        mask := LVIF_TEXT;
        iItem := Index;
        iSubItem := 0;
        pszText := PChar(Cardinal(ItemGlob)+SizeOf(TLVItemA));
        cchTextMax := SizeOf(Buffer);
      end;

      WriteProcessMemory(hProc,ItemGlob,ItemLoc,SizeOf(TLVITemA),bw);
      ListView_GetItem(Listview,ItemGlob^);
      ReadProcessMemory(hProc,Pointer(Cardinal(ItemGlob)+SizeOf(TLVItemA)),
                        @Buffer[0],SizeOf(Buffer),bw);
      Result := Buffer;
    finally
      VirtualFreeEx(hProc,ItemGlob,SizeOf(TLVITemA)+SizeOf(Buffer),MEM_RELEASE);
      VirtualFree(ItemLoc,SizeOf(TLVItemA),MEM_RELEASE);
      CloseHandle(hProc);
    end;
  end;
end;

Danke euch beiden

Nur das kleine Problem was ich noch habe: AntiVir(-Guard) erkennt mein Programm jetzt als Virus -.- (TR/Spy.Gen' [TR/Spy.Gen])
Kann man da was gegen tun?

Gruß
Neutral General