几个获取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
[解决办法]
沙发
[解决办法]
学习
[解决办法]
好文
[解决办法]
学习中...
[解决办法]
也来瞧瞧
[解决办法]
学到了
[解决办法]
好东西
[解决办法]
收藏
[解决办法]
收藏
,too
