关于注册表查找键值的一个菜鸟问题 |
答題得分者是:st33chen
|
zhouying82
高階會員 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
[code delphi] unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,shellapi,registry, ExtCtrls; type TForm1 = class(TForm) Edit1: TEdit; CheckBox1: TCheckBox; procedure CheckBox1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.CheckBox1Click(Sender: TObject); var reg:Tregistry; begin if checkbox1.Checked then begin reg:=Tregistry.create; reg.rootkey:=HKEY_LOCAL_MACHINE; reg.openkey('software\microsoft\windows\currentversion\run',true); reg.writestring('project1',paramstr(0)); reg.closekey; reg.free; //checkbox1.Checked :=true; end else begin reg:=Tregistry.create; reg.rootkey:=HKEY_LOCAL_MACHINE; reg.openkey('software\microsoft\windows\currentversion\run',false); reg.deletevalue('project1'); reg.closekey; reg.free; //checkbox1.Checked :=false; end; end; procedure TForm1.FormCreate(Sender: TObject); var reg:Tregistry; begin reg:=Tregistry.create; reg.rootkey:=HKEY_LOCAL_MACHINE; if reg.openkey('software\microsoft\windows\currentversion\run',false) then if Reg.KeyExists('project1') then checkbox1.Checked :=true else checkbox1.Checked :=false; checkbox1.refresh; end; end. [/code]
------
断断续续的学了几年,还是一个初学者,永远支持Delphi ! |
zhouying82
高階會員 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
|
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
------
IS IT WHAT IT IS 我是 李慕白 請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲. |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |