permis.dpr

来自「Delphi控件源码 d中小企业管理系统 免费试用 涵盖信息、任务、知识、沟通」· DPR 代码 · 共 43 行

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};

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('TfrmPer', 'frmPer');
      SetForeGroundWindow(fHandle);     
      Windows.ReleaseMutex(mHandle);
      Halt;
    end;
  end;

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