DELPHI访问自身程序所在目录的其他文件?

动态获取程序所在目录，通常的代码如下：

var ExePath: string

begin

  ExePath := ExtractFilePath(Application.ExeName) + 'project2.exe'

  ShowMessage(ExePath)

end

再 ShellExecute 或是 WinExec 执行 ExePath。

//在打开之前先这样初始化

opendialog.InitialDir :=ExtractFilePath(Application.ExeName)

//打开

opendialog.Execute

//这样就是当前程序所在目录了

---