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

怎樣判斷當前系統的Register是否可以讀寫?

尚未結案
Leway
一般會員


發表:43
回覆:71
積分:22
註冊:2003-07-29

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-07-07 17:45:13 IP:218.80.xxx.xxx 未訂閱
寫Register前先判斷. ======================================= 為學日益,為道日損,損之又損,以致於無。為無為,而無不為。
huwk
資深會員


發表:26
回覆:340
積分:323
註冊:2002-04-03

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-07-07 20:30:58 IP:61.222.xxx.xxx 未訂閱
最原始的方式~ if OpenKey 可以成功! 那就是可讀可寫 else OpenKeyReadOnly 成功 那就是可以讀 else 無權讀取
------
熊的學習 http://huwk.blogspot.com
Leway
一般會員


發表:43
回覆:71
積分:22
註冊:2003-07-29

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-07-08 09:30:11 IP:218.80.xxx.xxx 未訂閱
知道register鎖住後如何寫程式將其打開。 ======================================= 為學日益,為道日損,損之又損,以致於無。為無為,而無不為。
bigdogchina
版主


發表:238
回覆:523
積分:312
註冊:2003-04-28

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-07-10 23:30:39 IP:211.162.xxx.xxx 未訂閱
引言: 知道register鎖住後如何寫程式將其打開。 ======================================= 為學日益,為道日損,損之又損,以致於無。為無為,而無不為。
不好意思,小弟愚昧,您是否是要用程式打開被縮住了的註冊表呢?如果是,不妨看看下面的code:

uses
  ...Registry;    procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System',True) then
    begin
      Reg.WriteInteger('DisableRegistryTools',0);
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
    inherited;
  end;
end;
上述code的作用是將縮住的註冊表打開。

===============
人生在勤,不索何获? 
===============
------
人生在勤,不索何获?
系統時間:2024-05-18 22:17:20
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!