请问如何使用注册表使程序在windows2000启动后自动运行？(50分)

您好：
请问如何使用注册表使程序在windows2000启动后自动运行？最好给出源代码，多谢了！

祝心情愉快！

procedure SetAutoRun(Auto:Boolean);
var
Reg: TRegistry;
begin
// 初始化AppFileName
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if (Reg.OpenKey('Software/Microsoft/Windows/CurrentVersion/Run',False))=True then
begin
// 在注册表中添加数值
if Auto then
Reg.WriteString('descript',Application.ExeName)
else
Reg.DeleteValue('descript');
end
else
ShowMessage('打开注册表失败。');
finally
Reg.CloseKey;
Reg.Free;
end;
end;


别忘了给分啊！有问题EMAIL给我。

直接在hkey_current_user/Software/Microsoft/Windows/CurrentVersion/Runonce中
写run="###.exe"

首先感谢各位对我的帮助！
xxhadsg的代码我已经通过了，给你40分，剩下的给shbjkl，你不会介意吧！
shbjkl谢谢你的帮助，10分少了点，不过就这点心意！