problem mit extracticon

[SplinterCell]

Crosspost hier

ich will von jedem prozess das dazugehörende icon in einem lsitview anzeigen und habe das so versucht:

Code:

var
i:Integer;
Process:Tprocessitem;
ico:HICON;
icon:Ticon;
begin
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;

aber leider wird nur dasselbe icon angezeigt und außerdem wird das anwendungsicon geändert


woran kann das liegen?



mfg
SplinterCell