PB12.0调试没有问题，发布成可执行文件后运行崩溃
public function boolean getcurrentdirectorya (integer sa,ref string lppathname) library "kernel32.dll" alias for "GetCurrentDirectoryA;Ansi"
试试直接用PB的GetCurrentDirectory函数（pb10以上版本里都有），如果你的PB版本里没有这个函数，那么引用api函数之前，需要分配空间（用space函数），否则很容易出错
