pb获取EXE全路径

//====================================================================
// 说明:获取EXE全路径
//--------------------------------------------------------------------
// 作者:vesn http://www.vesn.net/vdn.aspx	日期: 2015-2-20
//====================================================================
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