//---------------------------------------------------------------------------
//(R)CopyRight KivenSoft International ,inc 1998
//程序名稱：電子書庫
//單元名稱：主單元
//作    者：李會文
//開始時間：1998.07.28
//最后修改：1999.06.27
//---------------------------------------------------------------------------
program Srm;

{%ToDo 'Srm.todo'}

uses
  Windows,
  Forms,
  MainUnit in 'MainUnit.pas' {SrmForm},
  SrmUnit in 'SrmUnit.pas',
  SrmConst in 'SrmConst.pas',
  SrmAbout in 'SrmAbout.pas' {AboutForm},
  SrmOption in 'SrmOption.pas' {OptionForm},
  InputPw in 'InputPw.pas' {InPwForm},
  OneInst in 'OneInst.pas',
  RegUnit in 'RegUnit.pas',
  MruUnit in 'MruUnit.pas',
  MainFun in 'MainFun.pas',
  ClipUnit in 'ClipUnit.pas',
  GbBig in 'GbBig.pas';

{$R *.RES}
{$R SrmAtt.res SrmAtt.rc}


var
  ITime:DWORD;
begin
  Application.Initialize;
  if not CheckInstance then             //如果沒有運行其它電子書庫
  begin
    AboutForm:=TAboutForm.Create(nil);  //啟動屏幕
    AboutForm.BorderStyle:=bsNone;
    AboutForm.OKSpeedButton.Visible:=false;
    AboutForm.ClientHeight:=AboutForm.Panel1.Top+AboutForm.Panel1.Height+10;
    AboutForm.Show;
    AboutForm.Update;
    ITime:=GetTickCount;
    Application.Title := '電子書庫';
  Application.CreateForm(TSrmForm, SrmForm);
  while (GetTickCount-ITime)<2000 do;    //延遲兩秒
    AboutForm.Hide;
    AboutForm.Free;
  end;
  Application.Run;
end.