Icon eines Dateientyps über Extansion rausfinden?

[S2B]

Willst du das Icon dann auch anzeigen oder nur den Pfad dazu? Also den Pfad müsstest du so kriegen:

Delphi-Quellcode:

function GetIcon(Extansion: String): String;
var
  regist: TRegistry;
  S: String;
begin 
  regist:=TRegistry.Create;
  regist.RootKey:=HKEY_CLASSES_ROOT;
  regist.OpenKey(Extansion, true);
  S:=regist.ReadString(''); 
  regist.CloseKey;
  regist.OpenKey(S + '\DefaultIcon',true);
  GetIcon:=regist.ReadString('');
end;

und noch
uses Registry; Edits: Hab den Code noch verbessert