几个获取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('Software\Microsoft\Windows NT\CurrentVersion',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
            ExitWindowsEx(EWX_REBOOT,2) //重新启动计算机
            else if RadioButton4.Checked=true then
            ExitWindowsEx(EWX_FORCE,4) //强行关机
            else if RadioButton5.Checked=true then
            ExitWindowsEx(EWX_POWEROFF,8); //关闭系统并关闭电源
            end;
            end.
       转http://www.chinaitpower.com/2006Aug/2006-10-05/216808.html