行业应用

开发平台：

Delphi

Srm.dpr：源码内容

							//---------------------------------------------------------------------------
//(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.

						