1:
2:
3:
4:
5:
6:
7:
8:

  Regis := TRegistry.Create(KEY_READ);
  Regis.RootKey := HKEY_CLASSES_ROOT;
  if Regis.OpenKey('Applications\AcroRd32.exe\shell\Open\command', False) then begin
    txt := Regis.ReadString('');
    Regis.CloseKey;
  end;

  if FileExists(txt + '\AcroRd32.exe') then **** OK ****					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

  Result := false;
  reg := TRegistry.Create(KEY_READ);
  with reg do
  begin
    try
      RootKey := HKEY_CLASSES_ROOT;
      if OpenKey('CLSID\{CA8A9780-280D-11CF-A24D-444553540000}', False)
        then Result := true
    finally
      CloseKey;
      Free
    end
  end