proserver.dpr

来自「DELPHI 下远程控制源码」· DPR 代码 · 共 31 行

program ProServer;

uses
  Forms,
  Unit2 in 'Unit2.pas' {Form2},
  APFUnit in '..\APFUnit.pas',
  sendReceiveRecUnit in '..\sendReceiveRecUnit.pas',
  MainServProcUnit in 'MainServProcUnit.pas',
  SubSuperUserUnit in 'SubSuperUserUnit.pas',
  SuperThrdUnit in 'SuperThrdUnit.pas',
  SelDirUnit in 'SelDirUnit.pas' {SelDirFm},
  SelUserUnit in 'SelUserUnit.pas' {SelUserFm},
  RefuseSvUnit in 'RefuseSvUnit.pas' {RefuseSvFrm},
  DownLoadFileUnit in 'DownLoadFileUnit.pas',
  UpLoadUnit in 'UpLoadUnit.pas',
  DLoadDirThreadUnit in 'DLoadDirThreadUnit.pas',
  TServerCopyThreadUnit in 'TServerCopyThreadUnit.pas',
  TSearchThreadUnit in 'TSearchThreadUnit.pas',
  TStripMonitorThreadUnit in 'TStripMonitorThreadUnit.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TSelDirFm, SelDirFm);
  Application.CreateForm(TSelUserFm, SelUserFm);
  Application.CreateForm(TRefuseSvFrm, RefuseSvFrm);
  Application.Run;
end.