標籤：lin line apt 啟動 orm cto page reads rod
本文所有的表單介面略去，讀者可根據程式自行添加各視窗組件。
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://tech.ccidnet.com/art/1079/20060407/500873_1.html
http://blog.csdn.net/akof1314/article/details/6191051
幾個擷取Windows系統資訊的Delphi程式
