| 1 | object Form1: TForm1
 | 
|---|
| 2 |   Left = 230
 | 
|---|
| 3 |   Top = 122
 | 
|---|
| 4 |   Width = 503
 | 
|---|
| 5 |   Height = 319
 | 
|---|
| 6 |   Caption = 
 | 
|---|
| 7 |     'XWBAppHandle1 -- use of lmAppHandle to start a second applicatio' +
 | 
|---|
| 8 |     'n'
 | 
|---|
| 9 |   Color = clBtnFace
 | 
|---|
| 10 |   Font.Charset = DEFAULT_CHARSET
 | 
|---|
| 11 |   Font.Color = clWindowText
 | 
|---|
| 12 |   Font.Height = -11
 | 
|---|
| 13 |   Font.Name = 'MS Sans Serif'
 | 
|---|
| 14 |   Font.Style = []
 | 
|---|
| 15 |   Menu = MainMenu1
 | 
|---|
| 16 |   OldCreateOrder = True
 | 
|---|
| 17 |   PixelsPerInch = 96
 | 
|---|
| 18 |   TextHeight = 13
 | 
|---|
| 19 |   object lblOtherProgram: TLabel
 | 
|---|
| 20 |     Left = 44
 | 
|---|
| 21 |     Top = 176
 | 
|---|
| 22 |     Width = 71
 | 
|---|
| 23 |     Height = 13
 | 
|---|
| 24 |     Caption = 'Other Program:'
 | 
|---|
| 25 |   end
 | 
|---|
| 26 |   object lblOptional: TLabel
 | 
|---|
| 27 |     Left = 52
 | 
|---|
| 28 |     Top = 192
 | 
|---|
| 29 |     Width = 45
 | 
|---|
| 30 |     Height = 13
 | 
|---|
| 31 |     Caption = '(Optional)'
 | 
|---|
| 32 |   end
 | 
|---|
| 33 |   object lblWithFull: TLabel
 | 
|---|
| 34 |     Left = 124
 | 
|---|
| 35 |     Top = 200
 | 
|---|
| 36 |     Width = 232
 | 
|---|
| 37 |     Height = 13
 | 
|---|
| 38 |     Caption = 'With Full Directory Path if not on the System Path'
 | 
|---|
| 39 |   end
 | 
|---|
| 40 |   object btnConnect: TButton
 | 
|---|
| 41 |     Left = 85
 | 
|---|
| 42 |     Top = 232
 | 
|---|
| 43 |     Width = 75
 | 
|---|
| 44 |     Height = 25
 | 
|---|
| 45 |     Caption = '&Connect'
 | 
|---|
| 46 |     TabOrder = 0
 | 
|---|
| 47 |     OnClick = btnConnectClick
 | 
|---|
| 48 |   end
 | 
|---|
| 49 |   object btnStartApp2: TButton
 | 
|---|
| 50 |     Left = 210
 | 
|---|
| 51 |     Top = 232
 | 
|---|
| 52 |     Width = 75
 | 
|---|
| 53 |     Height = 25
 | 
|---|
| 54 |     Caption = 'Start App2'
 | 
|---|
| 55 |     TabOrder = 1
 | 
|---|
| 56 |     OnClick = btnStartApp2Click
 | 
|---|
| 57 |   end
 | 
|---|
| 58 |   object edtOtherProgram: TEdit
 | 
|---|
| 59 |     Left = 124
 | 
|---|
| 60 |     Top = 168
 | 
|---|
| 61 |     Width = 233
 | 
|---|
| 62 |     Height = 21
 | 
|---|
| 63 |     TabOrder = 2
 | 
|---|
| 64 |   end
 | 
|---|
| 65 |   object Memo1: TMemo
 | 
|---|
| 66 |     Left = 31
 | 
|---|
| 67 |     Top = 8
 | 
|---|
| 68 |     Width = 433
 | 
|---|
| 69 |     Height = 153
 | 
|---|
| 70 |     Lines.Strings = (
 | 
|---|
| 71 |       
 | 
|---|
| 72 |         'This application can be used to start other programs, including ' +
 | 
|---|
| 73 |         'ones that use the '
 | 
|---|
| 74 |       
 | 
|---|
| 75 |         'RPCBroker for connection to a server using a server generated to' +
 | 
|---|
| 76 |         'ken.'
 | 
|---|
| 77 |       ''
 | 
|---|
| 78 |       
 | 
|---|
| 79 |         'To connect with the server, simply press the connect button to s' +
 | 
|---|
| 80 |         'elect a server/listener port '
 | 
|---|
| 81 |       
 | 
|---|
| 82 |         'combination, then sign in.  After you are signed in, you can sta' +
 | 
|---|
| 83 |         'rt another Broker application '
 | 
|---|
| 84 |       
 | 
|---|
| 85 |         '(XWBAppHandle2) by simply clicking on the "Start App2" button (w' +
 | 
|---|
| 86 |         'ith the Other Program '
 | 
|---|
| 87 |       'edit box empty of text).'
 | 
|---|
| 88 |       ''
 | 
|---|
| 89 |       
 | 
|---|
| 90 |         'A program such as Notepad with or without command line arguments' +
 | 
|---|
| 91 |         ', can be started at '
 | 
|---|
| 92 |       
 | 
|---|
| 93 |         'any time by entering the name (and arguments if any) in the Othe' +
 | 
|---|
| 94 |         'r Program edit box, then '
 | 
|---|
| 95 |       'clicking on the Start App2 button.'
 | 
|---|
| 96 |       '')
 | 
|---|
| 97 |     TabOrder = 3
 | 
|---|
| 98 |   end
 | 
|---|
| 99 |   object btnExit: TButton
 | 
|---|
| 100 |     Left = 335
 | 
|---|
| 101 |     Top = 232
 | 
|---|
| 102 |     Width = 75
 | 
|---|
| 103 |     Height = 25
 | 
|---|
| 104 |     Caption = 'Exit'
 | 
|---|
| 105 |     TabOrder = 4
 | 
|---|
| 106 |     OnClick = btnExitClick
 | 
|---|
| 107 |   end
 | 
|---|
| 108 |   object MainMenu1: TMainMenu
 | 
|---|
| 109 |     Left = 8
 | 
|---|
| 110 |     Top = 184
 | 
|---|
| 111 |     object File1: TMenuItem
 | 
|---|
| 112 |       Caption = '&File'
 | 
|---|
| 113 |       object Exit1: TMenuItem
 | 
|---|
| 114 |         Caption = '&E&xit'
 | 
|---|
| 115 |         OnClick = Exit1Click
 | 
|---|
| 116 |       end
 | 
|---|
| 117 |     end
 | 
|---|
| 118 |     object Help1: TMenuItem
 | 
|---|
| 119 |       Caption = '&Help'
 | 
|---|
| 120 |       object About1: TMenuItem
 | 
|---|
| 121 |         Caption = '&About'
 | 
|---|
| 122 |         OnClick = About1Click
 | 
|---|
| 123 |       end
 | 
|---|
| 124 |     end
 | 
|---|
| 125 |   end
 | 
|---|
| 126 |   object brkrRPCB: TSharedRPCBroker
 | 
|---|
| 127 |     ClearParameters = True
 | 
|---|
| 128 |     ClearResults = True
 | 
|---|
| 129 |     ListenerPort = 0
 | 
|---|
| 130 |     RpcVersion = '0'
 | 
|---|
| 131 |     LogIn.Mode = lmAVCodes
 | 
|---|
| 132 |     LogIn.PromptDivision = False
 | 
|---|
| 133 |     AllowShared = True
 | 
|---|
| 134 |     RPCTimeLimit = 30
 | 
|---|
| 135 |     Left = 32
 | 
|---|
| 136 |     Top = 232
 | 
|---|
| 137 |   end
 | 
|---|
| 138 | end
 | 
|---|