|
|
利用注冊表獲取桌面路徑. |
|
|
作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站 |
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;
//函數返回的字符串就是路徑;
|
|
相关文章:相关软件: |
|