home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / zkuste / konfig / download / msic / DLL / Demo / Unit1.pas < prev   
Pascal/Delphi Source File  |  2003-04-01  |  2KB  |  81 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ExtCtrls, Tabs, Gauges;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Memo: TMemo;
  12.     Panel1: TPanel;
  13.     Image1: TImage;
  14.     Label1: TLabel;
  15.     Label2: TLabel;
  16.     CPUGauge: TGauge;
  17.     Timer: TTimer;
  18.     procedure FormCreate(Sender: TObject);
  19.     procedure Label2MouseEnter(Sender: TObject);
  20.     procedure Label2MouseLeave(Sender: TObject);
  21.     procedure Label2Click(Sender: TObject);
  22.     procedure TimerTimer(Sender: TObject);
  23.   private
  24.   public
  25.   end;
  26.  
  27. var
  28.   Form1: TForm1;
  29.  
  30. implementation
  31.  
  32. uses
  33.   MSIC_Intf, XMLDoc, XMLIntf, XmlDom, MSI_CPUUsage;
  34.  
  35. {$R *.dfm}
  36.  
  37. procedure TForm1.FormCreate(Sender: TObject);
  38. var
  39.   i: Integer;
  40.   s: string;
  41.   XMLDoc: IXMLDocument;
  42. begin
  43.   if Assigned(GenerateXMLReport) then begin
  44.     s:=ChangeFileExt(Application.ExeName,'.xml');
  45.     GenerateXMLReport(SO_OS,PChar(s));
  46.  
  47.     XMLDoc:=NewXMLDocument;
  48.     XMLDoc.LoadFromFile(s);
  49.     with XMLDoc.DocumentElement.ChildNodes[0] do
  50.       for i:=0 to ChildNodes.Count-1 do
  51.         if SameText(ChildNodes[i].NodeName,'data') then
  52.           Memo.Lines.Add(Format('%s: %s',[ChildNodes[i].GetAttribute('name'),ChildNodes[i].Text]));
  53.   end else
  54.     MessageDlg('Library not found.',mtError,[mbOK],0);
  55. end;
  56.  
  57. procedure TForm1.Label2MouseEnter(Sender: TObject);
  58. begin
  59.   TLabel(Sender).Font.Style:=[fsUnderline];
  60. end;
  61.  
  62. procedure TForm1.Label2MouseLeave(Sender: TObject);
  63. begin
  64.   TLabel(Sender).Font.Style:=[];
  65. end;
  66.  
  67. procedure TForm1.Label2Click(Sender: TObject);
  68. begin
  69.   if Assigned(ShowSystemOverviewModal) then
  70.     ShowSystemOverviewModal
  71.   else
  72.     MessageDlg('Library not found.',mtError,[mbOK],0);
  73. end;
  74.  
  75. procedure TForm1.TimerTimer(Sender: TObject);
  76. begin
  77.   CPUGauge.Progress:=GetCPUUsage;
  78. end;
  79.  
  80. end.
  81.