当前位置:编程学习 > Delphi >>

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

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

1、获取windows版本信息

可以通过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.

或用以下代码:

memo1.Text:=IntToStr(MemInfo.dwMemoryLoad)+%的内存正在使用+#13#10
            +可使用的物理内存有+IntToStr(MemInfo.dwAvailPhys)+字节+#13#10
            +交换文件总大小为+IntToStr(MemInfo.dwTotalPageFile)+字节+#13#10
            +尚可交换文件大小为+IntToStr(MemInfo.dwAvailPageFile)+字节+#13#10
            +总虚拟内存有+IntToStr(MemInfo.dwTotalVirtual)+字节+#13#10
            +未用虚拟内存有+IntToStr(MemInfo.dwAvailVirtual)+字节;

来替代memo1.line.add(…)部分。

4、获取Windows和系统路径

可以通过Windows API函数来获得

具体程序如下:

procedure TForm1.Button1Click(Sender: TObject);
            Var
            SysDir:array[0..128] of char;
            begin
            GetWindowsDirectory(SysDir,128);
            Edit1.Text:=Windows 路径:+SysDir;
            GetSystemDirectory(SysDir,128);
            Edit1.Text:=Edit1.Text+; 系统路径:+SysDir;
            end;
            end.

其中,笔者通过更改数列的值:发现其中的128可更改为人以不小于16的的数值,若小于或等于16均出现异常(笔者的操作系统为Windows2000)。读者朋友不妨试试。

5、获取用户注册信息

我们都知道,一般在软件安装过程中,它都会提示用户,要求输入系列号或产品号和用户的一些注册信息(用户的公司名称、用户名等)以及安装的目录和路径等。

通过以下代码可查看用户注册信息:

procedure TForm1.Button1Click(Sender: TObject);
            Var
            Reg:TRegistry;
            begin
            Reg:=TRegistry.Create;
            Reg.RootKey:=HKEY_LOCAL_MACHINE;
            Reg.OpenKey(SoftwareMicrosoftWindows NTCurrentVersion,False);
            Edit1.Text:=当前路径:+Reg.CurrentPath;
            Edit2.Text:=产品系列号:+Reg.ReadString(ProductId);
            Edit3.Text:=产品名:+Reg.ReadString(ProductName);
            Edit4.Text:=注册公司名称:+Reg.ReadString(RegisteredOrganization);
            Edit5.Text:=用户名:+Reg.ReadString(RegisteredOwner);
            Edit6.Text:=软件类型:+Reg.ReadString(SoftwareType);
            Reg.CloseKey;
            Reg.Free;
            end;
            end.

注意:在程序编译之前,必须在USES语句下添加registry单元。

6、关闭Widows

可以通过Windows API函数ExitWindowsEx来关闭Widows。

procedure TForm1.Button1Click(Sender: TObject);
            begin
            if RadioButton1.Checked=true then
            ExitWindowsEx(EWX_LOGOFF,0) //以其他用户身份登录
            else if RadioButton2.Checked=true then
            ExitWindowsEx(EWX_SHUTDOWN,1) //安全关机
            else if RadioButton3.Checked=true then
补充:软件开发 , Delphi ,
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,