report.~pas

系統硬件測試,主板的型號

unit Report;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Registry,
  Dialogs, ExtCtrls, StdCtrls,ComObj,excel2000,MSI_GUI,MiTeC_WinIOCTL,MSI_Software,
  MiTeC_Routines,MSI_SMBIOS;

type
  TFrmReport = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    MSiC:TMSystemInfo;
  public
    { Public declarations }
    procedure ExcelBT;
  end;

var
  FrmReport: TFrmReport;
  xlapp:variant;
  sheet:variant;
  Int:Integer;
implementation

uses sys;

{$R *.dfm}
procedure TFrmReport.ExcelBT;
begin
        sheet:=XLApp.workbooks[1].worksheets['筿福祑ンの