[函数] Firemonkey 取得 Windows 目前 User 的 D…

2018-06-17 18:58:41来源:未知 阅读 ()

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

下列方法仅提供 Windows 平台使用,所以需要使用编译开关,代码如下:

uses
  {$IFDEF MSWINDOWS}
  Winapi.Windows,
  Winapi.SHFolder,
  {$ENDIF}

{$IFDEF MSWINDOWS}
const CSIDL_DESKTOP = $0000; // <desktop>
function GetDesktopPath: string;
var
  LStr: array[0 .. MAX_PATH] of Char;
begin
  SetLastError(ERROR_SUCCESS);

  if SHGetFolderPath(0, CSIDL_DESKTOP, 0, 0, @LStr) = S_OK then
    Result := LStr;
end;
{$ENDIF}

 

标签:

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

上一篇:TImage保存图片到Stream及从Stream中取图片

下一篇:【FOL】万里长征第一步