Показать сообщение отдельно
  #6  
Старый 27.08.2010, 03:26
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Код:
uses
  Registry;

const
  cKeyName = 'Software\Eagle Dynamics\LockOn Flaming Cliffs 2\';

function GetGamePath : String;
var
  R : TRegistry;
begin
  Result := '';
  R := TRegistry.Create;
  Try
    If R.OpenKeyReadOnly(cKeyName) Then
      Begin
        If R.ValueExists('Path') 
          Then Result := R.ReadString('Path');
        R.CloseKey;
      End;
  Finally
    R.Free;
  End;
  If Result = '' Then Raise Exception.Create('Key not found.');
end;

Если ключа нет, то получишь ошибку.
Ответить с цитированием