project1.dpr

图书管理系统,采用delphi开发工具,是个小型的管理系统,该压缩文件只提供源代码

program Project1;

uses
  Forms, Windows,
  Unit1 in 'Unit1.pas' {frmxzBooksTest},
  uQueryForm in 'uQueryForm.pas' {frmQuery};

{$R *.res}

const
  ClassName='TfrmxzBooksTest';

var
  Handle:Integer;

begin
  Application.Initialize;
  Handle:=FindWindow(ClassName,nil);
  if Handle<>0 then
  begin
    Application.MessageBox('程序已经运行！','错误',MB_OK);
    halt;
  end;
  Application.CreateForm(TfrmxzBooksTest, frmxzBooksTest);
  Application.CreateForm(TfrmQuery, frmQuery);
  Application.Run;
end.