rsgl.dpr

来自「图书馆管理系统设计详细资料」· DPR 代码 · 共 50 行

program rsgl;

uses
  Forms,
  SysUtils,
  Windows,
  uMain in 'uMain.pas' {frmMain},
  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' {DM: TDataModule},
  uSearch in 'uSearch.pas' {frmFind},
  uDepset in 'uDepset.pas' {frmDepset},
  uAbout in 'uAbout.pas' {frmAbout},
  uPrint in 'uPrint.pas' {frmPrint},
  uOtherset in 'uOtherset.pas' {frmOtherset},
  uStadetail in 'ustadetail.pas' {fraStaDetail: TFrame},
  uModalbase in 'uModalbase.pas' {frmModalBase},
  uWaiting in 'uWaiting.pas',
  uMyApp in 'uMyApp.pas',
  uLog in 'uLog.pas',
  uLogInfo in 'uLogInfo.pas' {frmLog};

var
  aHandle: THandle;

{$R *.res}

begin


  aHandle := FindWindow('TApplication', '员工档案管理系统');
  if aHandle <> 0 then
  begin
    if IsIconic(aHandle) then
      OpenIcon(aHandle);
    SetForeGroundWindow(aHandle);
    Application.Terminate;
    Exit;
  end;

  Application.Title := '员工档案管理系统';
  Application.Initialize;
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end.