Delphi 什么代码可以让我找到编译后的可执行文件&x27；s目录？

…即使用户通过双击与可执行文件不同的目录中的关联文件来打开应用程序。我一直使用ExtractFilePath（Application.EXEName），但在这种情况下，此函数无法正常工作。

也请尝试使用ParamStr（0）。当application.exename不起作用时，这可能会起作用

也可以尝试使用ParamStr（0）。当application.exename不起作用时，这可能会起作用

ExeName

返回

ParamStr（0）

，然后返回由

hModule

设置为0时生成的字符串。我看不出这在正常应用程序中不起作用的任何原因。

ExeName

返回

ParamStr（0）

，然后返回由

hModule

设置为0时生成的字符串。我看不出这在普通应用程序中不起作用的任何原因。

ExePath:=ExtractFilePath（paramstr（0））

无论它运行在什么操作系统上，我都会一直这样做，而且总是有效的。

ExePath:=ExtractFilePath（paramstr（0））

---

无论它运行在什么操作系统上，我都会一直这样做，而且总是有效。

ExtractFilePath（Application.EXEName）

应该可以。它做错了什么？可能是Vista和Win7不允许读取或操作\ProgramFiles中的文件吗？（很抱歉，我现在没有收到实际的错误消息…用户在其他地方。）请记住，Windows Vista和7可能与VirtualStore系统一起工作，这可能会隐藏真实路径，看起来像来自其他地方。-1。问题无法以当前形式回答。描述“不起作用”的含义。（你不能指望确定或认识到你无法描述的问题的解决方案。）你不必结束问题；把它修好。告诉什么不起作用。

ExtractFilePath（Application.EXEName）

应该起作用。它做错了什么？可能是Vista和Win7不允许读取或操作\ProgramFiles中的文件吗？（很抱歉，我现在没有收到实际的错误消息…用户在其他地方。）请记住，Windows Vista和7可能与VirtualStore系统一起工作，这可能会隐藏真实路径，看起来像来自其他地方。-1。问题无法以当前形式回答。描述“不起作用”的含义。（你不能指望确定或认识到你无法描述的问题的解决方案。）你不必结束问题；把它修好。告诉什么不起作用。这正是

ExeName

属性返回的结果。这正是

ExeName

属性返回的结果。