Delphi JEDI TJvComputerInfoEx 取得系統資訊

需先安裝 JEDI VCL for Delphi

uses
  JvComputerInfoEx;

procedure TForm1.FormCreate(Sender: TObject);
var
  JvComputerInfoEx1: TJvComputerInfoEx;
begin
  JvComputerInfoEx1 := TJvComputerInfoEx.Create(Self);
  with JvComputerInfoEx1, Memo1.Lines do
  begin
    Clear;
    Values['OS Name'] := OS.ProductName +' '+ OS.VersionCSDString;
    Values['CPU'] := CPU.Name;
    Values['Screen'] := Format('%d X %d', [Screen.Width, Screen.Height]);
    Values['Battery'] :=  Format('%d%%', [APM.BatteryLifePercent]);
    Values['Desktop'] := Folders.Desktop;
    Values['IPAddress'] := Identification.IPAddress;
    Values['DomainName'] := Identification.DomainName;
  end;
  JvComputerInfoEx1.Free;
end;
{ Memo1
OS Name=Microsoft Windows XP Service Pack 2
CPU=Intel(R) Core(TM)2 Duo CPU     T7300  @ 2.00GHz
Screen=1280 X 800
Battery=79%
Desktop=C:\Documents and Settings\Administrator\桌面
IPAddress=169.254.254.234
DomainName=SOLNONE
}