zhclserv.dpr

初学DELPHI编写的“奖学金评定系统”

program zhclServ;

uses
  Forms, windows,Dialogs,
  display in 'display.pas' {displayForm2},
  Unit3 in 'Unit3.pas',
  Unit9 in 'Unit9.pas' {Unit9Form9},
  zhUnit in 'zhUnit.pas',
  useDLL in 'useDLL.pas' {MainForm},
  configUnit in 'configUnit.pas' {PagesDlg},
  kcUnit in 'kcUnit.pas' {kcForm1},
  dbmodule in 'dbmodule.pas' {DataModule1: TDataModule},
  Thd in 'Thd.pas';

{$R *.res}
var
  hMutex:hwnd;
begin
    hMutex:= CreateMutex(nil,False,Pchar('zhclServ.exe'));
    if   GetLastError=ERROR_ALREADY_EXISTS   Then begin
      ReleaseMutex(hMutex);
      ShowMessage('程序已经打开');
      application.Terminate;
    end
    else begin
      Application.Initialize;
      Application.CreateForm(TMainForm, MainForm);
      Application.CreateForm(TDataModule1, DataModule1);
      Application.Run;
    end;
end.