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 tbutton.onclick 匿名函数用法

Delphi的字符截取函数leftstr,midstr,rightstr的介绍以及字符串拆分

Delphi 调用exitwindows 关闭系统

Delphi 搜索指定目录下的文件

Delphi利用文件流把文件拆分与合并

Delphi程序在每个windows 会话中只执行一次

Delphi有无生成空格的函数，like vb的space(1)

用Delphi通过setupapi.dll列举和停用硬件设备

Delphi xe7中stringgrid组件的使用

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

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