[решено] DELPHI 7. Registry. Dword. - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - [решено] DELPHI 7. Registry. Dword. (http://forum.oszone.net/showthread.php?t=79692)

DELPHI 7. Registry. Dword.

Пожалуйста дайте совет, как прочитать из реестра значение параметра DWORD и поместить в Edit. И обратно.

alexa___
Использовать WinAPI для работы с реестром.
Для вывода целого значения типа DWORD в поле Edit использовать функцию IntToHex.

А можно без WinAPI?

alexa___
Можно. Использовать объект TRegistry.

Да это понятно (со строковыми проблем нет). Надо Dword вытащить, сконвертить наверное.
Если не трудно, дайте конкретный пример.

alexa___

Код:

procedure TForm1.LoadButtonClick(Sender: TObject);

var

  Reg: TRegistry;

begin

  Reg := TRegistry.Create;

  Reg.RootKey := HKEY_CLASSES_ROOT;

  if Reg.OpenKey ( '\*' , False ) then

    Edit1.Text := IntToStr ( Reg.ReadInteger ( 'DWORD' ) );

  Reg.Free;

end;



procedure TForm1.SaveButtonClick(Sender: TObject);

var

  Reg: TRegistry;

begin

  Reg := TRegistry.Create;

  Reg.RootKey := HKEY_CLASSES_ROOT;

  if Reg.OpenKey ( '\*' , False ) then

    Reg.WriteInteger ( 'DWORD' , StrToInt ( Edit1.Text ) );

  Reg.Free;

end;

Проверок на введенные данные нет.
Если надо в десятичной системе, то так, а если в шестнадцатичеричной, при чтении IntToStr заменить на IntToHex, а при записи переводить вручную.