Delphi7 GetCurrentDir使用问题

Question

调试的时候可以获取到当前运行的目录，但是把程序添加到开机自动运行后，获取到的是C：\Windows\Syetem 目录，求解！

Answer 1

1.GetCurrentDir是获取当前文件夹，即用OpenDialog打开文件的那个路径，跟运行程序无关，要改变用 SetCurrentDir
2.ExtractFilePath(ParamStr(0))是获取程序本身的路径，跟程序有关；与此相同的是：ExtractFilePath (Application.EXEName) 所以你是理解错了 那个是设置的当前目录 和运行的程序无关 虽然有时候也能获取同样路径 我是用以下方式获取当前路径的

function AppPath: string;
begin
Result := ExtractFilePath(Application.ExeName);
end;