SHGetFileInfo Icon verschwommen

[delphinia]

Ja genau verschwommen das Wort war das was ich suchte

Wie ich... na die Function oben genauso
ich habe nen Button in dem OnCLick steht

GetAssociatedIconEx(Image4);

Delphi-Quellcode:

procedure GetAssociatedIconEx(MyImage: TImage);
var
  SHFileInfo: TSHFileInfo;
begin
  FillChar(SHFileInfo, SizeOf(TSHFileInfo), 0);
  if (SHGetFileInfo(PChar('C:\MeinExt.ghs'), FILE_ATTRIBUTE_NORMAL, SHFileInfo, SizeOf(TSHFileInfo), SHGFI_ICON OR SHGFI_USEFILEATTRIBUTES ) <> 0) then
  try
    MyImage.Picture.Icon.Handle := CopyIcon(SHFileInfo.hIcon);
  finally
    DestroyIcon(SHFileInfo.hIcon);
  end;
end;

das Image4 ist 32/32px gross