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

转载 2007年09月12日 11:30:00

几个获取Windows系统信息的Delphi程序
http://www.souzz.net 2006-04-28 文章出处:赛迪网社区
 

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

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.

获取当前系统的信息(CPU、物理内存、虚拟内存等

获取计算机CPU、主板、内存、硬盘、网卡这些信息,Qt中没有相应的处理,所以需要根据平台来做相应的处理。也许Qt为了跨平台,没有提供与操作系统和硬件密切相关的一些功能(如内存、CPU、硬盘等相关信息)...
  • liulihuo_gyh
  • liulihuo_gyh
  • 2016年03月26日 15:47
  • 1748

C语言获取Windows系统进程信息

#include #include //进程快照函数头文件 #include int main() { int countProcess=0; //当前进程数量计数变量 P...
  • lynch0571
  • lynch0571
  • 2014年06月21日 19:02
  • 2855

Python获取CPU、内存和硬盘等windowns系统信息的2个例子

例子一: Python用WMI模块获取windowns系统的硬件信息:硬盘分区、使用情况,内存大小,CPU型号,当前运行的进程,自启动程序及位置,系统的版本等信息。 复制代码代码如...
  • hewei0241
  • hewei0241
  • 2014年07月01日 23:02
  • 7676

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

1、获取windows版本信息 可以通过Windows API函数GetVersionEx来获得。 具体程序如下: Procedure Tform1.Button1Cl...
  • fyl_077
  • fyl_077
  • 2013年12月29日 19:47
  • 534

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

几个获取Windows系统信息的Delphi程序,如获取用户注册信息等等。
  • akof1314
  • akof1314
  • 2011年02月17日 11:06
  • 2387

delphi获取windows系统版本信息,大全,准确

很多时候从网上找到的取操作系统版本的代码都不是很准确,有些信息也不全面。为此,在msdn上找到全面的信息整理成代码,共享! unit WindowsSysVersion; interface u...
  • aTian2009
  • aTian2009
  • 2012年04月06日 16:49
  • 1910

delphi获取windows系统版本信息,大全,准确

很多时候从网上找到的取操作系统版本的代码都不是很准确,有些信息也不全面。为此,在msdn上找到全面的信息整理成代码,共享! unit WindowsSysVersion; interface u...
  • fyl_077
  • fyl_077
  • 2013年12月26日 23:49
  • 562

局域网windows系统信息稍描程序

  • 2009年01月09日 14:03
  • 162KB
  • 下载

C++获取Windows系统License信息的方法

是通过调用WMI获得License信息的。 #include "stdafx.h" #include #include #include #include #include #includ...
  • haoshen1987
  • haoshen1987
  • 2013年07月04日 16:59
  • 2529

Python用WMI模块获取Windows系统的硬件信息

Python用WMI模块获取Windows系统的硬件信息:硬盘分区、使用情况,内存大小,CPU型号,当前运行的进程,自启动程序及位置,系统的版本等信息。 本文实例讲述了python使用wmi模块获取...
  • xy2953396112
  • xy2953396112
  • 2017年01月18日 11:29
  • 1160
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:几个获取Windows系统信息的Delphi程序
举报原因:
原因补充:

(最多只允许输入30个字)