写入启动项问题(100)

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,registry; //增加库函数registrytype TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}//不要忘记增加库函数registry不然,嘿嘿^_^procedure TForm1.Button1Click(Sender: TObject);var a:tregistry;begin a:=tregistry.Create;//创建registry对象 a.RootKey:=HKEY_CURRENt_USER;//设置根键 a.OpenKey('software/microsoft/windows/CurrentVersion/run',false);//false表示不创建 //openkey打开注册表路径 a.WriteString('D:/QQ2009/Bin/QQ.exe',paramstr(0)); //把自己写入到启动中. a.Free;//释放对象end;end.问题:比如我想把QQ这个程序加入启动项中,为什么每次加入都是这个delphi的exe文件呢,我没有多少分了,关100嘛,谢谢大虾了

把 a.WriteString('D:/QQ2009/Bin/QQ.exe',paramstr(0)); //把自己写入到启动中.换成a.WriteString('QQ2009','D:/QQ2009/Bin/QQ.exe');a.CloseKey;a.Free;//释放对象

a.WriteString('D:/QQ2009/Bin/QQ.exe',paramstr(0)); 能不能够给我详细的讲一下,里面的两个参数是什么意思,谢谢

谢谢,我大概知道了前面是名称,后面是地址,而paramstr这个参数估计就是默认保存本程序地址的一个参数,百度上面的解释比如命令行：c:/temp/MyApp.exe /test /save那么：paramstr[0] = 'c:/temp/MyApp.exe'paramstr[1] = '/test'paramstr[2] = '/save'===============================================补充：这里只是举个例子，这些参数就是要你的程序实现的功能啊！如果你的程序没有必要使用参数，这些参数也就没有意义了。paramstr的用处就是帮你把接收到的命令中的参数识别分离出来，好让你针对参数进行编程。

（名称，内容）。

11111111111