取执行文件名

幻想大人

fire9 发表于 2024-4-3 05:02
如果我有离谱的需求，就要显示当前文件名呢。

如你所愿，让你实现取源码文件名

  

子程序名	返回值类型	公开	备 注
取自身源码文件名	文本型		仅调试时且源码有保存在本地有效，准确率99%

变量名	类 型	静态	数组	备 注
局_句柄	整数型
局_PID	整数型
局_返回	文本型

如果真 (是否为调试版 ())
局_句柄 ＝ GetForegroundWindow ()
局_PID ＝ 窗口_句柄取进程ID (局_句柄)
局_返回 ＝ 进程_取命令行 (局_PID)
局_返回 ＝ 文本_取出中间文本 (局_返回, 取运行目录 () ＋ “\”, #引号, , )
返回 (局_返回)

.版本 2<br /> <br /> .子程序 取自身源码文件名, 文本型, , 仅调试时且源码有保存在本地有效，准确率99%<br /> .局部变量 局_句柄, 整数型<br /> .局部变量 局_PID, 整数型<br /> .局部变量 局_返回, 文本型<br /> <br /> .如果真 (是否为调试版 ())<br />     局_句柄 ＝ GetForegroundWindow ()<br />     局_PID ＝ 窗口_句柄取进程ID (局_句柄)<br />     局_返回 ＝ 进程_取命令行 (局_PID)<br />     局_返回 ＝ 文本_取出中间文本 (局_返回, 取运行目录 () ＋ “\”, #引号, , )<br /> .如果真结束<br /> 返回 (局_返回)

幻想大人

取自身源码文件名？这种奇奇怪怪的功能不知道有什么用
还是给你实现了，如下

  

子程序名	返回值类型	公开	备 注
取自身源码文件名	文本型		仅调试时且源码有保存在本地有效，且刚新建的源码保存之后必须关掉重新打开才能有效，准确率100%

变量名	类 型	静态	数组	备 注
局_ID数组	整数型		0
局_PID	整数型
局_返回	文本型

如果真 (是否为调试版 ())
进程_取同名ID (“e.exe”, 局_ID数组, )
如果真 (取数组成员数 (局_ID数组) ≠ 1)
返回 (“错误”)  ' 必须只有一份易语言源码文件运行，才能使用
局_返回 ＝ 进程_取命令行 (局_ID数组 [1])
局_返回 ＝ 文本_取出中间文本 (局_返回, 取运行目录 () ＋ “\”, #引号, , )
返回 (局_返回)

.版本 2<br /> <br /> .子程序 取自身源码文件名, 文本型, , 仅调试时且源码有保存在本地有效，且刚新建的源码保存之后必须关掉重新打开才能有效，准确率100%<br /> .局部变量 局_ID数组, 整数型, , "0"<br /> .局部变量 局_PID, 整数型<br /> .局部变量 局_返回, 文本型<br /> <br /> .如果真 (是否为调试版 ())<br />     进程_取同名ID (“e.exe”, 局_ID数组, )<br />     .如果真 (取数组成员数 (局_ID数组) ≠ 1)<br />         返回 (“错误”)  ' 必须只有一份易语言源码文件运行，才能使用<br />     .如果真结束<br />     局_返回 ＝ 进程_取命令行 (局_ID数组 [1])<br />     局_返回 ＝ 文本_取出中间文本 (局_返回, 取运行目录 () ＋ “\”, #引号, , )<br /> .如果真结束<br /> 返回 (局_返回)

云少i

调试时候的文件名是临时文件名，最终以实际改的名称为准。

fire9

ncagzs 发表于 2024-4-3 10:04
编译出来就正常了 这玩意调试模式下就是.tem

明白了，sir