Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#2

Re: Taskmanager ListView auslesen

  Alt 23. Mär 2008, 14:46
Zitat:
PS: @toms: Dein Winspy hat mir keinen funktionierenden Code ausgespuckt für die ListView!
Stimmt. Der alte WinSpy erzeugt den Code nicht korrekt.
Ein etwas abgeänderter Code von WinSpy 2008 (Download noch nicht verfügbar)

Delphi-Quellcode:
var
  wndTaskManager, wnd: HWND;
begin
  wndTaskManager := FindWindow('#32770','Windows Task Manager');
  if wndTaskManager <> 0 then
  begin
   wnd := FindWindowEx(wndTaskManager, 0, '#32770', nil);
   wnd := FindWindowEx(wnd, 0, 'SysListView32', nil);
   if wnd <> 0 then
   begin
      // ShowMessage('Window found. Handle: ' + IntToStr(wnd));
      writeln('Window found. Handle: ' + IntToStr(wnd));
      FlashControl(wnd); // internal function
   end;
  end;
end.
Zitat:
Ich versuche gerade den Text des markierte Items in der Prozess-ListView im Taskmanager zu erhalten.
Siehe http://www.delphipraxis.net/internal...ct.php?t=55569
Thomas
  Mit Zitat antworten Zitat