Delphi 取得桌面文件夹的路径和取得我的文档的路径
Uses
Windows,Registry;
function GetShellFolders(strDir: string): string; const regPath = '\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders'; var Reg: TRegistry; strFolders: string; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey(regPath, false) then begin strFolders := Reg.ReadString(strDir); end; finally Reg.Free; end; result := strFolders; end; {获取桌面} function GetDeskeptPath: string; begin Result := GetShellFolders('Desktop'); //是取得桌面文件夹的路径 end; {获取我的文档} function GetMyDoumentpath: string; begin Result := GetShellFolders('Personal'); //我的文档 end;
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步