//得到程序运行时的路径 //在global external functions声明: Function uLong GetModuleFileNameA(long hinstModule, Ref String lpszPath, uLong cchPath) Library ″kernel32.dll″ //程序路径保存在变量ls_AppPath中 string ls_AppPath int li_ret ls_AppPath = Space(128) li_ret = GetModuleFileNameA(Handle(GetApplication()),ls_apppath,128) //要编译成可执行文件.exe才可用,否则得到的是Powerbuilder的pb.exe的路径。 |
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------