Main Block

Module

Last Modified

Scope

Source

22    begin
23      (*$IFnDEF EVAL*)
24      if not InitApp(BGuard.gGuardKey_TurboSearch, true, 'TurboSearch', 'V1', ErrorMsg) then
25        ShowMessage(ErrorMsg); // now reverts to evaluation mode
26      (*$ENDIF*)
27    
28      (*$IFDEF Debug*)
29      BGuard.gIsRegistered := true;
30      (*$ENDIF*)
31    
32      Application.Initialize;
33      Application.MainFormOnTaskbar := true; // needed in D2007
34      Application.Title := 'TurboSearch';
35      Application.CreateForm(TPSMainForm, PSMainForm);
36      Application.Run;
37    end.