Delphi 设置系统启动文件夹自身开机自动运行


本文整理自网络,侵删。

 

 uses  ShlObj, ShellAPI,System.IniFiles, System.UITypes;


 function GetAutoRunFilePath(): String;
var
  fileName, pathStartUp: String;
  path: array [0 .. 255] of Char;
begin
  fileName := Application.title + '.url';  //url
  if SHGetSpecialFolderPath(0, @path[0], CSIDL_STARTUP, true) then
    pathStartUp := String(path);

  Result := pathStartUp + PathDelim + fileName;
end;

 procedure CreateAutoRun();
const
  FileProtocol = 'file:///';
var
  fileName: String;
  pathExe, pathUrl, pathAutoRun: String;
begin
  fileName := Application.title + '.url'; //url
  pathUrl := application.Exename;
  pathExe := ParamStr(0);

  pathAutoRun := GetAutoRunFilePath();

  with TIniFile.Create(pathAutoRun) do
    try
      WriteString('InternetShortcut', 'URL', FileProtocol + pathExe);
      WriteString('InternetShortcut', 'IconIndex', '0');
      WriteString('InternetShortcut', 'IconFile', pathExe);
    finally
      DisposeOf();
    end;

end;



procedure TForm1.FormCreate(Sender: TObject);
begin
CreateAutoRun();  //调用演示
end;

相关阅读 >>

Delphi vcl 的 tpagecontrol 控件,实现对页签的拖动

Delphi获取其它进程窗口句柄的三种方法

Delphi firemonkey的tedit七大变化

Delphi 内进行音量控制及静音

Delphi内存对齐

Delphi webbrowser获取iframe页面内容

Delphi 拦截tab按键消息

Delphi string.split 按照任意字符串分割语句

Delphi中用tlistview显示数据库数据

Delphi 在指定图片上绘制透明文字

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...