我的電腦：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;

轉載于:https://www.cnblogs.com/jcomet/p/7561257.html

總結

以上是生活随笔為你收集整理的Delphi对话框初始地址InitialDir的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。