Delphi 获取系统启动文件夹路径

本文整理自网络，侵删。

 
 uses  ShlObj, ShellAPI;

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

  Result := pathStartUp + PathDelim + fileName;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin

form1.Caption:=GetAutoRunFilePath;
end;
 

相关阅读 >>

Delphi 选择目录对话框（selectdirectory 函数）

Delphi 小数点四舍五入问题

Delphi利用webbrowser登陆qq群文档

Delphi 检查声卡是否安装

Delphi 控制音量 静音的类

Delphi 超精简无卡顿调用dos命令输出结果

Delphi控件安装与删除

Delphi xe10实现移动端支付宝、微信支付接口

Delphi图表控件tchart使用faq

Delphi xe10 创建匿名线程

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

转载请注明出处：木庄网络博客 » Delphi 获取系统启动文件夹路径