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图片base64编码

Delphi用api设置定时器

Delphi 2009 中 string 与 char 的改变

indy tidtcpclient 在网络掉线时的处理方法

Delphi 组件篇 之 tbevel组件

Delphi 分割文件合并文件的函数

Delphi 快速读取txt 指定行的数据

Delphi 获得控件所在的窗体

Delphi 文件查找记录类型 - tsearchrec

Delphi 时间年月日，星期

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

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