реестр

← →
kosdem (2002-11-01 05:06) [0]

Как программно создать ключ типа DWORD и присвоить ему значение 1.

← →
sask © (2002-11-01 06:04) [1]

var Reg: TRegistry; ...... Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.Access := KEY_ALL_ACCESS; Reg.OpenKey("Software\MyProgram", True); Reg.WriteInteger("MyProperties", 1); Reg.CloseKey; finally Reg.Free; end;

procedure TForm1.Button1Click(Sender: TObject);
var
Error:DWORD;
MyWord:DWORD;
HLoclM:HKEY;
RegHandle:HKEY;
lpKey:PChar;
lpData:Pointer;
begin
MyWord:=$FAFAFAFF;
Error:=RegOpenKeyEx(HKEY_LOCAL_MACHINE,nil,0,KEY_ALL_ACCESS,HLoclM);
if Error <> ERROR_SUCCESS then begin
ShowMessage("Ошибка #"+IntToStr(Error));
end else begin
lpKey:="software\XXX\YYY";
Error:=RegCreateKey(HLoclM,lpKey,RegHandle);
if Error <> ERROR_SUCCESS then begin
ShowMessage("Ошибка #"+IntToStr(Error));
end else begin
lpData:=@MyWord;
Error:=RegSetValueEx(RegHandle,"ValueName",0,REG_DWORD,lpData,SizeOf(MyWord));
if Error <> ERROR_SUCCESS then begin
ShowMessage("Ошибка #"+IntToStr(Error));
end;
Error:=RegCloseKey(RegHandle);
if Error <> ERROR_SUCCESS then begin
ShowMessage("Ошибка #"+IntToStr(Error));
end;
end;
Error:=RegCloseKey(HLoclM);
if Error <> ERROR_SUCCESS then begin
ShowMessage("Ошибка #"+IntToStr(Error));
end;
end;
end;

реестр Найти похожие ветки