[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 !

问题就是不管我怎么设置，总是一打开程序，不能使那个复选框选中，搞了大半天，谁可以帮帮我。

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

1. procedure TForm1.FormCreate(Sender: TObject);
2. var reg:Tregistry;
3. begin
4. reg:=Tregistry.create;
5. reg.rootkey:=HKEY_LOCAL_MACHINE;
6. if reg.openkey('software\microsoft\windows\currentversion\run',false) then
7. if Reg.ValueExists('project1') then
8. checkbox1.Checked :=true
9. else
10. checkbox1.Checked :=false;
11. checkbox1.refresh;
12. end;

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.