利用注冊表獲取桌面路徑.

function GetDesktopDir: String; var R: TRegistry; begin R := TRegistry.Create; R.OpenKey(''''SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\SHELL FOLDERS'''', FALSE); Result := R.ReadString(''''DESKTOP''''); Result := UpperCase(Result);//轉換為大小寫,可以不使用; R.Free; end; //函數返回的字符串就是路徑;

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!