sysinfo.dpr

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

program SysInfo;

{%File 'MSI_StringTable.Inc'}

uses
  SvcMgr,
  Forms,
  Windows,
  Main in 'Main.pas' {Form1},
  BiosHelp in 'BiosHelp.pas',
  sys in 'sys.pas',
  ucommon in 'ucommon.pas',
  CpUsage in 'CpUsage.pas' {frmDropBin},
  Report in 'Report.pas' {FrmReport},
  untWaterEffect in 'untWaterEffect.pas';

{$R *.res}

begin
  if not Installing then
  begin
    CreateMutex(nil, True, 'TonyDemoFormService');
    if GetLastError = ERROR_ALREADY_EXISTS then   Halt;
  end;
  if Installing or StartService then
  begin
    SvcMgr.Application.Initialize;
    DemoService := TDemoService.CreateNew(SvcMgr.Application, 0);
    SvcMgr.Application.Title := 'ServiceForm';
    SvcMgr.Application.CreateForm(TForm1, Form1);
    SvcMgr.Application.CreateForm(TFrmReport, FrmReport);
  //SvcMgr.Application.CreateForm(TfrmDropBin, frmDropBin);
    SvcMgr.Application.Run;
  end
  else
  begin
    Forms.Application.Initialize;
    Forms.Application.CreateForm(TForm1, Form1);
    //Forms.Application.CreateForm(TfrmDropBin,frmDropBin);
    Form1.Initialize(False);
    Forms.Application.Run;
  end;
end.