vb利用api和注冊(cè)表獲取系統(tǒng)信息上

1、VB 利用 API 和注冊(cè)表獲取系統(tǒng)信息上在開發(fā)應(yīng)用程序時(shí)，增加一項(xiàng)顯示計(jì)算機(jī)系統(tǒng)信息的功能，例如已安裝的軟盤、硬盤、光驅(qū)、網(wǎng)絡(luò)驅(qū)動(dòng)器，硬盤的容量和剩余空間，顯示器分辨率、鍵盤類型、鼠標(biāo)的鍵數(shù)，內(nèi)存大小、CPU 類型，Windows 的版本號(hào)、產(chǎn)品標(biāo)識(shí)、注冊(cè)用戶單位名和用戶名、當(dāng)前操作用戶名等(見運(yùn)行圖示)，當(dāng)然還有更多的信息，這樣會(huì)使你的程序更友好。其實(shí)，有很多應(yīng)用程序就是這樣做的。通過調(diào)用 Windows 的 API 函數(shù)和訪問 W

2、indows 注冊(cè)表，可以獲取大量的系統(tǒng)信息。Delphi 為絕大多數(shù) WindowsAPI 函數(shù)提供了調(diào)用接口(可參見DELPHI3\SOURCE\RTL\WIN\windows.pas 文件)，并提供了一個(gè)功能全面的 TRegistry 類，使我們可以方便的調(diào)用 WindowsAPI 函數(shù)和訪問注冊(cè)表，例如：1、function GetDriveType(lpRootPathName: PChar): UINT;返回指定驅(qū)動(dòng)器的類型

3、。2、function GetDiskFreeSpace(lpRootPathName: PChar; var lpSectorsPerCluster, lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters: DWORD): BOOL;返回指定驅(qū)動(dòng)器的總簇?cái)?shù)、剩余簇?cái)?shù)及每簇扇區(qū)數(shù)、每扇區(qū)字節(jié)數(shù)，從而可以計(jì)算出總?cè)萘亢褪Ｓ嗫臻g。3、function GetSys

4、temMetrics(SM_CXSCREEN 或 SM_CYSCREEN): Integer;返回顯示器分辨率。4、function GetSystemMetrics(SM_CMOUSEBUTTONS): Integer;返回鼠標(biāo)的按鍵數(shù)目。5、 在 windows 注 冊(cè) 表 的 HKEY_LOCAL_MACHINE\ software\microsoft\windows\currentversion \RegisteredOwner

5、 主鍵下存放著 Windows 安裝時(shí)輸入的用戶名,可用以下語句讀取。 myreg:=Tregistry.Create; file://必須在程序單元的 uses 部分加入 Registrymyreg.RootKey:=HKEY_LOCAL_MACHINE;if myreg.openkey('software\microsoft \windows\currentversion',false) thenmemo1.line

6、s.add(' 注冊(cè)用戶名: '+myreg.readstring('RegisteredOwner'));myreg.closekey; 以上僅舉幾例，獲取其他一些信息的方法與此類似，詳見源程序。本程序在 Pwin95、Delphi3 下調(diào)試通過。附:源程序清單。unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics

7、, Controls, Forms, Dialogs, StdCtrls,Registry;typeTForm1 = class(TForm)Button1: TButton;Memo1: TMemo;procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm