几个获取Windows系统信息的Delphi程序
2008-11-23 20:47
676 查看
几个获取Windows系统信息的Delphi程序
本文所有的窗体界面略去,读者可根据程序自行添加各窗口组件。
1、获取windows版本信息
可以通过Windows API函数GetVersionEx来获得。
具体程序如下:
2、获取CPU信息
可以通过Windows API函数GetSystemInfo来获得有关信息。
具体程序如下:
3、获取内存信息
可以通过Windows API函数GlobalMemoryStatus来获得内存信息。
具体程序如下:
或用以下代码:
来替代memo1.line.add(…)部分。
4、获取Windows和系统路径
可以通过Windows API函数来获得
具体程序如下:
其中,笔者通过更改数列的值:发现其中的128可更改为人以不小于16的的数值,若小于或等于16均出现异常(笔者的操作系统为Windows2000)。读者朋友不妨试试。
5、获取用户注册[b]信息 [/b]
我们都知道,一般在软件安装过程中,它都会提示用户,要求输入系列号或产品号和用户的一些注册信息(用户的公司名称、用户名等)以及安装的目录和路径等。
通过以下代码可查看用户注册信息:
注意:在程序编译之前,必须在USES语句下添加registry单元。
6、关闭Widows
可以通过Windows API函数ExitWindowsEx来关闭Widows。
本文所有的窗体界面略去,读者可根据程序自行添加各窗口组件。
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. |
可以通过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. |
可以通过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)+'字节'; |
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. |
5、获取用户注册[b]信息 [/b]
我们都知道,一般在软件安装过程中,它都会提示用户,要求输入系列号或产品号和用户的一些注册信息(用户的公司名称、用户名等)以及安装的目录和路径等。
通过以下代码可查看用户注册信息:
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. |
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. |
相关文章推荐
- 几个获取Windows系统信息的Delphi程序
- 几个获取Windows系统信息的Delphi程序
- 几个获取Windows系统信息的Delphi程序
- 几个获取Windows系统信息的Delphi程序
- 几个获取Windows系统信息的Delphi程序
- 几个获取windows系统信息的程序
- 获取Windows系统信息的Delphi程序
- delphi获取windows系统版本信息,大全,准确
- delphi获取Windows系统的进程运行信息
- 复制自身程序到windows目录和系统目录,获取系统的相关信息
- delphi获取windows系统版本信息,大全,准确
- 几个获取Windows系统信息的Delphi程序
- Python用WMI模块获取Windows系统的硬件信息
- 从Windows系统服务获取活动用户的注册表信息
- sql server 安装程序无法获取aspnet帐户的系统帐户信息
- 【杂谈】在XP下安装SQL 2005开发版时出现:SQL Server 安装程序无法获取 ASPNET 帐户的系统帐户信息
- 关于 SQL 2005 安装程序无法获取ASPNET账户的系统账户信息 错误解决办法
- SQL Server2005 安装程序无法获取ASPNET账户的系统账户信息
- [转]SQL Server 安装程序无法获取 ASPNET 帐户的系统帐户信息
- Python WMI获取Windows系统信息 监控系统