srm.dpr

来自「初次上传,不太会规类.这是一个电子文档收集的软件.支持从浏览器窗口中托拽到本地窗」· DPR 代码 · 共 57 行

//---------------------------------------------------------------------------
//(R)CopyRight KivenSoft International ,inc 1998
//程序名称：电子书库
//单元名称：主单元
//作    者：李会文
//开始时间：1998.07.28
//最后修改：1999.03.18
//---------------------------------------------------------------------------
program Srm;

uses
  Windows,
  Forms,
  MainUnit in 'MainUnit.pas' {SrmForm},
  MyLabel in 'MyLabel.pas',
  SrmUnit in 'SrmUnit.pas',
  SrmConst in 'SrmConst.pas',
  SrmAbout in 'SrmAbout.pas' {AboutForm},
  SrmOption in 'SrmOption.pas' {OptionForm};


{$R *.RES}

var
  AboutBox:TAboutForm;
  ITime:DWORD;
  hMutex:HWND;
  Ret:Integer;
begin
  Application.Initialize;
  Application.Title:='电子书库';
  HMutex:=CreateMutex(nil,false,'电子书库');
  Ret:=GetLastError;
  if Ret<>ERROR_ALREADY_EXISTS then //如果已经运行过
   begin
     AboutBox:=TAboutForm.Create(nil);  //启动屏幕
     AboutBox.BorderStyle:=bsNone;
     AboutBox.OKButton.Visible:=false;
     AboutBox.ClientHeight:=AboutBox.Panel1.Top+AboutBox.Panel1.Height+10;
     AboutBox.Show;
     AboutBox.Update;
     ITime:=GetTickCount;
     Application.CreateForm(TSrmForm, SrmForm);
     while (GetTickCount-ITime)<2000 do;    //延迟两秒
     AboutBox.Hide;
     AboutBox.Free;
     Application.Run;
   end
  else
  begin
    Application.MessageBox(csAppExists,csAppName,MB_OK);
  end;
  ReleaseMutex(hMutex);
end.