//====================================================================
// 说明:获取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