pregserver.dpr

来自「三层图书管理系统」· DPR 代码 · 共 28 行

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,'小珠图书租赁管理系统数据库注册机已经运行！','木瓜',0);
    halt;
  end;
//  Application.ShowMainForm :=False;
  Application.CreateForm(TfrmxzBooksRegServer, frmxzBooksRegServer);
  Application.Run;
end.