var Reg: TRegistry; begin try
var Reg: TRegistry; begin try Reg:=TRegistry.Create; Reg.RootKey:=HKEY_CLASSES_ROOT; Label1.Caption := ‘LocalServer32’; if Reg.OpenKey(‘\CLSID\{A9E69610-B80D- 11d0-B9B9-00A0C922E750}’,False) then begin if not Reg.OpenKey(‘\CLSID\{A9E69610- B80D-11d0-B9B9-00A0C922E750}’+ ‘\’ + ‘LocalServer32’,False) then Edit1.Text := ‘’ else Edit1.Text := Reg.ReadString(‘’); end; Reg.CloseKey; finally Reg.Free; end; //try Reg:=TRegistry.Create;
