阿辉 发表于 2006-2-6 13:58:35

[转帖]在PB中如何得到程序的运行路径？

<P>１、先申明外部函数</P>
<P>FUNCTION ulong GetModuleFileName(ulong hModule,ref string lpFileName,ulong nSize) LIBRARY "kernel32.dll" ALIAS FOR "GetModuleFileNameA"</P>
<P>2、下面的代码</P>
<P>string gs_currdir<BR>gs_currdir = Space(256)<BR>GetModuleFileName(0, gs_currdir, 256)<BR>Environment E_nv<BR>Int li_PBversion<BR>GetEnvironment(E_nv)<BR>li_PBversion = E_nv.PBMajorRevision<BR>IF Pos(gs_currdir,"pb"+String(li_PBversion)+"0.exe") &gt; 0 THEN<BR>gs_currdir = GetCurrentDirectory ( )<BR>ELSE<BR>gs_currdir = Left(gs_currdir,LastPos(gs_currdir,"\") -1)<BR>END IF</P>
<P>3、ＯＫ！</P>
<P>说明：pb9.0及以上的GetCuttentDirectory()并不是得到程序运行的路径， 而是得到当前的工作路径，在程序运行当中，工作路径是可能会改变的。</P>
页: [1]
查看完整版本: [转帖]在PB中如何得到程序的运行路径？

免责声明：
本站所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的；不得将上述内容用于商业或者非法用途，否则，一切后果请用户自负。本站信息来自网络，版权争议与本站无关。您必须在下载后的24个小时之内，从您的电脑中彻底删除上述内容。如果您喜欢该程序，请支持正版软件，购买注册，得到更好的正版服务。如有侵权请邮件与我们联系处理。

Mail To:Admin@SybaseBbs.com