WinAPI: GetWindowsDirectory - 获取 Windows 所在目录

//声明:

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;