//声明: GetWindowsDirectory( lpBuffer: PChar; {缓冲区} uSize: UINT {缓冲区大小} ): UINT; {返回实际长度} //举例: var arr: array[0..MAX_PATH] of Char; num: UINT; begin num := GetWindowsDirectory(arr, MAX_PATH); ShowMessage(arr); {C:\WINDOWS} ShowMessage(IntToStr(num)); {10} end;
转载于:https://www.cnblogs.com/del/archive/2008/02/07/1065754.html