bysj.dpr

来自「一般情况教师想出一份试卷」· DPR 代码 · 共 51 行

program BYSJ;

uses
  Forms,Variants,Comobj,Windows,SysUtils,
  DataModule in 'DataModule.pas' {BYSJ_DM: TDataModule},
  Enter in 'Enter.pas' {Enter_Form},
  About_Form in 'About_Form.pas' {About_F},
  Set_Form in 'Set_Form.pas' {Set_F},
  Common_Unit in 'Common_Unit.pas',
  BFML_Form in 'BFML_Form.pas' {BFML_F},
  Main_Form in 'Main_Form.pas' {Main_F},
  RateProcess_Form in 'RateProcess_Form.pas' {RateProcess_F},
  FL_From in 'FL_From.pas' {FL1_Form},
  TiMuWH_Unit in 'TiMuWH_Unit.pas' {Form1},
  Unit_Timuluru in 'Unit_Timuluru.pas' {TIMuLuRu},
  BZ_Unit in 'BZ_Unit.pas' {BZ_Form};

{$R *.res}

var
  Word:OleVariant;
  Version,ExePath:string;
begin
  Application.Initialize;            //这一句必须在最前面，否则程序出错
  Word:=CreateOleObject('Word.Application');
  if VarIsNull(Word) then
    begin
      Word:=unassigned;
      MessageBox(0,'本系统需要Microsoft Office Word 的支持！','没有装Word',MB_OK or MB_ICONERROR);
      Exit;
    end;
  Version:=Word.Version;   //取得Word的版本
  word.quit;
  Word:=unassigned;
  if StrToFloat(Version)<10.0 then
    begin
      MessageBox(0,'本机的Word版本太低，本系统需要 “Word XP/及以上版本Word” 的支持！','Word版本太低',MB_OK or MB_ICONERROR);
      Exit;
    end;
  ExePath:=ExtractFilePath(Application.ExeName);
  chdir(ExePath);                    //改变当前目录
  Application.CreateForm(TBYSJ_DM, BYSJ_DM);
  Application.CreateForm(TEnter_Form, Enter_Form);
  Application.CreateForm(TRateProcess_F, RateProcess_F);
  Application.CreateForm(TFL1_Form, FL1_Form);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TTIMuLuRu, TIMuLuRu);
  Application.CreateForm(TBZ_Form, BZ_Form);
  Application.Run;
end.