谢建华

本文所有的窗体界面略去，读者可根据程序自行添加各窗口组件。
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.Te