extlib.dll具体应用，PB10测试通过

//判断是否NT系统 function Boolean IsWindowsNt() library 'extlib.dll' ALIAS FOR "GetUserNameA;Ansi" //获得打印机总数 function integer GetPrinterCounts() library 'extlib.dll' ALIAS FOR "IsWindowsNt;Ansi" //得到打印机名称 function string GetPrinterName(integer iIndex) library 'extlib.dll' ALIAS FOR "GetPrinterName;Ansi" //得到缺省打印机 function string GetDefaultPrinter() library 'extlib.dll' ALIAS FOR "GetDefaultPrinter;Ansi" //在9x下自定义纸张大小 function integer SetPaperSizeFor9x(String PrinterName,integer PaperWidth,integer PaperLength) library 'extlib.dll' ALIAS FOR "SetPaperSizeFor9x;Ansi" //在NT下新增一个自定义大小的纸张 function integer AddFormForNT(string FormName,double PaperWidth,double PaperLength) library 'extlib.dll' ALIAS FOR "AddFormForNT;Ansi" //在NT下删除一个自定义大小的纸张 function integer DeleteFormForNT(String PrinterName,string FormName) library 'extlib.dll' ALIAS FOR "DeleteFormForNT;Ansi" //获取当前打印机所支持的纸张 function Integer GetPaperList(ref str_PaperList pList) library 'extlib.dll' ALIAS FOR "GetPaperList;Ansi" //获取指定打印机的端口 function string GetPrinterPort(string PrinterName) library 'extlib.dll' ALIAS FOR "GetPrinterPort;Ansi" //获取指定打印机的状态 function Integer GetPrinterStatus(string PrinterName) library 'extlib.dll' ALIAS FOR "GetPrinterStatus;Ansi" ////获取指定打印机的缺省纸张名称 function Integer GetPrinterPaper(string PrinterName) library 'extlib.dll' ALIAS FOR "GetPrinterPaper;Ansi" //获取指定打印机的纸张方向 function Integer GetPrinterOrientation(string PrinterName) library 'extlib.dll' ALIAS FOR "GetPrinterOrientation;Ansi" //设值指定打印机的纸张方向 function Integer SetPrinterOrientation(String PrinterName,Integer Orientation) library 'extlib.dll' ALIAS FOR "SetPrinterOrientation;Ansi" //设值缺省打印机 function Integer SetDefaultPrinter(String PrinterName) library 'extlib.dll' ALIAS FOR "SetDefaultPrinter;Ansi" //设置打印机属性 function Integer SetPrinterProperties(ulong HWND,String PrinterName) library 'extlib.dll' ALIAS FOR "SetPrinterProperties;Ansi" //设置缺省纸张 function Integer SetDefaultPaper(String PrinterName,Integer PaperIndex,Integer PaperWidth,Integer PaperHeight) library 'extlib.dll' ALIAS FOR "SetDefaultPaper;Ansi" //获取打印机的当前任务列表 function Integer GetPrinterJobs(String PrinterName,ref str_PrinterJobList JobList) library 'extlib.dll' ALIAS FOR "GetPrinterJobs;Ansi" //返回本机的IP地址 function string GetLocalIP() library 'extlib.dll' ALIAS FOR "GetLocalIP;Ansi" //根据IP地址返回机器名 function string GetNameByIPAddr(string as_ip) library 'extlib.dll' ALIAS FOR "GetNameByIPAddr;Ansi" //根据机器名返回IP地址 function string GetIPAddrByName(string as_name) library 'extlib.dll' ALIAS FOR "GetIPAddrByName;Ansi" //获取工作组信息 function string GetGroupList() library 'extlib.dll' ALIAS FOR "GetGroupList;Ansi" //获取工作组中的机器列表 function Integer GetComputerList(string WorkGroupName,ref str_DelphiResult Result) library 'extlib.dll' ALIAS FOR "GetComputerList;Ansi" //取得CPU信息 function Integer GetCPUInfo(ref str_CPUInfo CPUInfo) library 'extlib.dll' ALIAS FOR "GetCPUInfo;Ansi" //取得IDE物理序列号 function string GetIdeDiskSerialNumber() library 'extlib.dll' ALIAS FOR "GetIdeDiskSerialNumber;Ansi" //取得SCSI物理序列号,如果没装SCSI硬盘则返回IDE硬盘的序列号 function string GetScsiSerialNumber() library 'extlib.dll' ALIAS FOR "GetScsiSerialNumber;Ansi" //获得当前网段内的SQLSERVER服务器列表 function string GetSQLServerList() library 'extlib.dll' ALIAS FOR "GetSQLServerList;Ansi" //base64编码 function Integer Base64EnCode(string as_code,string CodeTable,ref str_DelphiResult Result) library 'extlib.dll' ALIAS FOR "Base64EnCode;Ansi" //base64解码 function Integer Base64DeCode(string as_code,string CodeTable,ref str_DelphiResult Result) library 'extlib.dll' ALIAS FOR "Base64DeCode;Ansi" //MD5加密 function string MD5EnCode(string as_code) library 'extlib.dll' ALIAS FOR "MD5EnCode;Ansi" ////DES加密,只能使用8位密钥 function string DesEnCode(string as_code,string as_key) library 'extlib.dll' ALIAS FOR "DesEnCode;Ansi" ////DES解密,只能使用8位密钥 function string DesDeCode(string as_code,string as_key) library 'extlib.dll' ALIAS FOR "DesDeCode;Ansi" ////DES加密,返回用十六制编码的密文,可避免特殊字符的存储问题,只能使用64bit(8字节)密钥 function string DesEnCodeHex(string as_code,string as_key) library 'extlib.dll' ALIAS FOR "DesEnCodeHex;Ansi" ////DES解密,十六制编码的密文的解密函数,只能使用64bit(8字节)密钥 function string DesDeCodeHex(string as_code,string as_key) library 'extlib.dll' ALIAS FOR "DesDeCodeHex;Ansi" ////获取字体列表 //function Integer GetFontList(ref str_FontList pList) library 'extlib.dll' ALIAS FOR "GetFontList;Ansi" //根据坐标抓图保存为BMP function Integer GetScreenBMP(Integer x1,Integer y1,Integer x2,Integer y2,String FileName) library 'extlib.dll' ALIAS FOR "GetScreenBMP;Ansi" //根据窗口句柄抓图保存为BMP function Integer GetWindowBMP(ulong HWND,String FileName) library 'extlib.dll' ALIAS FOR "GetWindowBMP;Ansi"