如何将注册表子键分支列出并删除 |
尚未結案
|
vclphi
一般會員 ![]() ![]() 發表:28 回覆:39 積分:13 註冊:2003-03-06 發送簡訊給我 |
我想将注册表HKEY_CURRENT_USER\software\microsoft\windows\Internet Explorer\TypedURLs子键分支列于listbox2中,并对其中一些项删除,请问代码如何写?我的代码如下:
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
try reguni:=tregistry.Create;
finally
reguni.RootKey:=HKEY_CURRENT_USER;
if reguni.OpenKey('\software\microsoft\windows\Internet Explorer\TypedURLs',false)
then messagedlg('OK',mtinformation,[mbok],0);
reguni.GetvalueNames(listbox2.Items);
end;
end;
这reguni.GetvalueNames(listbox2.Items);显然不妥,该如何改?
|
hagar
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
vclphi
一般會員 ![]() ![]() 發表:28 回覆:39 積分:13 註冊:2003-03-06 發送簡訊給我 |
|
sos_admin
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:121 回覆:697 積分:768 註冊:2003-07-23 發送簡訊給我 |
|
vclphi
一般會員 ![]() ![]() 發表:28 回覆:39 積分:13 註冊:2003-03-06 發送簡訊給我 |
|
hagar
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
const sKey = '\software\microsoft\windows\Internet Explorer\TypedURLs'; //將 url1 .. url? 的 ValueNames 載入 ListBox1 中 procedure TForm1.Button1Click(Sender: TObject); var reg: TRegistry; begin reg := TRegistry.Create; try reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey(sKey, False); reg.GetValueNames(ListBox1.Items); finally reg.Free; end; end; //將 url? 這個 ValueName 的 Value 顯示在 ListBox2 procedure TForm1.ListBox1Click(Sender: TObject); var reg: TRegistry; begin reg := TRegistry.Create; try reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey(sKey, False); ListBox2.Clear; ListBox2.Items.Add(reg.ReadString(ListBox1.Items[ListBox1.ItemIndex])); finally reg.Free; end; end; // 刪除選定的 url? procedure TForm1.ListBox1DblClick(Sender: TObject); var reg: TRegistry; begin if MessageDlg('確定刪除此 Value?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin reg := TRegistry.Create; try reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey(sKey, False); if reg.DeleteValue(ListBox1.Items[ListBox1.ItemIndex]) then begin ListBox1.Items.Delete(ListBox1.ItemIndex); ShowMessage('刪除成功'); end; finally reg.Free; end; end; end;--- 歡迎光臨 KTop 研究院--<-<-<@ |
vclphi
一般會員 ![]() ![]() 發表:28 回覆:39 積分:13 註冊:2003-03-06 發送簡訊給我 |
|
hagar
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
vclphi
一般會員 ![]() ![]() 發表:28 回覆:39 積分:13 註冊:2003-03-06 發送簡訊給我 |
|
hagar
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
const sKey = '\software\microsoft\windows\Internet Explorer\TypedURLs'; //將 url1 .. url? 的 ValueNames 載入 ListBox1 中 procedure TForm1.Button1Click(Sender: TObject); var reg: TRegistry; begin reg := TRegistry.Create; try reg.RootKey := HKEY_CURRENT_USER; if reg.OpenKey(sKey, False) then reg.GetValueNames(ListBox1.Items); // 檢查程式有沒有 run 到這一行? finally reg.Free; end; end;--- 歡迎光臨 KTop 研究院--<-<-<@ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |