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;



  • 用法示例:

无 



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





联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678