Programm für Dateiformat herausfinden

[Nils_13]

Hi,

ich möchte herausfinden, auf was für ein Programm ein Dateiformat zugewiesen ist.
Das wollte ich eigentlich so lösen, aber ich sehe meinen Fehler in der markierten Zeile nicht. Habt ihr eine Idee ? Ich weiß...Registry ist nicht gerade meine Stärke....

Delphi-Quellcode:

function GetExtOpen(Extension, ExtDescription : String) : String;
var Reg : TRegistry;
begin
  Result := '';
  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('\' + ExtDescription, True) then
          if Reg.OpenKey('\' + ExtDescription + '\Shell\Open\Command', True) then
-->         Result := Reg.ReadString('Command'); <--
    finally
      Reg.Free;
    end;
  end;
end;

[DeddyH]

Wieso versuchst Du es nicht mit FindExecutable?

[Nils_13]

Arghs, habe ich nicht dran gedacht, danke.