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 线程 使之传递参数.（给匿名线程增加参数）

Delphi 字符串反转函数

Delphi字符串深入学习

Delphi根据网络链接截取域名

Delphi xe httpencode

Delphi 播放声音 建议采用 异步方式，比较流畅

Delphi 将字符串转换为c-escape转义字符串格式

Delphi 计算运行耗时的方法2

Delphi richedit控件中插入图片bmp(bmp,文件),gif(文件)

Delphi 扫雷外挂

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

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