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
