Module

Path

Last Modified

Comments

This is the project file (psearch.dpr) for PSearch
PSearch is a Windows program that quickly searches
your files for strings

Main Code

begin
  (*$IFnDEF EVAL*)
  if not InitApp(BGuard.gGuardKey_TurboSearch, true, 'TurboSearch', 'V1', ErrorMsg) then
    ShowMessage(ErrorMsg); // now reverts to evaluation mode
  (*$ENDIF*)

  (*$IFDEF Debug*)
  BGuard.gIsRegistered := true;
  (*$ENDIF*)

  Application.Initialize;
  Application.MainFormOnTaskbar := true; // needed in D2007
  Application.Title := 'TurboSearch';
  Application.CreateForm(TPSMainForm, PSMainForm);
  Application.Run;
end.

Units Used in Interface

Name	Comments
PsEngine	-
PsForm	-

Global Variables

Name	Type	Declaration	Comments
ErrorMsg	String	ErrorMsg : string;	-

Module Source

1     program ts;
2     // This is the project file (psearch.dpr) for PSearch
3     // PSearch is a Windows program that quickly searches 
4     // your files for strings
5     
6     {%ToDo 'ts.todo'}
7     
8     uses
9       Forms,
10      Dialogs,
11      PsForm in 'psform.pas' {PSMainForm},
12      PsEngine in 'PsEngine.pas',
13      BGuard in '..\PegBase\BGuard.pas',
14      BUtils in '..\PegBase\BUtils.pas';
15    
16    {$R *.RES}
17    
18    (*$IFnDEF EVAL*)
19    var
20      ErrorMsg : string;
21    (*$ENDIF*)
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.

ts
 └PsForm
   └PsEngine