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;