Delphi SetCurrentDir 设置当前文件夹路径

本文整理自网络，侵删。

 //设置当前文件夹 SetCurrentDir; ChDir; SetCurrentDirectory
var
dir: string;
begin
dir := 'c:\temp';
if SetCurrentDir(dir) then
ShowMessage(GetCurrentDir); //c:\temp

//或者
ChDir(dir); //无返回值

//也可以使用API:
SetCurrentDirectory(PChar(Dir)); //返回 Boolean
end;

=====================

function SetCurrentDir(const Dir: string): Boolean;
begin
{$IFDEF MSWINDOWS}
Result := SetCurrentDirectory(PChar(Dir));
{$ENDIF}
{$IFDEF LINUX}
Result := __chdir(PChar(Dir)) = 0;
{$ENDIF}
end;
 

相关阅读 >>

Delphi 时间到就触发事件

Delphi datetimetogmt gmt时间与tdatetime转换

Delphi 在memo查找字符并定位

Delphi 获取文件修改时间

Delphi formatdatetime 显示日期时间

实现拖动无标题窗口的5种方法

Delphi获取各种编码的识别符

Delphi assignfile 与指定的文件建立连接

Delphi判断文件夹（目录）是否存在，不存在就创建的办法

Delphi连接access提示密码无效解决一例

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi SetCurrentDir 设置当前文件夹路径