有人能帮我用delphi6写一程序吗？(50分)

J

JEFFLI

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-07

• #1

当此文件被运行后，将会自动加入注册表HKEY_LOCAL_MACHINE;下的
'SOFTWARE/Microsoft/Windows/CurrentVersion/Run'下吗？


[]谢了！

 

Z

zhihuali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-07

• #2

var
Reg:TRegistry;
begin
Reg:=TRegistry.Create();
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',True) then
Reg.WriteString('MyApplication',Application.ExeName);
finally
Reg.Closekey;
Reg.Free;
end;
end;

 

D

dingbaosheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-07

• #3

heihei 来迟一步 其实旧贴中有答案了

 

E

Easylee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-08

• #4

来晚了

 

J

jack9999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-08

• #5

来晚了

 

酷

酷尔贝塔

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-08

• #6

嗨，我又来晚了

 

J

JEFFLI

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-08

• #7

接受答案了.