[решено] DELPHI 7. Registry. Dword.

[alexa___]

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

[DillerInc]

alexa___
Использовать WinAPI для работы с реестром (http://msdn2.microsoft.com/en-us/library/ms724875.aspx).
Для вывода целого значения типа DWORD в поле Edit использовать функцию IntToHex.

[alexa___]

А можно без WinAPI?

[DedAlex]

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

[alexa___]

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

[DedAlex]

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, а при записи переводить вручную.