pb清空数组

1、 清空数组
string a[],b[]
a[1] = '1';a[1] = '2';a[1] = '3'
a = b//即可以清空a

2、 两个结构相同的数据窗口之间快速复制数

dw_1.object.data = dw_2.object.data 

3、 判断计算器是否存在：
string is_fileExists
boolean is_Exists
is_fileExists='c:\windows\calc.exe'
is_Exists=fileExists(is_fileExists)
if is_Exists then
        run("c:\windows\calc.exe")
else
        messagebox("提示信息","本机的WINDOWS没有计算器！",stopsign!)
end if

35.得到硬盘序例号
String ls_Rootpath, ls_volumnename ,ls_return,softpath
GetCurrentDirectoryA(256,softpath)
softpath=left(softpath,2)
if softpath='C:' then
        ls_Rootpath =