一个简单的问题，请指教（在线等待）

Question

如何得到当前的工作目录，以及如何设置当前的工作目录？谢谢

Answer 1

GetCurrentDirectory
SetCurrentDirectory

Answer 2

其他目录相关函数
GetSystemDirectory
GetWindowDirectory

Answer 3

自己写一函数可供楼主参考:
function TForm1.GetNameDir(FileName: TFileName): String;
var
  i : Integer;
begin
  for i := length(FileName) downto 1 do
  begin
    if FileName[i] = '\' then
    begin
      Break
    end;
  end;
  if i <= 1 then
  begin
    Result := GetNameDir(Application.ExeName);
  end
  else
  begin
    Result := copy(FileName,1,i);
  end;
end;

Answer 4

其他目录相关函数
GetSystemDirectory
GetWindowDirectoryGetCurrentDir
SetCurrentDirGetCurrentDirectory
SetCurrentDirectory哈哈，沾沾星气，俺也快升了