江西广告网

标题: 利用Windows API函数和注册表获取系统信息 [打印本页]

作者: 知不知道 时间: 2008-12-16 10:09
标题: 利用Windows API函数和注册表获取系统信息

　　在开发应用程序时，增加一项显示计算机系统信息的功能，例如已安装的软盘、硬盘、光驱、网络驱动器，硬盘的容量和剩余空间，显示器分辨率、键盘类型、鼠标的键数，内存大小、CPU 类型，Windows 的版本号、产品标识、注册用户单位名和用户名、当前操作用户名等( 见运行图示)，当然还有更多的信息，这样会使你的程序更友好。其实，有很多应用程序就是这样做的。
　　
　　　　通过调用Windows 的API 函数和访问Windows 注册表，可以获取大量的系统信息。Delphi 为绝大多数Windows API 函数提供了调用接口( 可参见DELPHI3\SOURCE\RTL\WIN\windows.pas 文件)，并提供了一个功能全面的TRegistry 类，使我们可以方便的调用Windows API 函数和访问注册表，例如：
　　
　　　　1、function GetDriveType(lpRootPathName: PChar): UINT; 返回指定驱动器的类型。
　　
　　　　2、function GetDiskFreeSpace(lpRootPathName: PChar; var lpSectorsPerCluster, lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters: DWORD): BOOL; 返回指定驱动器的总簇数、剩余簇数及每簇扇区数、每扇区字节数，从而可以计算出总容量和剩余空间。
　　
　　　　3、function GetSystemMetrics(SM_CXSCREEN或 SM_CYSCREEN): Integer; 返回显示器分辨率。
　　
　　　　4、function GetSystemMetrics(SM_CMOUSEBUTTONS): Integer; 返回鼠标的按键数目。
　　
　　　　5、在windows 注册表的HKEY_LOCAL_MACHINE\ software\microsoft\windows\currentversion \RegisteredOwner 主键下存放着Windows 安装时输入的用户名, 可用以下语句读取。
　　
　　myreg:=Tregistry.Create;
　　file://必须在程序单元的uses部分加入Registry
　　myreg.RootKey:=HKEY_LOCAL_MACHINE;
　　if myreg.openkey('software\microsoft \windows\currentversion',false) then
　　　memo1.lines.add(' 注册用户名: ' myreg.readstring('RegisteredOwner'));
　　　myreg.closekey;
　　
　　　　以上仅举几例，获取其他一些信息的方法与此类似，详见源程序。
　　
　　　　本程序在Pwin95、Delphi3 下调试通过。
　　
　　　　附: 源程序清单。
　　
　　unit Unit1;
　　interface
　　uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Registry;
　　
　　type
　　TForm1 = class(TForm)
　　Button1: TButton;
　　Memo1: TMemo;
　　procedure Button1Click(Sender: TObject);
　　private
　　{ Private declarations }
　　public
　　{ Public declarations }
　　end;
　　
　　var
　　Form1: TForm1;
　　
　　implementation
　　{$R *.DFM}
　　
　　procedure TForm1.Button1Click(Sender: TObject);
　　var
　　i,x,y:integer;
　　ch:char; file://驱动器字符'A'~'Z'
　　buffer:string;
　　cpuinfo:TSYSTEMINFO; file://存放系统信息的记录类型,在Windows.pas中查到详细内容。
　　meminfo:TMemoryStatus; file://存放系统内存信息的记录类型。
　　computername,username:pchar; file://计算机名称、用户名
　　spc,bps,nofc,tnoc:longint; file://用于存放磁盘容量的变量
　　myreg:Tregistry; file://用于访问注册表的TRegistry变量
　　begin
　　memo1.Lines.Clear;
　　
　　for ch:='A' to 'Z' do begin
　　i:=getdrivetype(pchar(ch ':\'));
　　buffer:=' ' ch ': ';
　　case i of
　　DRIVE_UNKNOWN : buffer:=buffer '未知类型';
　　DRIVE_REMOVABLE: buffer:=buffer '软盘';
　　DRIVE_FIXED : begin
　　buffer:=buffer '硬盘';
　　if getdiskfreespace(pchar(ch ':\'),spc,bps,nofc,tnoc) then
　　begin
　　buffer:=buffer '总容量: ' inttostr((spc*bps*tnoc) div (1024*1024)) 'MB';
　　buffer:=buffer '剩余: ' inttostr((spc*bps*nofc) div (1024*1024)) 'MB';
　　end;
　　end;
　　DRIVE_REMOTE : buffer:=buffer '网络驱动器';
　　DRIVE_CDROM :buffer:=buffer 'CD-ROM驱动器';
　　DRIVE_RAMDISK:buffer:=buffer 'RAM虚拟驱动器';
　　end;
　　if (ch >'D') and (i=1) then break;
　　if i< >1 then memo1.Lines.Add(buffer);
　　end;
　　
　　case getkeyboardtype(0) of file://获取键盘类型
　　1: buffer:=' 键盘: IBM PC/XT或兼容类型(83键)';
　　2: buffer:=' 键盘: Olivetti "ICO"(102键)';
　　3: buffer:=' 键盘: IBM PC/AT(84键)';
　　4: buffer:=' 键盘: IBM增强型(101或102键)';
　　5: buffer:=' 键盘: Nokia 1050';
　　6: buffer:=' 键盘: Nokia 9140';
　　7: buffer:=' 键盘: Japanese';
　　end;
　　memo1.lines.add(buffer);
　　
　　file://获取键盘功能键数目
　　memo1.lines.add(' 功能键数目: ' inttostr(getkeyboardtype(2)));
　　
　　memo1.Lines.add('显示器分辨率: ' inttostr(getsystemmetrics(SM_CXSCREEN)) 'x'
　　inttostr(getsystemmetrics(SM_CYSCREEN)));
　　file://获取鼠标按键数目
　　memo1.Lines.add(' 鼠标: ' inttostr(getsystemmetrics(SM_CMOUSEBUTTONS)) '键');
　　
　　globalmemorystatus(meminfo); file://获取系统内存数量
　　memo1.lines.add(' 物理内存: ' inttostr(meminfo.dwTotalPhys div 1024) ' KB');
　　
　　i:=getsystemmetrics(SM_CLEANBOOT);
　　case i of
　　0:buffer:='系统启动模式:正常模式';
　　1:buffer:='系统启动模式:保护模式';
　　2:buffer:='系统启动模式:网络保护模式';
　　end;
　　memo1.lines.add(buffer);
　　
　　x:=getsystemmetrics(SM_ARRANGE);
　　file://获取系统最小化窗口的起始位置和排列方式
　　y:=x;
　　x:=x and 3;
　　y:=y and 12;
　　case x of
　　ARW_BOTTOMLEFT : buffer:=' 最小化窗口:自左下角';
　　ARW_BOTTOMRIGHT : buffer:=' 最小化窗口:自右下角';
　　ARW_TOPLEFT : buffer:=' 最小化窗口:自左上角';
　　ARW_TOPRIGHT : buffer:=' 最小化窗口:自右上角';
　　end;
　　case y of
　　ARW_LEFT : buffer:=buffer '横向排列';
　　ARW_UP : buffer:=buffer '纵向排列';
　　ARW_HIDE : buffer:=buffer '隐藏';
　　end;
　　memo1.lines.add(buffer);
　　
　　getmem(computername,255); file://获取计算机名称和用户名
　　getmem(username,255);
　　i:=255;
　　getcomputername(computername,i);
　　memo1.lines.add(' 计算机名称: ' computername);
　　getusername(username,i);
　　memo1.lines.add(' 用户名: ' username);
　　freemem(computername);
　　freemem(username);
　　
　　getsysteminfo(cpuinfo); file://获取CPU类型
　　case cpuinfo.dwProcessorType of
　　386 : buffer:=' CPU类型: 386';
　　486 : buffer:=' CPU类型: 486';
　　586 : buffer:=' CPU类型: Pentium';
　　end;
　　memo1.Lines.add(buffer);
　　
　　file://从注册表中获取CPU标识，Windows版本，
　　产品标识，注册单位名称及用户名
　　myreg:=Tregistry.Create;
　　myreg.RootKey:=HKEY_LOCAL_MACHINE;
　　if myreg.OpenKey('hardware\descriptionsystem\centralprocessor\0',false) then
　　memo1.lines.add(' CPU标识:
　　' myreg.ReadString('VendorIdentifier'));
　　myreg.closekey;
　　if myreg.openkey('software\microsoft\ windows\currentversion',false) then
　　begin
　　memo1.lines.add(' windows版本: ' myreg.ReadString('Version'));
　　memo1.lines.add(' 版本号: ' myreg.ReadString('VersionNumber') ' ' myreg.ReadString('Subversionnumber'));
　　memo1.lines.add(' 产品标识: ' myreg.Readstring('ProductID'));
　　memo1.lines.add('注册单位名称: ' myreg.readstring('RegisteredOrganization'));
　　memo1.lines.add(' 注册用户名: ' myreg.readstring('RegisteredOwner'));
　　end;
　　myreg.CloseKey;
　　myreg.Free;
　　end;
　　end
　　 <

欢迎光临江西广告网 (http://bbs.jxadw.com/)