Also, ich habe es jetzt ausprobiert.
Wenn ich den ganzen Pfad einer existierenden Datei angebe, wird das Icon ermittelt, ansonsten nicht (SHGetFileInfo gibt 0 zurück).
So sieht mein Code aus, mit dem ich ein Icon testweise zeichnen will:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
FileIcon: TFileTypeIcon;
Icon: TIcon;
begin
FileIcon := TFileTypeIcon.Create;
Icon := FileIcon.GetIcon('C:\irgendwas.txt');
if Icon = nil then
begin
ShowMessage('war nix');
Exit;
end;
Icon.Transparent := True;
with PaintBox1 do
begin
Width := Icon.Width;
Height := Icon.Height;
Application.ProcessMessages;
Canvas.Rectangle(-1, -1, Succ(Width), Succ(Height));
Canvas.Draw(0, 0, Icon);
end;
Icon.Free;
FileIcon.Free;
end;
GetIcon sieht so aus:
Delphi-Quellcode:
function TFileTypeIcon.GetIcon(const Extension: String): TIcon;
begin
{...}
Result := RetrieveIcon(Extension);
end;
Und
RetrieveIcon:
Delphi-Quellcode:
function TFileTypeIcon.RetrieveIcon(const Extension: String): TIcon;
var
FileInfo: TSHFileInfo;
begin
Result := nil;
if SHGetFileInfo(@Extension[1], 0, FileInfo, Sizeof(FileInfo), SHGFI_ICON
or SHGFI_TYPENAME) = 0 then
begin
Exit;
end;
Result := TIcon.Create;
Result.Handle := FileInfo.hIcon;
Ich habe es versucht mit ".txt", "*.txt" sowie mit dem Namen einer nicht vorhandenen Datei ("test.txt"). In allen Fällen liefert SHGetFileInfo 0.
Und eine eine temporäre Datei erstellen düfte wohl ganz schön auf die Performance drücken.
Habe ich da oben also nur einen Fehler gemacht oder funktioniert das grundsätzlich nicht?