Prüfen der registrierten Dateitypen

[matashen]

Habs rausgefunden

Danke für die Tipps

Mein Neuer Code:

Delphi-Quellcode:

function CheckExt(Extension: String): Boolean;
var
  Reg: TRegistry;
  Description,entrystring: String;
begin
  Result := False;
  if Extension <> '' then
    begin
    if Extension[1] <> '.' then
      Extension := '.' + Extension;
    Reg := TRegistry.Create;
    try
      Reg.RootKey := HKEY_CLASSES_ROOT;
      if Reg.KeyExists(Extension) then
        begin
        Reg.OpenKey(Extension, false);
        Description:=Reg.ReadString('');
        Reg.Openkey('\'+Description+ '\Shell\Open\Command',false);
        Entrystring:=Reg.ReadString('');
        if entrystring=Format('"%s" "%s"', [paramstr(0), '%1'])
           then Result:=true
           else result:=false;
        Reg.CloseKey;
        end;
    finally
      Reg.Free;
    end;
  end;
end;

Gruß Matthias