//使用regasm命令注册unzipfile.dll
int li_ret
li_ret = run("regasm unzipfile.dll /tlb:unzipfile.tlb",minimized!)
if li_ret<>1 then
messagebox('','unzipfile.dll注册失败!')
return
end if
<pre name="code" class="plain">oleobject unzip
unzip = create oleobject
unzip.connecttonewobject("unzipfile.Unzip")
"unzipfile"为命名空间名称。
“Unzip”为类名。
PB程序调用方法:
string ls_ret
ls_ret = unzip.unmakezipfile("","","")