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

2008-04-09 04:22:49来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

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; //函數返回的字符串就是路徑;

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:翻译:Delphi 2005 新特性(二)

下一篇:給delphi 2005 for Win32 提速