Текущий архив: 2002.12.16;
Скачать: CL | DM;

Вниз

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

← →
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;

---

← →
Opuhshii ©   (2002-11-01 12:07) [2]

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;

---

Страницы: 1 вся ветка

Текущий архив: 2002.12.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.017 c