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