几个获取Windows系统信息的Delphi程序
来源:互联网 发布:淘宝店开通不了花呗 编辑:程序博客网 时间:2024/06/05 17:45
本文所有的窗体界面略去,读者可根据程序自行添加各窗口组件。1、获取windows版本信息可以通过Windows API函数GetVersionEx来获得。具体程序如下:Procedure Tform1.Button1Click(sender:TObject);VarOSVI:OSVERSIONINFO;beginOSVI.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);VarSysInfo:SYSTEM_INFO;beginGetSystemInfo(Sysinfo);Edit1.Text:='系统中有'+IntToStr(Sysinfo.dwNumberOfProcessors)+'个CPU'+',类型为'+IntToStr(Sysinfo.dwProcessorType); end;end.3、获取内存信息可以通过Windows API函数GlobalMemoryStatus来获得内存信息。具体程序如下:procedure TForm1.Button1Click(Sender: TObject);VarMemInfo:MEMORYSTATUS;beginMemInfo.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);VarSysDir:array[0..128] of char;beginGetWindowsDirectory(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);VarReg:TRegistry;beginReg:=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);beginif RadioButton1.Checked=true thenExitWindowsEx(EWX_LOGOFF,0) //以其他用户身份登录else if RadioButton2.Checked=true thenExitWindowsEx(EWX_SHUTDOWN,1) //安全关机
- 几个获取Windows系统信息的Delphi程序
- 几个获取Windows系统信息的Delphi程序
- 几个获取Windows系统信息的Delphi程序
- 几个获取Windows系统信息的Delphi程序
- 几个获取Windows系统信息的Delphi程序
- 几个获取Windows系统信息的Delphi程序
- 几个获取Windows系统信息的Delphi程序
- 几个获取Windows系统信息的Delphi程序
- delphi获取Windows系统的进程运行信息
- Delphi常用获取系统信息的函数
- DELPHI获取系统电源状态的信息
- delphi获取windows系统版本信息,大全,准确
- delphi获取windows系统版本信息,大全,准确
- 使用Delphi获取系统信息
- 复制自身程序到windows目录和系统目录,获取系统的相关信息
- 获取windows系统信息
- 获取windows系统信息
- 获取windows 系统信息
- 华为软件编程规范和范例
- [n年以前的诗] 床
- 简单的成绩判断
- 我的第一篇 blog
- 浅谈公路工程项目管理的发展趋势
- 几个获取Windows系统信息的Delphi程序
- 名人的博客为名人带来了什么
- .NET中访问Oracle数据库链接:ORA-02041: client database did not begin a transaction 问题的处理。
- m3g导出工具
- 今天决定要开始自己博了,除了转贴,就是要博自己
- 辞职:也要像个君子般离开!
- 测试你的心理年龄
- 风雪残月
- [原创]Woden的艰辛找工历程