lanexplorer.dpr

来自「这是一个用delphi 编写的局域网搜索工具源码」· DPR 代码 · 共 35 行

program LanExplorer;

uses
  Forms,
  Main in 'Main.pas' {MainForm},
  GetDomainThreadUnit in 'GetDomainThreadUnit.pas',
  SearchGroupThreadUnit in 'SearchGroupThreadUnit.pas',
  SearchHostThreadUnit in 'SearchHostThreadUnit.pas',
  SearchDirThreadUnit in 'SearchDirThreadUnit.pas',
  CopyTo in 'CopyTo.pas' {CopyToForm},
  MultiSearchThreadUnit in 'MultiSearchThreadUnit.pas',
  About in 'About.pas' {AboutForm},
  FmxUtils in 'FmxUtils.pas',
  Nbtstat in 'Nbtstat.pas',
  SearchHosts in 'SearchHosts.pas',
  TCPScan in 'TCPScan.pas',
  PingThread in 'PingThread.pas',
  Tools in 'Tools.pas' {ToolsForm},
  Config in 'Config.pas' {ConfigForm},
  SendMsgUnit in 'SendMsgUnit.pas',
  IpCfg in 'IpCfg.pas';

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := 'LAN Explorer';
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TCopyToForm, CopyToForm);
  Application.CreateForm(TAboutForm, AboutForm);
  Application.CreateForm(TToolsForm, ToolsForm);
  Application.CreateForm(TConfigForm, ConfigForm);
  Application.Run;
end.