得到程序运行的当前路径

1、在Declare中声明外部函数:  
  Function   ulong   GetCurrentDirectoryA   (ulong   textlen,   ref   string   dirtext)   library   "KERNEL32.DLL"  
  2、编写代码  
  ulong   lu_len  
  string   ls_text  
  lu_len   =   144  
  ls_text   =   space(144)  
  GetCurrentDirectoryA(lu_len,ls_text)     //调用函数  
  ls_text=Trim(ls_text)   //获得当前应用所在路径