Symbol eines Dateityps

[Chewie]

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?