UC知道delphi 关于用到paramstr(0)的问题
来源：百度知道 编辑：UC知道 时间：2024/06/06 20:12:27
程序如下：
procedure TForm1.Button1Click(Sender: TObject);
var
a:tregistry;
begin
a:=tregistry.create;
a.rootkey:=HKEY_CURRENT_USER;
a.openkey('software\microsoft\windws\currentversion\run',false);
a.writestring('dd.exe',paramstr(0));
a.free;
end;
end.
F9可以，但是点了Button1就出问题，图片如下：
procedure TForm1.Button1Click(Sender: TObject);
var
a:tregistry;
begin
a:=tregistry.create;
a.rootkey:=HKEY_CURRENT_USER;
a.openkey('software\microsoft\windws\currentversion\run',false);
a.writestring('dd.exe',paramstr(0));
a.free;
end;
end.
F9可以，但是点了Button1就出问题，图片如下：
procedure TForm4.Button2Click(Sender: TObject);
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
with reg do //写注册表
begin
RootKey:=HKEY_CURRENT_USER;
openkey('software\Microsoft\windows\currentversion\run',true); //打开指定注册表顶，若无则创建
writestring(trim('Autorun'),application.ExeName); //写入autorun启动项，键值为本程序的全路径
reg.Free;
end;
end;
这是我的一个程序里面的代码，运行正常。发来你参考一下，建议加上try..except，以处理异常情况。注意别忘了在单元uses部分加上Registry单元。
加油!搞定这个问题!