wbs99e40.dpr

wbs43open-src.zip 数字隐藏工具

program Wbs99e40;

uses
{$IFDEF CLX}
  QForms,
  wbHelpViewer in 'wbHelpViewer.pas' {HelpForm},
  HelpIntfs,
{$ELSE}
  Forms,
{$ENDIF}
  wbsData in 'wbsData.pas',
  main32 in 'main32.pas' {Form14},
  Seldtype in 'SelDType.pas' {Form1},
  Fc_set in 'Fc_set.pas' {Form2},
  Fc_pwd in 'Fc_pwd.pas' {Form3},
  Bin32hdl in 'Bin32Hdl.pas',
  splash in 'splash.pas' {Form5},
  nocrypt in 'nocrypt.pas' {Form6},
  regtools in 'regtools.pas' {Form7},
  copyrightmgr in 'copyrightmgr.pas' {Form8},
  selectcopyright in 'selectcopyright.pas' {Form9},
  Sysutils,
  MultiLang in 'MultiLang.pas',
  SmartFileCopy in 'SmartFileCopy.pas',
  MultiDataFile in 'MultiDataFile.pas',
  working in 'working.pas' {Form11},
  EncryptedDataFile in 'EncryptedDataFile.pas',
  MLKBBSGenerator in 'MLKBBSGenerator.pas',
  findcarrier in 'findcarrier.pas' {Form4},
  wbsUtil in 'wbsUtil.pas',
  cpi_decod in 'cpi_decod.pas' {Form13},
  settings in 'settings.pas' {Form10};

{$R *.res}

{$IFDEF CLX}
var
  helpRegResult: Integer;
  helpMgr: IHelpManager;
  ihs: IHelpSystem;
{$ENDIF}
begin
  Application.Title := 'wbStego4.3open';
  Application.CreateForm(TForm14, Form14);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TForm11, Form11);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm13, Form13);
  Application.CreateForm(TForm10, Form10);
  Application.CreateForm(TForm1, Form1);  
{$IFDEF CLX}
  HelpForm := THelpForm.Create(Application);
  RegisterViewer(HelpForm,helpMgr);
  HelpForm.InitHelp(helpMgr);
{$ENDIF}
  Application.Run;
  DestroyMLSupport;
end.