如何將 Register 中,某一機碼下的子機碼全部讀出來 |
答題得分者是:Zard
|
ANDY8C
資深會員 發表:114 回覆:582 積分:299 註冊:2006-10-29 發送簡訊給我 |
請問一下
想將讀取
HKEY_CURRENT_USER\software\ 底下的所有機碼(機碼的內容及子機碼不用讀出)
例如 :
AcerWirelessManager...
Adobe
Borland
Birsgewell
Classes
.....
並將這些資料放入,Grid 中
大概要用哪些個指令?? 謝謝您 --------------------------------
這一網站,真的不錯!!
------
--------------------------------------- 偶爾才來 KTOP ,交流條碼問題,在 FB [條碼標籤達人] 社團留言,感恩. |
Zard
尊榮會員 發表:24 回覆:396 積分:539 註冊:2003-11-26 發送簡訊給我 |
範例如下, 如果你要放在Grid上, 把Memo1的部份換成你要的即可
procedure TForm1.Button1Click(Sender: TObject); var sKeyNames: TStringList; i: Integer; begin with TRegistry.Create do begin RootKey := HKEY_CURRENT_USER; sKeyNames := TStringList.Create; try if OpenKey('software', FALSE) then begin // 取得 HKEY_CURRENT_USER\software\ 下所有Key值 GetKeyNames(sKeyNames); end; finally Free; if sKeyNames.Count > 0 then begin // 列出 HKEY_CURRENT_USER\software\ 下所有Key值, 並秀在Memo1上 for i := 0 to sKeyNames.Count - 1 do Memo1.Lines.Add(sKeyNames.Strings[i]); end; sKeyNames.Free; end; end; end; |
ANDY8C
資深會員 發表:114 回覆:582 積分:299 註冊:2006-10-29 發送簡訊給我 |
|
jow
尊榮會員 發表:66 回覆:751 積分:1253 註冊:2002-03-13 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject); function _GetKeyNames(RootKey: DWORD; AKey: string): TStringList; var R: TRegistry; begin Result := TStringList.Create; R := TRegistry.Create; try R.RootKey := RootKey; if R.OpenKey(AKey, False) then begin R.GetKeyNames(Result); R.CloseKey; end; finally FreeAndNil(R); end; end; function _GetValueNames(RootKey: DWORD; AKey: string): TStringList; var R: TRegistry; begin Result := TStringList.Create; R := TRegistry.Create; try R.RootKey := RootKey; if R.OpenKey(AKey, False) then begin R.GetValueNames(Result); R.CloseKey; end; finally FreeAndNil(R); end; end; var L: TStringList; begin L := _GetKeyNames(HKEY_CURRENT_USER, 'software'); try ListBox1.Items.Text := L.Text; finally FreeAndNil(L); end; L := _GetValueNames(HKEY_CURRENT_USER, 'software\borland\delphi\6.0'); try ListBox2.Items.Text := L.Text; finally FreeAndNil(L); end; end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |