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

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

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

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

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

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

6、s.add(' 注冊用戶名: '+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