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. 

procedure TForm1.Button1Click(Sender: TObject);  
Var  
SysInfo:SYSTEM_INFO;  
begin  
GetSystemInfo(Sysinfo);  
Edit1.Text:='系统中有'+IntToStr(Sysinfo.dwNumberOfProcessors)+'个CPU'  
+',类型为'+IntToStr(Sysinfo.dwProcessorType);  
end;  
 
end.  

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)+'字节';  

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. 

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.  

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.