1:

[DCC Fehler] u_win7tool.pas(1433): E2010 Inkompatible Typen: 'string' und 'Cardinal'                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

for i := 0 to Listview1.items.Count - 1 do  begin
Process := ProcessInfo1.RunningProcesses.FindByName(ListView1.Items[i].Caption);
      if ExtractIcon(process.ExeFile, ico, 1, false, 16, 16, LR_DEFAULTCOLOR) then
       begin
         icon:= TIcon.Create;
         icon.Handle:= ico;
         imagelist3.AddIcon(icon);
         icon.Free;
              ListView1.Items[i].ImageIndex:= Imagelist3.Count - 1;
end;
end;