var
reg: TRegistry;
begin
reg := TRegistry.Create();
reg.OpenKey('туттипапуть',True);
reg.WriteInteger('тутназваниеключа', 1);
reg.Free();
end;
Работа в Delphi с реестром
Люди нужна инфа, как работать с реестром с помощью Delphi, только не надо показывать мне как прописываться в автозапуске.
Мне нужно как прописать параметр dword.
Пример:
Нужно вывести номер версии Windows на рабочий стол:
для этого необходимо создайте ключ типа DWORD PaintDesktopVersion в разделе HKEY_CURRENT_USER\Control Panel\Desktop и присвойте ему значение 1.
КАК НАПИСАТЬ НА ВСЁ ЭТО ПРОЦЕДУРУ НАЖАТИЯ КНОПКИ
Мне нужно как прописать параметр dword.
Пример:
Нужно вывести номер версии Windows на рабочий стол:
для этого необходимо создайте ключ типа DWORD PaintDesktopVersion в разделе HKEY_CURRENT_USER\Control Panel\Desktop и присвойте ему значение 1.
КАК НАПИСАТЬ НА ВСЁ ЭТО ПРОЦЕДУРУ НАЖАТИЯ КНОПКИ
Код:
А вообще-то такое можно и в помощи прочитать :)
можно написать без использования TRegistry, то бишь с помощью API. код такой:
все работает у себя проверил изменилось с 0 на 1. и еще pkey:HKEY.
Код:
procedure TForm1.Button1Click(Sender: TObject);
const k:array[0..3]of byte=(1,0,0,0);
begin
if RegOpenKeyEx(HKEY_CURRENT_USER, PChar('Control Panel\Desktop\'), 0, KEY_ALL_ACCESS, pkey)=ERROR_SUCCESS then
begin
if RegSetValueEx(pkey, PChar('PaintDesktopVersion'), 0, REG_DWORD, @k, 4)=ERROR_SUCCESS then MessageBox(0,'',pchar('ok'),0) else MessageBox(0,'',pchar('not ok'),0);;
RegCloseKey(pkey);
end
else MessageBox(0,'','bad!',0);
end;
const k:array[0..3]of byte=(1,0,0,0);
begin
if RegOpenKeyEx(HKEY_CURRENT_USER, PChar('Control Panel\Desktop\'), 0, KEY_ALL_ACCESS, pkey)=ERROR_SUCCESS then
begin
if RegSetValueEx(pkey, PChar('PaintDesktopVersion'), 0, REG_DWORD, @k, 4)=ERROR_SUCCESS then MessageBox(0,'',pchar('ok'),0) else MessageBox(0,'',pchar('not ok'),0);;
RegCloseKey(pkey);
end
else MessageBox(0,'','bad!',0);
end;
все работает у себя проверил изменилось с 0 на 1. и еще pkey:HKEY.
Всё получилось, огромное спасибо всем кто у частвовал!!!:D