WinAPI: SetCurrentDirectory、GetCurrentDirectory - 设置与获取当前目录

//声明:
SetCurrentDirectory(
  lpPathName: PAnsiChar {路径名}
): BOOL;

GetCurrentDirectory(
  nBufferLength: DWORD; {缓冲区大小}
  lpBuffer: PAnsiChar   {缓冲区}
): DWORD;               {返回目录实际长度}			


//举例:
var
  buf: array[0..MAX_PATH] of Char;
begin
  SetCurrentDirectory('c:\temp');

  GetCurrentDirectory(SizeOf(buf), buf);
  ShowMessage(buf); {c:\temp}
end;