Delphi 系统启动时加载程序

• 函数类型：　自定义函数

• 函数说明：

系统启动时加载程序

• 代码如下：

 procedure RunAtStartup(keyName, AppPathName: string);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);
  Reg.WriteString(keyName, AppPathName);
  Reg.CloseKey;
  Reg.Free;
end;

• 用法示例：

无　

《学习大师原创文档，请勿转载，侵权必究》