请高手指点,我编程的困惑,快来拿,测试通过100分立刻就绐,先来先得! (100分)

T

thebluehouse2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #1

一打开程序便自动检查注册表:1.若hkey_classes_root/winxp/pro/thebluehouse2,的Dword值
则:checkbox1.checked:=true;2.若hkey_local_machine/winxp/home/thebluehouse2的二进制值为
0000 08 00 00;则:checkbox2.checked:=true;

 

B

BeginDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #2

呵呵！我得咯。

Registry.Rootkey:=hkey_classes_root;
Registry.OpenKey('winxp/pro',true);
.....

 

B

BeginDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #3

if Registry.ReadInteger(thebluehouse2)=xxx then CheckBox1.checked:=True;

第二个用ReadBinaryData，类似的。

 

T

thebluehouse2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #4

两个内容,先生,要详细代码,通过测试给分,一个没有分

 

T

thebluehouse2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #5

注意审题,我的Email:thebluehouse@163.com

 

M

Mereboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #6

procedure TForm1.FormCreate(Sender: TObject);
var
Tmp1,Tmp2:integer;
Reg:TRegistry;
BufChar;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_CLASSES_ROOT;
if Reg.OpenKey('/winxp/pro',False) then
begin
Tmp1:=Reg.ReadInteger('TheBlueHouse2');
if Tmp1=1 then
CheckBox1.Checked:=True;
end;
Reg.CloseKey;
Reg.RootKey:=HKEY_LOCAL_MACHINE
if Reg.OpenKey('/winxp/home',False) then
begin
Tmp2:=Reg.ReadBinaryData('TheBlueHouse2',Buf,8);
if Tmp2=3 then //080000的Int值
CheckBox2.Checked:=True;
end
finally
Reg.CloseKey;
Reg.Free;
end;
end;

 

M

Mereboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #7

抱歉，Tmp2:=Reg.ReadBinaryData('TheBlueHouse2',Buf,8);

 

M

Mereboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #8

还有在if Reg.OpenKey('/winxp/home',False) then前要加上
Reg.RootKey:=HKEY_LOCAL_MACHINE

 

B

bigroute

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #9

不答了，昨天答了一个没给分。

 

H

HeyTommy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #10

其实注册表的操作很容易啊！！！你分太多了，来救济大家所？？？

其实，关于注册表，你可以看看DELPHI的关于注册表的3个类，你还可以看看相关的书籍，
了解注册表的结构等，，，你老在论坛上以分换原码，不是一个学习的好方法，关键是掌握
了方法，对你才有提高，，

 

K

kidneyball

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #11

Agree HeyTommy

 

T

thebluehouse2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #12

无奈,没有例子,太难学,又买不到这样的书!请各位百忙之中辅导一下!想要什么软件说一声,我刻了寄去,多交几个朋友!
QQ:108438328 EMAIL:thebluehouse@163.com

 

H

HeyTommy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #13

你老用别人的原码，对你有提高吗？？？如果你坚持要，，我都可以给你，，，但我我还是
要说上面的话，，兄台，，，自己学会思考和钻研吧！！！

 

H

HeyTommy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #14

无奈,没有例子,太难学,又买不到这样的书!???????

如果你没有OOP的思想，我劝你先看看object pascal，，，书，，你要自己去找适合自己的啊，

现在的书太多了，，，各种各样的书都有啊，，

 

B

BeginDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #15

9494.
老用别人的源码。昨天我看到和这个一样的问题，也是注册表的。
你有问题都叫别人写源码，对自己没有什么提高。
别人写的，有BUG你自己也不好找。

还是自己动手比较好。注册表的类还比较好用（比API好用多了）。

一般方法都是：先CREATE一个类，再设置Rootkey，接着OpenKey，然后读(ReadInteger,
readXXX)或是写(WriteInteger,WriteXXXX)。然后关闭。
当然还有别的一些，比如一个容错，穷举键的操作，也是类似的。

我也是个菜鸟。我的EMAIL：zengxiaoxun@hotmail.com，有空联系。交个朋友.

 

T

thebluehouse2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #16

每一个人学习的方法不同,我当然是编程时出现问题才来请教的了,谢过各位忠告,不过俄还是谁提供
完整的代码谁得分,这是我的原则.

 

L

ljsh2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #17

有一定的基础了
还是应该自己解决

 

T

thebluehouse2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #18

多人接受答案了。