delphi 对话框初始地址InitialDir


本文整理自网络,侵删。

 我的电脑:SaveDialog1.InitialDir := '::{20D04FE0-3AEA-1069-A2D8-08002B30309D}';
// My Computer {20D04FE0-3AEA-1069-A2D8-08002B30309D}
// Network Neighborhood {208D2C60-3AEA-1069-A2D7-08002B30309D}
// Recycled {645FF040-5081-101B-9F08-00AA002F954E}

另外可使用SHGetSpecialFolder获取其它Windows虚拟文件夹,相关函数和常数定义于ShlObj。
如下面程序打开最近访问文件夹:
procedure TForm1.Button1Click(Sender: TObject);
var
PIDL: Pointer;
Path: LPSTR;
const
CSIDL_RECENT = $0008;
begin
Path := StrAlloc(MAX_PATH);
SHGetSpecialFolderLocation(Handle, CSIDL_RECENT, @PIDL);
if SHGetPathFromIDList(PIDL, Path) then // returns false if folder isn't part of file system
begin
OpenDialog1.InitialDir := Path;
OpenDialog1.Execute;
end;
StrDispose(Path);
end;

相关阅读 >>

Delphi 读取png base64编码文件生成图片

Delphi vclunzip组件解压缩文件用法

Delphi mscomm1自动获取串口

Delphi application.restore不起作用了,该如何处理

Delphi httpencode编码

Delphi 对话框单元

Delphi winapi: getforegroundwindow - 获取前台窗口的句柄

Delphi winapi: gettopwindow - 获取指定窗口的子窗口中最顶层的窗口句柄

Delphi中转向语句break,continue,exit的作用

Delphi tnethttpclient演示

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...