为什么编译后不好用？？(100分)

玩

玩命

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #1

程序如下：用DELPHI打开源程序运行后，修改注册表、复制文件成功，
编译成EXE后运行什么也没改？
procedure TForm1.FormCreate(Sender: TObject);
var
myReg: TRegistry;
begin
myReg := TRegistry.Create;
try
myReg.RootKey := HKEY_LOCAL_MACHINE;
if myReg.OpenKey('Software/Microsoft/Windows/CurrentVersion/Run', True) then
myReg.Writestring('system','c:/system.exe');
finally
myReg.Free;
end;
copyfile('system.exe','c:/system.exe',false);
end;

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #2

function WriteRegistry(Name,Value:string):boolean;
var
registerTemp : TRegistry;
begin
registerTemp := TRegistry.Create;
//建立一个Registry实例
with registerTemp do
begin
RootKey:=HKEY_LOCAL_MACHINE;
//设置根键值为HKEY_LOCAL_MACHINE,找到Software/Microsoft/Windows/CurrentVersion
if OpenKey('Software/Microsoft/Windows/CurrentVersion',True) then
//写入自己程序的快捷方式信息
begin
WriteString(Name,Value);
result := true;
end
else result := false;
//善后处理
CloseKey;
Free;
end;
end;

 

K

kingdeezj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #3

去掉 IF THEN 试试。

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #4

上面是个例子

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #5

试通过按钮来改

 

G

gxcooo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #6

这个做在form close里比较好

 

玩

玩命

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #7

taozhiyu:
请问您的这些代码应该放在什么位置？
我刚才试了，不行。

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #8

button onclick

 

玩

玩命

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-19

• #9

多人接受答案了。