delphi GetDeskTopDir 获取桌面路径

本文整理自网络，侵删。

 
uses ShlObj, ActiveX, ComObj,CommCtrl;

//delphi GetDeskTopDir 获取桌面路径

function GetDeskTopDir: string;  
var PIDL: PItemIDList;  
  Path: array[0..MAX_PATH] of Char;  
begin  
  SHGetSpecialFolderLocation(0, CSIDL_DESKTOPDIRECTORY, PIDL);  
  SHGetPathFromIDList(PIDL, Path);  
  Result := Path;  
end;  
 

相关阅读 >>

Delphi 简单的英文数字字符串加密解密函数（不支持中文）

字符串提取算法

Delphi java设置环境变量小工具

Delphi xe5下安卓开发技巧

Delphi xe6 firemonkey移动应用程序获取android设备屏幕信息

Delphi 判断字符串是否包含数字

Delphi中判断操作系统是否是windows7

Delphi 官方stylebook大全使用

Delphi 18位身份证号码的校验

Delphi 去掉mdi窗口的滚动条

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

转载请注明出处：木庄网络博客 » delphi GetDeskTopDir 获取桌面路径