PowerBuilder9.0 获取EXE全路径
//===================================================
// 说明:获取EXE全路径
//===================================================
Long ll_rtn
String ls_Path
Long ll_hwd
ll_hwd = Handle( GetApplication())
If ll_hwd = 0 Then //调试模式
ls_Path = GetCurrentDirectory() +"\"
Else
ls_Path = Space(256)
ll_rtn = GetModuleFileName(ll_hwd, ls_Path, 256)
If (ll_rtn = 0) Then
ls_Path = ""
MessageBox("错误","获取程序目录失败！",stopsign!)
End If
End If
Return ls_Path
您阅读本篇文章共花了： 免责声明
本站内容均为博客主本人日常使用记录的存档，如侵犯你的权益请联系：lifei@zaiheze.com 546262132@qq.com 沟通删除事宜。本站仅带访问端口形式使用，已杜绝搜索引擎爬取。
