permis.dpr

来自「这是一个门禁系统的应用程序,用 delphi编写,希望与大家交流.」· DPR 代码 · 共 51 行

program permis;

uses
  Forms,
  Windows,
  umain in 'umain.pas' {frmPer},
  uchgpwd in 'uchgpwd.pas' {frmChgpwd},
  uglobal in 'uglobal.pas',
  ulogin in 'ulogin.pas' {frmLogin},
  uadmin in 'uadmin.pas' {frmAdmin},
  ustainfo in 'ustainfo.pas' {frmStainfo},
  udata in 'udata.pas' {dmPer: TDataModule},
  ufind in 'ufind.pas' {frmFind},
  udep in 'udep.pas' {frmDep},
  uabout in 'uabout.pas' {frmAbout},
  uset in 'uset.pas' {frmSet},
  uprint in 'uprint.pas' {frmPrint},
  uoinfo in 'uoinfo.pas' {frmOInfo},
  uredata in 'uredata.pas' {frmReData};

var
  mHandle, fHandle: THandle;

{$R *.res}

begin
  Application.Title := 'PerRecord';
  Application.Initialize;
  mHandle := Windows.CreateMutex(nil, true, 'PerRecord');
  if mHandle <> 0 then
  begin
    if GetLastError = Windows.ERROR_ALREADY_EXISTS then
    begin
      fHandle := FindWindow('TfrmLogin', nil);
      if fHandle = 0 then
        fHandle := FindWindow('TfrmPer', nil);
      if fHandle <> 0 then
      begin
        ShowWindow(fHandle, SW_SHOW);
        SetForeGroundWindow(fHandle);
      end;
      Windows.ReleaseMutex(mHandle);
      Halt;
    end;
  end;

  Application.CreateForm(TdmPer, dmPer);
  Application.CreateForm(TfrmPer, frmPer);
  Application.Run;
end.