| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

реестр [D6, WinXP]

kosdem ©   (2002-11-01 05:06:00) 

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

---

Opuhshii   (2002-11-01 12:07:00) [1]

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;

---

sask   (2002-11-01 06:04:00) [2]

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;

---

Наверх