好容易拿的分哦!快来,请你编程!我是个菜鸟!(70分)

在一打开程序便自动检查注册表:HKEY_CLASSES_ROOT/winxp/pro/右边thebluehouse的值(DWORD)是否是0
若是checkbox1.checked:=true;else 为 false;编译测试通过立刻加分!

你已经说出来了还用得着做吗？

你用的D几？D6有对注册标的操作类，看看帮助就行了，很简单
如果嫌麻烦，下载一个注册表控件，立刻搞定。

或者查一下以前的帖子，类似问题很多，用不着浪费这么多分数的

[8D]uses .............,Registry,..........;
..........................
..........................
procedure TForm1.FormCreate(Sender: TObject);
var
RegF:TRegistry;
h:dword;
begin
RegF:= TRegistry.Create;
RegF.RootKey:=HKEY_CLASSES_ROOT;
RegF.OpenKey('winxp/pro',true);
h:=RegF.ReadInteger('thebluehouse');
RegF.CloseKey;
if h=0 then checkbox1.checked:=true else checkbox1.checked:=false;
end;
[8D]

不明白你在说什么。[?]

uses registry;

CheckBox1.Checked :=false;
with tRegistry.Create do
begin
RootKey :=HKEY_CLASSES_ROOT;
if OpenKey('winxp/pro',false) then
begin
CheckBox1.Checked :=ReadInteger('thebluehouse')=0;
end;
free;
end;

给你一个例子，自己琢磨吧

const
regkey='software/charlie/daddress2';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
regfile:treginifile;
begin
regfile:=treginifile.Create(regkey);
regfile.WriteInteger('colors','edit1.ext',strtoint(edit1.text));

regfile.WriteInteger('colors','labels',panel2.font.color);

regfile.Free;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
regfile:treginifile;
begin
regfile:=treginifile.Create;
regfile.RootKey:=HKEY_CURRENT_USER;
if regfile.OpenKey(regkey,false) then
begin
edit2.Text:=regfile.ReadString('colors','edit1.ext','123');
edit3.Text:=inttostr(regfile.readinteger('colors','lables',00));
end;
end;

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Registry;

type
TForm1 = class(TForm)
CheckBox1: TCheckBox;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
myReg:TRegistry;
myint:integer;
begin
MyReg:= TRegistry.Create;
MyReg.RootKey:=HKEY_CLASSES_ROOT;

MyReg.OpenKey('winxp/pro',False);
try
myint:=MyReg.ReadInteger('thebluehouse');
except
end;
checkbox1.checked:=(myint=0);
MyReg.CloseKey;

end;
end.

多人接受答案了。