Icon anhand des Dateitypen ermitteln

[MisterNiceGuy]

Hallo ich habe einen FTP-Client geschrieben und möchte nun in meinem Listview die Iconsymbole der Dateien auf dem FTP angezeigt bekommen. Da die Dateien nicht lokal liegen kann ich GetShellIcon nicht benutzen. Ich brauche also einen Weg um per Dateityp einen Zeiger auf das passende Item zu erhalten. Sollte in etwa so aussehen:

geticon(Extension:String):HIcon;

Vielen Dank für eure Hilfe

[jaenicke]

Schau mal hier:
http://www.delphipraxis.net/internal...=773699#773699

[MisterNiceGuy]

Das ging schon zu 90% in die Richtige Richtung Ich hab's ein bisschen für meine Bedürfnisse modifiziert, danke!

Delphi-Quellcode:

function GetFileIcon(const FileName: string; const FileMustExist: Boolean): TIcon;
var
  FI: TSHFileInfo;
  Attributes: DWORD;
  Flags: Word;
begin
  if FileMustExist then
  begin
    Attributes := 0;
    Flags := SHGFI_ICON or SHGFI_LARGEICON;
  end
  else
  begin
    Attributes := FILE_ATTRIBUTE_NORMAL;
    Flags := SHGFI_USEFILEATTRIBUTES or SHGFI_ICON or SHGFI_LARGEICON;
  end;

  if SHGetFileInfo(PChar(FileName), Attributes, FI, SizeOf(FI), Flags) <> 0 then
  begin
    result := TIcon.Create;
    Result.Handle := FI.hIcon;
  end;
end;

[DeddyH]

Dann übergib aber besser die Icon-Instanz als Parameter.