Icon eines Dateientyps über Extansion rausfinden?

[XCoderD7]

Hallo

Wie kann ich mir ein Icon zurückliefern lassen, wenn ich nur die Extansion z.B. (.jpg) habe?

cya

[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

[Christian Seehase]

Moin XCoder,

such' hier mal nach SHGETFILEINFO.
Dafür hab' ich gerade erst ein Beispiel gepostet.