Srm.~dpr
上传用户:tj00001
上传日期:2007-01-07
资源大小:672k
文件大小:1k
源码类别:

行业应用

开发平台:

Delphi

  1. //---------------------------------------------------------------------------
  2. //(R)CopyRight KivenSoft International ,inc 1998
  3. //程序名称:电子书库
  4. //单元名称:主单元
  5. //作    者:李会文
  6. //开始时间:1998.07.28
  7. //最后修改:1999.06.27
  8. //---------------------------------------------------------------------------
  9. program Srm;
  10. uses
  11.   Windows,
  12.   Forms,
  13.   MainUnit in 'MainUnit.pas' {SrmForm},
  14.   SrmUnit in 'SrmUnit.pas',
  15.   SrmConst in 'SrmConst.pas',
  16.   SrmAbout in 'SrmAbout.pas' {AboutForm},
  17.   SrmOption in 'SrmOption.pas' {OptionForm},
  18.   InputPw in 'InputPw.pas' {InPwForm},
  19.   OneInst in 'OneInst.pas',
  20.   RegUnit in 'RegUnit.pas',
  21.   MruUnit in 'MruUnit.pas',
  22.   MainFun in 'MainFun.pas',
  23.   ClipUnit in 'ClipUnit.pas',
  24.   GbBig in 'GbBig.pas';
  25. {$R *.RES}
  26. {$R SrmAtt.res SrmAtt.rc}
  27. var
  28.   ITime:DWORD;
  29. begin
  30.   Application.Initialize;
  31.   if not CheckInstance then             //如果没有运行其它电子书库
  32.   begin
  33.     AboutForm:=TAboutForm.Create(nil);  //启动屏幕
  34.     AboutForm.BorderStyle:=bsNone;
  35.     AboutForm.OKSpeedButton.Visible:=false;
  36.     AboutForm.ClientHeight:=AboutForm.Panel1.Top+AboutForm.Panel1.Height+10;
  37.     AboutForm.Show;
  38.     AboutForm.Update;
  39.     ITime:=GetTickCount;
  40.     Application.Title := '电子书库';
  41.   Application.CreateForm(TSrmForm, SrmForm);
  42.   while (GetTickCount-ITime)<2000 do;    //延迟两秒
  43.     AboutForm.Hide;
  44.     AboutForm.Free;
  45.   end;
  46.   Application.Run;
  47. end.