VFP如何知道自身编译的exe文件名，有没有VFP反回自身可执行文件名的函数？请高手指教，谢谢。

我想动态获取自身程序版本号（即使EXE文件被改了名）。

SYS(16) 我试了，不行呀！

请版主指教......

请版主指教......

   DIMENSION bdFiles[1]
   AGETFILEVERSION(bdFiles,"xxxx.exe") &&"xxxx.exe"是VFP编译后的exe文件，如果不默认路径下，加上路径。
   version_=ALLTRIM(bdFiles[4])&&version_就是版本号

*我只是想知道在自身程序中如何获取"xxxx.exe"，即使是将"xxxx.exe"改名为"yyyy.exe"。


[ 本帖最后由 hrer 于 2012-3-14 18:43 编辑 ]

我在程序中做了一个"关于...."的表单，名称：version.scx

其中标签控件“Label1”方法init如下：

IF FILE("fpss.exe") &&"fpss.exe"我编译后的程序名。
   DIMENSION bdFiles[1]
   AGETFILEVERSION(bdFiles,"fpss.exe")
   bd_bbh=ALLTRIM(bdFiles[4])
ELSE
   bd_bbh="2012.1"
ENDIF
this.caption="版本:V"+bd_bbh

现状：运行"fpss.exe"后，点击菜单中的"关于...."，在弹出的窗口中，控件“Label1”位置显示：“版本:V2012.1.1035”
      如果"fpss.exe"把名称修改后，则在弹出的窗口中，控件“Label1”位置显示：“版本:V2012.1”


我想知道，有没有一个函数或其他方法，自取获取编译后的程序名？就是把"fpss.exe"把名称修改后，能够自动获取运行程序名，达到显示程序的实际版本号“版本:V2012.1.1035”。

*我找到了，代码如下：

Declare INTEGER GetModuleFileName IN kernel32;
    INTEGER  hModule,;
    STRING @ lpFilename,;
    INTEGER  nSize

lpFilename = SPACE(250)
lnLen = GetModuleFileName (0, @lpFilename, LEN(lpFilename))
wjm=ALLTRIM(LEFT(lpFilename, lnLen)) &&变量“wjm”就是VFP自身可执行文件名，编译后改名也能获取，测试通过。
谢谢sdta版主的帮助。