program WBTA_32;

uses
  Windows,
  Forms,
  WBTAUnit1 in 'WBTAUnit1.pas' {Form1},
  ScanIDX in 'ScanIDX.pas' {ScanForm},
  WBTA_Var in 'WBTA_Var.pas',
  WBTA_32_IDX in 'WBTA_32_IDX.pas',
  WBTA_RepTime in 'WBTA_RepTime.pas' {Form2},
  WBTA_Macro in 'WBTA_Macro.pas' {MacroForm},
  PCtoIDX in 'PCtoIDX.pas' {ToIDX_Form},
  WBTA_EPI_IO in 'WBTA_EPI_IO.pas' {EPI_IO_Form},
  WarpIOTest in 'WarpIOTest.pas' {WarpIOForm};

{$R *.RES}
var hw: HWND;
begin
  Application.Initialize;
  hw := FindWindow('TApplication','WBTA'); //TApplication, WBTA
  if hw <> 0 then begin
     if IsIconic(hw) then begin
        ShowWindow(hw, SW_Restore);
        Application.MessageBox('ShowWindow(hw,SW_Restore);', 'mesaage', mb_applmodal+mb_iconinformation+mb_ok+mb_defbutton1);
     end else begin
        SetForeGroundWindow(hw);
        Application.MessageBox('SetForeGroundWindow(hw);', 'mesaage', mb_applmodal+mb_iconinformation+mb_ok+mb_defbutton1);
        Halt; // stop this application
     end;
  end
  else begin
     Application.Title := 'WBTA';
     Application.HelpFile := 'D:\DATA\WIMB\weta_new\WBTA_32.hlp';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TWarpIOForm, WarpIOForm);
  Application.Run;
  end;
end.