pb获得系统基本信息.docVIP

获得系统基本信息 当一个应用program在工作时,会不可避免地和操作系统发生数据交换,虽然在PB中提供了Environment对象来获得系统的一些信息,然而这些信息往往是不够的,例如CPU、本机IP地址等,这些内容只有用Windows API来获得了. 1、建立一个工作空间（workspace）,取名为：systeminfo. 2、建立一个应用（application）,取名为：systeminfo. 3、创建用户对象u_sysinfo,并添加Microsoft Winsock OCX Control . 4、定义u_sysinfo的实例变量. public: string cpuid,cpuprovider string filesystem,volumename ulong VolumeSerialNumber,MaxComponentLength,FileSystemFlags long dlength,dmemoryload,dtotalphys,davailphys,dtotalpagefile long davailpagefile,dtotalvirtual,davailvirtual ulong dwoemid,dwpagesize,lpminappaddress,lpmaxappaddress,dwactiveprocessormask ulong dwnumberofprocessors,dwprocessortype,dwallocationgranularity,dwreserved ulong sectorspercluster,bytespersector,numberoffreeclusters,totalnumberofclusters ulong mbtotal,mbfree 5、定义u_sysinfo的局部外部函数 PUBLIC FUNCTION ulong GetComputerName(ref string lpBuffer,ref ulong nSize) LIBRARY kernel32.dll ALIAS FOR GetComputerNameA PUBLIC FUNCTION ulong GetDriveType(string nDrive) LIBRARY kernel32.dll ALIAS FOR GetDriveTypeA FUNCTION ulong GetDiskFreeSpace(ref string lpRootPathName,ref ulong? lpSectorsPerCluster,ref ulong lpBytesPerSector,ref ulong? lpNumberOfFreeClusters,ref ulong lpTtoalNumberOfClusters) LIBRARY kernel32.dll ALIAS FOR GetDiskFreeSpaceA PUBLIC FUNCTION ulong GetTickCount() LIBRARY kernel32.dll PUBLIC Subroutine GetSystemInfo(ref ws_info lpSystemInfo) LIBRARY kernel32.dll PUBLIC FUNCTION ulong waveOutGetNumDevs() LIBRARY winmm.dll PUBLIC FUNCTION ulong WNetGetUser(ref string lpName,ref string lpUserName,ref ulong lpnLength) LIBRARY mpr ALIAS FOR WNetGetUserA PUBLIC FUNCTION ulong GetSystemMetrics(ulong nIndex) LIBRARY user32.dll PUBLIC FUNCTION ulong GetWindowsDirectory(ref string lpBuffer,ulong nSize) LIBRARY kernel32.dll ALIAS FOR GetWindowsDirectoryA PUBLIC FUNCTION ulong GetSystemDirectory(ref string lpBuffer,ulong nSize) LIBRARY kernel32.dll ALIAS FOR GetSystemDirectoryA PUBLIC FUNCTION ulong GetTempPath(ulong nBufferLength,ref string