Es geht NICHT mit -> SHGetFileInfo... es wird mir dann KEIN Icon angezeigt bzw das Windows Icon für nicht definierte Typen!
Wenn ich dann im Gegensatz es mit der Endung TXT versuche wird mir das Icon angezeigt
Delphi-Quellcode:
procedure GetAssociatedIconEx(const Filename: string; Icon: TIcon);
var
SHFileInfo: TSHFileInfo;
begin
FillChar(SHFileInfo, SizeOf(TSHFileInfo), 0);
if (SHGetFileInfo(PChar(Filename), FILE_ATTRIBUTE_NORMAL, SHFileInfo, SizeOf(TSHFileInfo), SHGFI_ICON or SHGFI_USEFILEATTRIBUTES) <> 0) then
try
Icon.Handle := CopyIcon(SHFileInfo.hIcon);
finally
DestroyIcon(SHFileInfo.hIcon);
end;
end;
// GEHT
procedure TExtMan_form.FlatButton1Click(Sender: TObject);
begin
GetAssociatedIconEx('Test.txt', Icon.Picture.Icon);
end;
// GEHT NICHT
procedure TExtMan_form.FlatButton2Click(Sender: TObject);
begin
GetAssociatedIconEx('Test.ccd, Icon.Picture.Icon);
end;