作者:达通兴电脑科技公司(www.study01job.com) 郭宝利
当前程序的运行路径是比较重要的一项,开发应用软件时需要注意,程序要根据用户的安装情况自己检测当前的路径。所以,获取当前路径是应用程序开发中肯定会用到的。
首先定义一个扩展函数,可以是全局的外部扩展函数。
Function uLong GetModuleFileNameA(long hinstModule, Ref String lpszPath, uLong cchPath) Library "kernel32.dll"
然后定义全局变量:
String gs_workPath
然后在Application的Open事件中编写如下程序:
long ll_RC
long ll_apphandler
ll_apphandler = handle(GetApplication())
ls_AppPath = Space(256)
ll_RC = GetModuleFileNameA(ll_apphandler, gs_WorkPath, 256)
IF (ll_RC = 0) THEN ls_AppPath = ""
messagebox("应用程序路径", gs_Workpath)
时间: 2024-09-29 23:43:30