全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1746
推到 Plurk!
推到 Facebook!

請教如何DELPHI 增加一個dWORD值

缺席
yish35
一般會員


發表:5
回覆:29
積分:6
註冊:2007-01-10

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-07-29 10:17:55 IP:121.33.xxx.xxx 訂閱
各位大大,請教
由於KTOP上沒有教人如何增加dWORD值
如我想增加 "1" -->foxy
那我在 //===中間,要如何寫呢

感謝各位


[ code xxxx ]
R:=Tregistry.create;
R.RootKey:=HKEY_CURRENT_USER;
keytmp1:='\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\';
keytmp2:='DisallowRun';
keytmp3:='';
keyname:=keytmp1 keytmp2;
edit2.text:=keyname;

if R.OpenKey(keyname,true) then
BEGIN
edit1.text:='OK';
//找尋值是否存在
If R.ValueExists('1') then
begin
edit4.text:='ok';
end else
begin
edit4.text:='false'
//===============
//加入我想要增加的

//=================
end; //if R.ValueExists

R.CLOSEKEY;
R.FREE;
end; //if openkeyy
[/code ]
------
環境 DELPHI 7
Delphi 新手,請多指教
yish35
一般會員


發表:5
回覆:29
積分:6
註冊:2007-01-10

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-07-29 17:50:15 IP:121.33.xxx.xxx 訂閱
 原來..答案並不難,是我自已想太多

R.WriteString('1','qq.exe');

自已回答的沒辦法結案...讓版主結還要..
------
環境 DELPHI 7
Delphi 新手,請多指教
編輯記錄
yish35 重新編輯於 2008-07-29 17:53:46, 註解 無‧
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-07-29 18:13:56 IP:118.169.xxx.xxx 訂閱
結案時設為[缺席]即可


===================引 用 yish35 文 章===================
原來..答案並不難,是我自已想太多

R.WriteString('1','qq.exe');

自已回答的沒辦法結案...讓版主結還要..
系統時間:2024-03-29 1:38:42
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!