- ·上一篇文章:PB中如何获得计算机的名称
- ·下一篇文章:为什么要用UML建模之建模的重要性
PB中如何获得当前应用程序的路径
:2010-03-25 08:41:00
有时,我们在编写PB应用程序时,想获得当前应用程序的路径,我们可以借助API函数来实现,下面是具体的实现源代码。
//如何获得当前应用程序的路径
FUNCTION unit getmodulefilenamea(ulong hmodule,ref string lpfilename,ulong nsize)library "kernel32.dll"
string ls_buffer=space(255)
int i
if getmodulefilenamea(handle(getapplication()),ls_buffer,255)=0 then
setnull(ls_buffer)
else
do while pos(ls_buffer,"\",i+1)>0
i=pos(ls_buffer,"\",i+1)
loop
ls_buffer=left(ls_buffer,i)
if right(ls_buffer,1)<>"\" then ls_buffer=ls_buffer+"\"
end if
return ls_buffer
!
PB中如何获得当前应用程序的路径