Ich wollte einen bestimmten Prozess in der SysListview32 des Taskmanagers suchen und die Zahl des Items rauskriegen.
Ich wollte das wie folgend lösen, doch der Taskmanager stürzt gnadenlos ab
Delphi-Quellcode:
function GetTaskmgrProcess(process: String):integer;
var
wnd: HWND;
ItemCount: Cardinal;
LVI: TLvfindinfo;
ret: Integer;
begin
wnd := FindWindow('#32770', 'Windows Task-Manager');
wnd := FindWindowEx(wnd, 0, '#32770', nil);
wnd := FindWindowEx(wnd, 0, 'SysListView32', 'Prozesse');
if wnd <> 0 then
begin
//ItemCount := SendMessage(wnd, LVM_GETITEMCOUNT, 0, 0);
//ShowMessage(IntToStr(ItemCount));
LVI.psz := Pchar(process);
LVI.flags := LVFI_STRING;
ret := SendMessage(wnd, LVM_FINDITEM, -1, Integer(@lvi));
//Showmessage(IntToStr(ret));
result:=ret;
end;
end;
Habt ihr ne Idee warum ?