Icon/Text zu Dateierweiterung auslesen

[Nils_13]

Gute Idee, also so ?

Delphi-Quellcode:

function GetIcon(Extension : String): Boolean;
var Reg: TRegistry;
begin
  Result := False;
  if Extension <> '' then
  begin
    if Extension[1] <> '.' then
      Extension := '.' + Extension;

    Reg := TRegistry.Create;
    try
      Reg.RootKey := HKEY_CLASSES_ROOT;
      if Reg.OpenKey(Extension, True) then
        if Reg.OpenKey('DefaultIcon', True) then
          Reg.ReadString('DefaultIcon'); // <-- das ist das Icon
    finally
      Reg.Free;
    end;
  end;
end;