获取当前目录

要获取当前目录的位置，即应用程序的执行目录，可以调用Win32 的GetCurrentDirectory()函数。

该函数的用法与GetSystemDirectory()、GetWindowsDirectory()相似，所不同的是，参数的顺序刚好相反。下面的示例代码演示了GetCurrentDirectory()的用法。

procedure TForm1.Button1Click(Sender: TObject);

var

CurrDir:String;

begin

SetLength(CurrDir,144);

if GetCurrentDirectory(144,(PChar(CurrDir)))<>0 then

begin

SetLength(CurrDir,Length(PChar(CurrDir)));

Edit1.Text:=CurrDir;

end

else

RaiseLastWin32Error;

end;