1,076
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
Soft21 2002-01-13
- 打赏
- 举报
大家好啊，看来，我在等待大家的答案，呵呵！
wujianlei9797 2002-01-12
- 打赏
- 举报
PB8中有函数GetCurrentDirectory()
dongdongxiao 2002-01-12
- 打赏
- 举报
同意楼上的，pb里没有相应的函数，只能用window api。
红枫 2002-01-12
- 打赏
- 举报
使用函数GetModuleFileName
例：
long ll_RC
String ls_AppPath
long ll_apphandler
ll_apphandler = handle(GetApplication())
ls_AppPath = Space(256)
ll_RC = GetModuleFileNameA(ll_apphandler, ls_AppPath, 256)
IF (ll_RC = 0) THEN ls_AppPath = ""
messagebox("你执行的应用程序路径", ls_apppath + "~n~r~n~r需要编译成Exe执行才有效，有PB环境中执行返回的是pb?.exe路径")
注意：必须编译成应用程序后才能得到正确路径
例：
long ll_RC
String ls_AppPath
long ll_apphandler
ll_apphandler = handle(GetApplication())
ls_AppPath = Space(256)
ll_RC = GetModuleFileNameA(ll_apphandler, ls_AppPath, 256)
IF (ll_RC = 0) THEN ls_AppPath = ""
messagebox("你执行的应用程序路径", ls_apppath + "~n~r~n~r需要编译成Exe执行才有效，有PB环境中执行返回的是pb?.exe路径")
注意：必须编译成应用程序后才能得到正确路径
