//声明:
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  万一  阅读(5968)  评论(7编辑  收藏  举报