PowerBuilder9.0 
 string  ls_str
 int len
 Init
 DoReg("xxxx",10,"yyyyy",100)
 len = 0  
 ls_str = space(200)
 GetDiskSerialNumber1("C", ref ls_str, ref len)
 MessageBox(string(len),left(ls_str,len))
subroutine GetDiskSerialNumber1(char msg, ref string sn, ref int len,Boolean PNPDeviceID)  library "jydisk.dll"  alias for"GetDiskSerialNumber1;Ansi"
subroutine doreg( string userid, int useridlen, string regid,int regidlen)  library "jydisk.dll"  alias for"DoReg;Ansi"
subroutine Init()  library "jydisk.dll"  alias for"Init;Ansi"
------------------------------------------------------------------------------------------------------------------------
