1:
2:
3:
4:
5:
6:
7:

function GetIcon(Handle : Cardinal) : HIcon;
var
  H: HIcon;
begin
  H := CopyIcon(GetClassLong(handle, GCL_HICON ));
  result := h;
end;					

1:
2:

Icon.Handle := GetIcon(StrToInt(fenster[i, 0]));
ImageList1.AddIcon(Icon);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TFrm_IconChange.Button1Click(Sender: TObject);
var Icon    : TIcon;
    FileInf : TShFileInfo;
 begin
  Icon := TIcon.Create;
  try
   ShGetFileInfo(PChar(ParamStr(0)),0,FileInf,SizeOf(TShFileInfo),SHGFI_ICON);
   Icon.Handle := CopyIcon(FileInf.hIcon);
   if icon.Handle <> 0 then // zur Visualisierung
   begin 
    Imagelist1.AddIcon(Icon);
    imagelist1.GetIcon(0,imgico.Picture.Icon);
   end;
  finally
   Icon.free;
  end;
end;