該如何把值寫入Registry 裡的 二進位值呢? |
|
答題得分者是：taishyang
|
|
elva349
一般會員   發表：15 回覆：21 積分：17 註冊：2007-04-17 發送簡訊給我 |
<textarea class="cpp" rows="10" cols="60" name="code">void __fastcall TForm1::Button1Click(TObject *Sender)
{
Registry = new TRegistry ;
AnsiString STR(Edit1->Text); //Edit1 輸入 16進位的 A1 B2 C3 00
Registry->RootKey=HKEY_CURRENT_USER;
Registry->OpenKey("Control Panel\\Desktop",0);
//我想把值寫入 UserPreferencesMask 這個二進位值
//然後顯示在 Edit2->Text 裡面 請問該怎麼做? Registry->Free() ;
}
</textarea> 我想知道 我該如何做 麻煩大家了...
|
|
taishyang
站務副站長   發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
|
|
elva349
一般會員 發表：15 回覆：21 積分：17 註冊：2007-04-17 發送簡訊給我 |
任何會員在發問之前 應該都會先搜尋吧
===================引 用 taishyang 文 章=================== 之前就看過這篇 我初學者看不太懂...所以才發問的 http://delphi.ktop.com.tw/board.php?cid=30&fid=69&tid=25375 Delphi 跟 BCB 到底有啥差別? 我沒學過 Delphi 也沒學過 BCB ,身旁只有一本BCB 6的書 我初學者 |
|
taishyang
站務副站長 發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
不知道您有沒有看過這連結?
http://delphi.ktop.com.tw/board.php?cid=32&fid=1492&tid=84841 有多少作業文充斥在KTOP中? 版上將值寫入Registry中的範例程式很多,不知道您都看了嗎? 回歸到主題,您將值寫入Registry的過程中是哪裡有問題呢? <textarea class="cpp" rows="10" cols="60" name="code"> TRegistry *Registry = new TRegistry ; Registry->RootKey=HKEY_CURRENT_USER; Registry->OpenKey("Control Panel\\Desktop", 0); int size = Registry->GetDataSize("UserPreferencesMask"); BYTE *buf = new BYTE[size]; buf[0] = 0xA1; buf[1] = 0xB2; buf[2] = 0xC3; buf[3] = 0x00; Registry->WriteBinaryData("UserPreferencesMask", buf, size); delete Registry; </textarea> 文字拆解放到buf的部份就留給您自己處理吧 ===================引 用 elva349 文 章=================== 任何會員在發問之前 應該都會先搜尋吧 ===================引 用 taishyang 文 章=================== 之前就看過這篇 我初學者看不太懂...所以才發問的 http://delphi.ktop.com.tw/board.php?cid=30&fid=69&tid=25375 Delphi 跟 BCB 到底有啥差別? 我沒學過 Delphi 也沒學過 BCB ,身旁只有一本BCB 6的書 我初學者 |
|
elva349
一般會員 發表：15 回覆：21 積分：17 註冊：2007-04-17 發送簡訊給我 |
自己try了好久 慢慢試著 可以丟值進去了
回來看看 您已經回覆我了,感謝阿~ 可是像這種字串 要轉成 數值 有現成的函式可以用嗎? 還是要自己解決呢? 不好意思...因為想學寫程式 結果同學就介紹我這邊...感覺這邊大家都很厲害, 不知道您有沒有推薦 初學者可以去哪個論壇呢? 版上將值寫入Registry中的範例程式很多,不知道您都看了嗎? 回覆: 我是搜尋 WriteBinaryData 然後 下去看的. 我貼給你的 那篇 還是我看的比較懂的... 我先試試我書上寫的 StrToInt() 的函式好了... 謝謝 ===================引 用 taishyang 文 章=================== 不知道您有沒有看過這連結? http://delphi.ktop.com.tw/board.php?cid=32&fid=1492&tid=84841 有多少作業文充斥在KTOP中? 版上將值寫入Registry中的範例程式很多,不知道您都看了嗎? 回歸到主題,您將值寫入Registry的過程中是哪裡有問題呢? <textarea class="cpp" rows="10" cols="60" name="code"> TRegistry *Registry = new TRegistry ; Registry->RootKey=HKEY_CURRENT_USER; Registry->OpenKey("Control Panel\\Desktop", 0); int size = Registry->GetDataSize("UserPreferencesMask"); BYTE *buf = new BYTE[size]; buf[0] = 0xA1; buf[1] = 0xB2; buf[2] = 0xC3; buf[3] = 0x00; Registry->WriteBinaryData("UserPreferencesMask", buf, size); delete Registry; </textarea> 文字拆解放到buf的部份就留給您自己處理吧 ===================引 用 elva349 文 章=================== 任何會員在發問之前 應該都會先搜尋吧 ===================引 用 taishyang 文 章=================== 之前就看過這篇 我初學者看不太懂...所以才發問的 http://delphi.ktop.com.tw/board.php?cid=30&fid=69&tid=25375 Delphi 跟 BCB 到底有啥差別? 我沒學過 Delphi 也沒學過 BCB ,身旁只有一本BCB 6的書 我初學者
編輯記錄
elva349 重新編輯於 2007-09-13 11:47:07， 註解 無‧
|
|
taishyang
站務副站長 發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
發表時間：2007-09-12 17:44:04
IP:211.22.xxx.xxx 訂閱
系統時間：2024-04-25 5:09:32
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |