frmsysinfo.pas

Mailserver Source code - Delphi. Simple Mail server source code. SMTP and POP3 protocols.

unit FrmSysInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, ImgList;

type
  TFrmSysInfo1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    RichEdit1: TRichEdit;
    ListView1: TListView;
    ImageList1: TImageList;
  private
    { Private declarations }
    procedure AddToListview(AStr:string);
    function  GetDriveName(AStr:string):string;
    function  GetDriveSize(AStr:string):string;
  public
    { Public declarations }
    procedure IniShow;
  end;

var
  FrmSysInfo1: TFrmSysInfo1;

implementation

uses UnitConst, UnitDataModule;

{$R *.dfm}

procedure TFrmSysInfo1.IniShow;
begin
  AddToListview(UnitDataModule1.DCOMConnection1.AppServer.GetInfo);
end;

procedure TFrmSysInfo1.AddToListview(AStr:string);
var
  MyList:TStringList;
  MyListItem:TListItem;
  i:integer;
begin
  MyList:=TStringList.Create;
  try
    MyList.Text:=AStr;
    listview1.Clear;
    MyListItem:=listview1.Items.Add;
    MyListItem.SubItems.Add('服务器所在目录');
    MyListItem.SubItems.Add(MyList.Strings[0]);
    MyListItem.ImageIndex:=0;

    MyListItem:=listview1.Items.Add;
    MyListItem.SubItems.Add('系统芯片');
    MyListItem.SubItems.Add(MyList.Strings[1]);
    MyListItem.ImageIndex:=1;

    MyListItem:=listview1.Items.Add;
    MyListItem.SubItems.Add('Windows版本');
    MyListItem.SubItems.Add(MyList.Strings[2]);
    MyListItem.ImageIndex:=2;

    MyListItem:=listview1.Items.Add;
    MyListItem.SubItems.Add('Windows目录');
    MyListItem.SubItems.Add(MyList.Strings[3]);
    MyListItem.ImageIndex:=3;

    MyListItem:=listview1.Items.Add;
    MyListItem.SubItems.Add('物理内存');
    MyListItem.SubItems.Add(MyList.Strings[4]);
    MyListItem.ImageIndex:=4;

    MyListItem:=listview1.Items.Add;
    MyListItem.SubItems.Add('计算机名称');
    MyListItem.SubItems.Add(MyList.Strings[5]);
    MyListItem.ImageIndex:=5;

    MyListItem:=listview1.Items.Add;
    MyListItem.SubItems.Add('窗口分辨率');
    MyListItem.SubItems.Add(MyList.Strings[6]);
    MyListItem.ImageIndex:=6;

    i:=7;
    while i<MyList.Count do
    begin
      MyListItem:=listview1.Items.Add;
      MyListItem.ImageIndex:=7;
      MyListItem.SubItems.Add(GetDriveName(MyList.Strings[i]));
      MyListItem.SubItems.Add(GetDriveSize(MyList.Strings[i]));
      
      MyListItem:=listview1.Items.Add;
      MyListItem.ImageIndex:=8;
      MyListItem.SubItems.Add(GetDriveName(MyList.Strings[i+1]));
      MyListItem.SubItems.Add(GetDriveSize(MyList.Strings[i+1]));
      i:=i+2;
    end;
  finally
    MyList.Free;
  end;
end;

function  TFrmSysInfo1.GetDriveName(AStr:string):string;
begin
  result:=copy(AStr,1,pos('%%%',AStr)-1);
end;

function  TFrmSysInfo1.GetDriveSize(AStr:string):string;
var
  i,j:integer;
begin
  i:=pos('%%%',AStr);
  j:=length(AStr);
  result:=copy(AStr,i+3,j-i-2);
end;

end.