几个获取Windows系统信息的Delphi程序

本文所有的窗体界面略去，读者可根据程序自行添加各窗口组件。

1、获取windows版本信息

软件开发网 www.mscto.com

可以通过Windows API函数GetVersionEx来获得。

具体程序如下：

Procedure Tform1.Button1Click(sender:TObject);

            Var

            OSVI:OSVERSIONINFO;

            begin

            OSVI.dwOSversioninfoSize:=Sizeof(OSVERSIONINFO)；

            GetVersionEx(OSVI);

            label1.Caption:=IntToStr(OSVI.dwMinorVersion) ","

             IntToStr(OSVI.dwMinorVersion) ","

             IntToStr(OSVI.dwBuildNumber) ","

             IntToStr(OSVI.dwPlatformId) ","

             OSVI.szCSDVersion;

            end;

            end.  

2、获取CPU信息

可以通过Windows API函数GetSystemInfo来获得有关信息。

具体程序如下：

procedure TForm1.Button1Click(Sender: TObject);

            Var

            SysInfo:SYSTEM_INFO;

            begin

            GetSystemInfo(Sysinfo);

            Edit1.Text:="系统中有" IntToStr(Sysinfo.dwNumberOfProcessors) "个CPU"

             ",类型为" IntToStr(Sysinfo.dwProcessorType);

            end;

            end. 
 

3、获取内存信息

可以通过Windows API函数GlobalMemoryStatus来获得内存信息。

具体程序如下：

procedure TForm1.Button1Click(Sender: TObject);

            Var

            MemInfo:MEMORYSTATUS;

            begin

            MemInfo.dwLength:=sizeof(MEMORYSTATUS);

            GlobalMemoryStatus(MemInfo);

            memo1.Lines.Add(IntToStr(MemInfo.dwMemoryLoad) "%的内存正在使用") ;

            memo1.Lines.Add("物理内存共有" IntToStr(MemInfo.dwTotalPhys) "字节");

            memo1.Lines.Add("可使用的物理内存有" IntToStr(MemInfo.dwAvailPhys) "字节");

            memo1.Lines.Add("交换文件总大小为" IntToStr(MemInfo.dwTotalPageFile) "字节") ;

            memo1.Lines.Add("尚可交换文件大小为" IntToStr(MemInfo.dwAvailPageFile) "字节");

            memo1.Lines.Add("总虚拟内存有" IntToStr(MemInfo.dwTotalVirtual) "字节");

            memo1.Lines.Add("未用虚拟内存有" IntToStr(MemInfo.dwAvailVirtual) "字节");

            end;

            end.  

或用以下代码：