gmse.dpr

通用题库管理系统

program GMSE;

{$R 'SKIN.res' 'SKIN.rc'}

uses
  Forms,
  Windows,
  Dialogs,
  logosrc in 'logosrc.pas' {logo},
  mainsrc in 'mainsrc.pas' {Main},
  aboutsrc in 'aboutsrc.pas' {about};

{$E exe}

{$R *.res}
var count:integer;
    RvHandle : hWnd;
begin
  RvHandle:= FindWindow('TMain', NIL);
  if RvHandle<>0 then
    messagedlg(#13'『通用题库管理系统』已经有一个实例在运行中！',mtinformation,[mbok],0)
  else
  begin
  Application.Initialize;
  logo:=Tlogo.Create(Application);
  about:=Tabout.Create(Application);
  about.Visible:=False;
  about.Update;
  logo.Image1.Update;
  Application.Title := 'GMSE';
  Application.HelpFile := '';
  Application.CreateForm(TMain, Main);
  for count:=1 to 900 do
  begin
    logo.Image2.Width:=count div 6;
    logo.update;
    if count mod 3 =0 then
    sleep(2);
  end;
  sleep(1000);
  logo.Hide;
  logo.Free;
  Application.Run;
  end;
end.