CSDN博客

img tangkuai

利用Windows API函数和注册表获取系统信息

发表于2004/9/30 0:13:00  815人阅读

分类: 一些好的技术资料


利用Windows API函数和注册表获取系统信息
作者: 评价: 上站日期: 2004-04-18
内容说明:
来源:

在开发应用程序时,增加一项显示计算机系统信息的功能,例如已安装的软盘、硬盘、光驱、网络驱动器,硬盘的容量和剩余空间,显示器分辨率、键盘类型、鼠标的键数,内存大小、CPU类型,Windows的版本号、产品标识、注册用户单位名和用户名、当前操作用户名等(见运行图示),当然还有更多的信息,这样会使你的程序更友好。其实,有很多应用程序就是这样做的。

  通过调用Windows的API函数和访问Windows注册表,可以获取大量的系统信息。Delphi为绝大多数WindowsAPI函数提供了调用接口(可参见DELPHI3/SOURCE/RTL/WIN/windows.pas文件),并提供了一个功能全面的TRegistry类,使我们可以方便的调用WindowsAPI函数和访问注册表,例如:
  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/description/
system/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 

0 0

相关博文

我的热门文章

img
取 消
img