因需寫一支程式，通過修改註冊表來控制電腦的電源管理，需到如下問題：


我之前有寫過類似的,這樣可以實現
getmem(buffer,4);
hextobin(pchar('01000000'),pchar(buffer),4);
reg.WriteBinaryData('NTAuthEnabled',buffer[0],4);

但是像下面這麽多的字串，就執行失敗，請教有何方法可以解決，感謝：

請問如何通過delphi寫入如下資料至註冊表中,謝謝：

[HKEY_CURRENT_USER\Control Panel\PowerCfg\GlobalPowerPolicy]
"Policies"=hex:01,00,00,00,00,00,00,00,03,00,00,00,10,00,00,00,00,00,00,00,03,\
00,00,00,10,00,00,00,02,00,00,00,03,00,00,00,00,00,00,00,02,00,00,00,03,00,\
00,00,00,00,00,00,02,00,00,00,01,00,00,00,00,00,00,00,02,00,00,00,01,00,00,\
00,00,00,00,00,01,00,00,00,03,00,00,00,02,00,00,00,04,00,00,c0,01,00,00,00,\
02,00,00,00,01,00,00,00,0a,00,00,00,00,00,00,00,03,00,00,00,01,00,01,00,01,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,02,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,03,00,00,00,00,\
00,16,00,00,00

您好,

我曾經也要用程式增改刪 reg 資料庫
後來發現, 乾脆用程式增改 .reg 檔(是一個本文檔), 然後用程式呼叫 shell 去執行這個 .reg 好像也是解決之道

但是, delete 某個 key 或某一族 key 就仍用程式去處理.

請參考.

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

謝謝

使用程式匯入.reg 檔案是可以成功

但因為要分成兩個檔案，一個程式本身，一個.reg檔案,不是很便利

還是想了解如何直接用程式來寫入

謝謝

問題己解決，見如下code:  

reg.rootkey:=HKEY_CURRENT_USER;
reg.OpenKey('\Control Panel\PowerCfg\GlobalPowerPolicy',true);
getmem(buffer,176);
hextobin(pchar('010000000000000003000000100000000000000003'
'00000010000000020000000300000000000000020000000300'
'00000000000002000000010000000000000002000000010000'
'0000000000010000000300000002000000040000c001000000'
'02000000010000000a00000000000000030000000100010001'
'00000000000000000000000000000000000000000002000000'
'000000000000000000000000000000000000000003000000000016000000'),pchar(buffer),176);
reg.WriteBinaryData('Policies',buffer[0],176);

編輯記錄

恭喜您解決了, 
不過, 並非解決的, 請不要給分
謝謝

===================引 用 light_he 文 章===================
問題己解決，見如下code:

reg.rootkey:=HKEY_CURRENT_USER;
reg.OpenKey('\Control Panel\PowerCfg\GlobalPowerPolicy',true);
getmem(buffer,176);
hextobin(pchar('010000000000000003000000100000000000000003'
'00000010000000020000000300000000000000020000000300'
'00000000000002000000010000000000000002000000010000'
'0000000000010000000300000002000000040000c001000000'
'02000000010000000a00000000000000030000000100010001'
'00000000000000000000000000000000000000000002000000'
'000000000000000000000000000000000000000003000000000016000000'),pchar(buffer),176);
reg.WriteBinaryData('Policies',buffer[0],176);

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.