随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

//声明:
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;
posted on 2008-02-07 17:27  万一  阅读(...)  评论(...编辑  收藏