代码如下:
procedure TForm1.N15Click(Sender: TObject);
//设置当前文件夹 SetCurrentDir; ChDir; SetCurrentDirectory
var
dir: string;
begin
dir := 'f:\test';
if SetCurrentDir(dir) then
ShowMessage('当前文件夹是' + GetCurrentDir)
else
ShowMessage('设置失败');
//或者
//ChDir(dir); //无返回值
//也可以使用API:
//SetCurrentDirectory(PChar(Dir)); //返回 Boolean
end;
下面进行函数分析:
function SetCurrentDir(const Dir: string //文件夹路径的字符串,如'f:\test',不含'\'
): Boolean; //返回布尔值,成功则true,否则false