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;
- 上一篇 »php删除路径下的所有文件夹和文件的代码
- 下一篇 »php删除路径下的所有文件夹和文件的代码