program pRegServer;

uses
  Forms,
  Windows,
  uRegServer in 'uRegServer.pas' {frmxzBooksRegServer};

{$R *.res}

const
  ClassName='TfrmxzBooksRegServer';

var
  handle:integer;

begin
  Application.Initialize;
  handle:=findwindow(classname,nil);
  if handle<> 0 then
  begin
    messagebox(0,'小珠圖書租賃管理系統(tǒng)數(shù)據(jù)庫注冊機(jī)已經(jīng)運(yùn)行！','木瓜',0);
    halt;
  end;
//  Application.ShowMainForm :=False;
  Application.CreateForm(TfrmxzBooksRegServer, frmxzBooksRegServer);
  Application.Run;
end.