hr.~dpr

Delphi深度探索,Delphi深度探索（第二版）

//Stand Alone方式的dpr
//program HR;
//{PUBDIST}
//
//uses
//  Forms,
//  IWMain,
//  ServerController in 'ServerController.pas' {IWServerController: TDataModule},
//  CHR in 'CHR.pas' {formMain: TIWForm1},
//  DatamoduleUnit in 'DatamoduleUnit.pas' {dmHR: TDataModule},
//  CFrameMenu in 'CFrameMenu.pas' {FrameMenu: TFrame},
//  CFormBase in 'CFormBase.pas' {formBase: TIWAppForm},
//  CFormCorpList in 'CFormCorpList.pas' {formCorpList: TIWAppForm},
//  CFormHumanList in 'CFormHumanList.pas' {formHumanList: TIWAppForm},
//  CFormQuery in 'CFormQuery.pas' {formQuery: TIWAppForm},
//  CFormVisit in 'CFormVisit.pas' {formVisit: TIWAppForm},
//  CFormEditCorp in 'CFormEditCorp.pas' {formEditCorp: TIWAppForm},
//  CWebUtils in 'CWebUtils.pas',
//  CFormEditHuman in 'CFormEditHuman.pas' {formEditHuman: TIWAppForm},
//  CFormLogin in 'CFormLogin.pas' {formLogin: TIWAppForm},
//  CFormNewUser in 'CFormNewUser.pas' {formNewUser: TIWAppForm},
//  IWMaskEdit in '..\IWMaskEdit.pas';
//
//{$R *.res}
//
//begin
//  Application.Initialize;
//  Application.CreateForm(TformIWMain, formIWMain);
//  Application.Run;
//end.

//ISAPI方式的HR.dpr
Library HR;
{PUBDIST}

uses
  ISAPIApp,
  IWInitISAPI,
  ISAPIThreadPool,
  ServerController in 'ServerController.pas' {IWServerController: TDataModule},
  CHR in 'CHR.pas' {formMain: TIWForm1},
  DatamoduleUnit in 'DatamoduleUnit.pas' {dmHR: TDataModule},
  CFrameMenu in 'CFrameMenu.pas' {FrameMenu: TFrame},
  CFormBase in 'CFormBase.pas' {formBase: TIWAppForm},
  CFormCorpList in 'CFormCorpList.pas' {formCorpList: TIWAppForm},
  CFormHumanList in 'CFormHumanList.pas' {formHumanList: TIWAppForm},
  CFormQuery in 'CFormQuery.pas' {formQuery: TIWAppForm},
  CFormVisit in 'CFormVisit.pas' {formVisit: TIWAppForm},
  CFormEditCorp in 'CFormEditCorp.pas' {formEditCorp: TIWAppForm},
  CWebUtils in 'CWebUtils.pas',
  CFormEditHuman in 'CFormEditHuman.pas' {formEditHuman: TIWAppForm},
  CFormLogin in 'CFormLogin.pas' {formLogin: TIWAppForm},
  CFormNewUser in 'CFormNewUser.pas' {formNewUser: TIWAppForm},
  IWMaskEdit in 'IWMaskEdit.pas';

{$R *.res}

exports
  GetExtensionVersion,
  HttpExtensionProc,
  TerminateExtension;

begin
  IWRun;
end.