[函数] Firemonkey 取得 Windows 目前 User 的 Desktop 目录
下列方法仅提供 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}