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;