PseuWoWConsole
-------------- Version 2.1.0 Fixed a problem due to failed recompile
This commit is contained in:
thetourist
parent
5fbc5254c6
commit
484fc0d4f1
@ -1,5 +1,5 @@
|
|||||||
=======================================================
|
=======================================================
|
||||||
PseuWoWConsole - Version 2.0.0
|
PseuWoWConsole - Version 2.1.0
|
||||||
=======================================================
|
=======================================================
|
||||||
"At First you listen to users, then you stop listening"
|
"At First you listen to users, then you stop listening"
|
||||||
|
|
||||||
@ -32,4 +32,7 @@ Changes
|
|||||||
Version 2.0.0
|
Version 2.0.0
|
||||||
* Added Nifty Icon Feature - Basically If you run more than one session you now tell which one is which!
|
* Added Nifty Icon Feature - Basically If you run more than one session you now tell which one is which!
|
||||||
* Display of Char Name
|
* Display of Char Name
|
||||||
* Started Work on reading the colors from input
|
* Started Work on reading the colors from input
|
||||||
|
|
||||||
|
Version 2.1.0
|
||||||
|
* Fixed a problem due to failed recompile
|
||||||
Binary file not shown.
@ -64,7 +64,7 @@ RootDir=
|
|||||||
IncludeVerInfo=1
|
IncludeVerInfo=1
|
||||||
AutoIncBuild=0
|
AutoIncBuild=0
|
||||||
MajorVer=2
|
MajorVer=2
|
||||||
MinorVer=0
|
MinorVer=1
|
||||||
Release=0
|
Release=0
|
||||||
Build=0
|
Build=0
|
||||||
Debug=0
|
Debug=0
|
||||||
@ -77,7 +77,7 @@ CodePage=1252
|
|||||||
[Version Info Keys]
|
[Version Info Keys]
|
||||||
CompanyName=
|
CompanyName=
|
||||||
FileDescription=
|
FileDescription=
|
||||||
FileVersion=2.0.0.0
|
FileVersion=2.1.0.0
|
||||||
InternalName=
|
InternalName=
|
||||||
LegalCopyright=
|
LegalCopyright=
|
||||||
LegalTrademarks=
|
LegalTrademarks=
|
||||||
|
|||||||
744
src/tools/PseuWoWConsole/src/PseuWoWConsole.drc
Normal file
744
src/tools/PseuWoWConsole/src/PseuWoWConsole.drc
Normal file
@ -0,0 +1,744 @@
|
|||||||
|
/* VER140
|
||||||
|
Generated by the Borland Delphi Pascal Compiler
|
||||||
|
because -GD or --drc was supplied to the compiler.
|
||||||
|
|
||||||
|
This file contains compiler-generated resources that
|
||||||
|
were bound to the executable.
|
||||||
|
If this file is empty, then no compiler-generated
|
||||||
|
resources were bound to the produced executable.
|
||||||
|
*/
|
||||||
|
|
||||||
|
#define JclResources_RsIntelCacheDescr7C 65168
|
||||||
|
#define JclResources_RsIntelCacheDescr7D 65169
|
||||||
|
#define JclResources_RsIntelCacheDescr7F 65170
|
||||||
|
#define JclResources_RsIntelCacheDescr82 65171
|
||||||
|
#define JclResources_RsIntelCacheDescr83 65172
|
||||||
|
#define JclResources_RsIntelCacheDescr84 65173
|
||||||
|
#define JclResources_RsIntelCacheDescr85 65174
|
||||||
|
#define JclResources_RsIntelCacheDescr86 65175
|
||||||
|
#define JclResources_RsIntelCacheDescr87 65176
|
||||||
|
#define JclResources_RsIntelCacheDescrB0 65177
|
||||||
|
#define JclResources_RsIntelCacheDescrB3 65178
|
||||||
|
#define JclResources_RsIntelCacheDescrF0 65179
|
||||||
|
#define JclResources_RsIntelCacheDescrF1 65180
|
||||||
|
#define JclResources_RsIntelCacheDescr51 65184
|
||||||
|
#define JclResources_RsIntelCacheDescr52 65185
|
||||||
|
#define JclResources_RsIntelCacheDescr5B 65186
|
||||||
|
#define JclResources_RsIntelCacheDescr5C 65187
|
||||||
|
#define JclResources_RsIntelCacheDescr5D 65188
|
||||||
|
#define JclResources_RsIntelCacheDescr60 65189
|
||||||
|
#define JclResources_RsIntelCacheDescr66 65190
|
||||||
|
#define JclResources_RsIntelCacheDescr67 65191
|
||||||
|
#define JclResources_RsIntelCacheDescr68 65192
|
||||||
|
#define JclResources_RsIntelCacheDescr70 65193
|
||||||
|
#define JclResources_RsIntelCacheDescr71 65194
|
||||||
|
#define JclResources_RsIntelCacheDescr72 65195
|
||||||
|
#define JclResources_RsIntelCacheDescr78 65196
|
||||||
|
#define JclResources_RsIntelCacheDescr79 65197
|
||||||
|
#define JclResources_RsIntelCacheDescr7A 65198
|
||||||
|
#define JclResources_RsIntelCacheDescr7B 65199
|
||||||
|
#define JclResources_RsIntelCacheDescr08 65200
|
||||||
|
#define JclResources_RsIntelCacheDescr0A 65201
|
||||||
|
#define JclResources_RsIntelCacheDescr0C 65202
|
||||||
|
#define JclResources_RsIntelCacheDescr22 65203
|
||||||
|
#define JclResources_RsIntelCacheDescr23 65204
|
||||||
|
#define JclResources_RsIntelCacheDescr25 65205
|
||||||
|
#define JclResources_RsIntelCacheDescr29 65206
|
||||||
|
#define JclResources_RsIntelCacheDescr2C 65207
|
||||||
|
#define JclResources_RsIntelCacheDescr30 65208
|
||||||
|
#define JclResources_RsIntelCacheDescr40 65209
|
||||||
|
#define JclResources_RsIntelCacheDescr41 65210
|
||||||
|
#define JclResources_RsIntelCacheDescr42 65211
|
||||||
|
#define JclResources_RsIntelCacheDescr43 65212
|
||||||
|
#define JclResources_RsIntelCacheDescr44 65213
|
||||||
|
#define JclResources_RsIntelCacheDescr45 65214
|
||||||
|
#define JclResources_RsIntelCacheDescr50 65215
|
||||||
|
#define JvResources_RsMenuHighlight 65216
|
||||||
|
#define ComConst_SOleError 65217
|
||||||
|
#define ComConst_SNoMethod 65218
|
||||||
|
#define ComConst_SVarNotObject 65219
|
||||||
|
#define ComConst_STooManyParams 65220
|
||||||
|
#define ComStrs_sInvalidOwner 65221
|
||||||
|
#define ComStrs_sRichEditInsertError 65222
|
||||||
|
#define ComStrs_sRichEditLoadFail 65223
|
||||||
|
#define ComStrs_sRichEditSaveFail 65224
|
||||||
|
#define ComStrs_sInvalidComCtl32 65225
|
||||||
|
#define JclResources_RsIntelCacheDescr00 65226
|
||||||
|
#define JclResources_RsIntelCacheDescr01 65227
|
||||||
|
#define JclResources_RsIntelCacheDescr02 65228
|
||||||
|
#define JclResources_RsIntelCacheDescr03 65229
|
||||||
|
#define JclResources_RsIntelCacheDescr04 65230
|
||||||
|
#define JclResources_RsIntelCacheDescr06 65231
|
||||||
|
#define JvResources_RsClHighlight 65232
|
||||||
|
#define JvResources_RsClHighlightText 65233
|
||||||
|
#define JvResources_RsClBtnFace 65234
|
||||||
|
#define JvResources_RsClBtnShadow 65235
|
||||||
|
#define JvResources_RsClGrayText 65236
|
||||||
|
#define JvResources_RsClBtnText 65237
|
||||||
|
#define JvResources_RsClInactiveCaptionText 65238
|
||||||
|
#define JvResources_RsClBtnHighlight 65239
|
||||||
|
#define JvResources_RsCl3DDkShadow 65240
|
||||||
|
#define JvResources_RsCl3DLight 65241
|
||||||
|
#define JvResources_RsClInfoText 65242
|
||||||
|
#define JvResources_RsClInfoBk 65243
|
||||||
|
#define JvResources_RsGradientActiveCaption 65244
|
||||||
|
#define JvResources_RsGradientInactiveCaption 65245
|
||||||
|
#define JvResources_RsHotLight 65246
|
||||||
|
#define JvResources_RsMenuBar 65247
|
||||||
|
#define JvResources_RsClLightTurquoise 65248
|
||||||
|
#define JvResources_RsClPaleBlue 65249
|
||||||
|
#define JvResources_RsClLavender 65250
|
||||||
|
#define JvResources_RsClScrollBar 65251
|
||||||
|
#define JvResources_RsClBackground 65252
|
||||||
|
#define JvResources_RsClActiveCaption 65253
|
||||||
|
#define JvResources_RsClInactiveCaption 65254
|
||||||
|
#define JvResources_RsClMenu 65255
|
||||||
|
#define JvResources_RsClWindow 65256
|
||||||
|
#define JvResources_RsClWindowFrame 65257
|
||||||
|
#define JvResources_RsClMenuText 65258
|
||||||
|
#define JvResources_RsClWindowText 65259
|
||||||
|
#define JvResources_RsClCaptionText 65260
|
||||||
|
#define JvResources_RsClActiveBorder 65261
|
||||||
|
#define JvResources_RsClInactiveBorder 65262
|
||||||
|
#define JvResources_RsClAppWorkSpace 65263
|
||||||
|
#define JvResources_RsClGray50 65264
|
||||||
|
#define JvResources_RsClLightOrange 65265
|
||||||
|
#define JvResources_RsClSeaGreen 65266
|
||||||
|
#define JvResources_RsClLightBlue 65267
|
||||||
|
#define JvResources_RsClViolet 65268
|
||||||
|
#define JvResources_RsClGray40 65269
|
||||||
|
#define JvResources_RsClPink 65270
|
||||||
|
#define JvResources_RsClGold 65271
|
||||||
|
#define JvResources_RsClBrightGreen 65272
|
||||||
|
#define JvResources_RsClTurquoise 65273
|
||||||
|
#define JvResources_RsClPlum 65274
|
||||||
|
#define JvResources_RsClGray25 65275
|
||||||
|
#define JvResources_RsClRose 65276
|
||||||
|
#define JvResources_RsClTan 65277
|
||||||
|
#define JvResources_RsClLightYellow 65278
|
||||||
|
#define JvResources_RsClLightGreen 65279
|
||||||
|
#define JvResources_RsClWhite 65280
|
||||||
|
#define JvResources_RsClMoneyGreen 65281
|
||||||
|
#define JvResources_RsClSkyBlue 65282
|
||||||
|
#define JvResources_RsClCream 65283
|
||||||
|
#define JvResources_RsClMedGray 65284
|
||||||
|
#define JvResources_RsClBrown 65285
|
||||||
|
#define JvResources_RsClOliveGreen 65286
|
||||||
|
#define JvResources_RsClDarkGreen 65287
|
||||||
|
#define JvResources_RsClDarkTeal 65288
|
||||||
|
#define JvResources_RsClDarkBlue 65289
|
||||||
|
#define JvResources_RsClIndigo 65290
|
||||||
|
#define JvResources_RsClGray80 65291
|
||||||
|
#define JvResources_RsClDarkRed 65292
|
||||||
|
#define JvResources_RsClOrange 65293
|
||||||
|
#define JvResources_RsClDarkYellow 65294
|
||||||
|
#define JvResources_RsClBlueGray 65295
|
||||||
|
#define HelpIntfs_hNoTopics 65296
|
||||||
|
#define JvResources_RsClBlack 65297
|
||||||
|
#define JvResources_RsClMaroon 65298
|
||||||
|
#define JvResources_RsClGreen 65299
|
||||||
|
#define JvResources_RsClOlive 65300
|
||||||
|
#define JvResources_RsClNavy 65301
|
||||||
|
#define JvResources_RsClPurple 65302
|
||||||
|
#define JvResources_RsClTeal 65303
|
||||||
|
#define JvResources_RsClGray 65304
|
||||||
|
#define JvResources_RsClSilver 65305
|
||||||
|
#define JvResources_RsClRed 65306
|
||||||
|
#define JvResources_RsClLime 65307
|
||||||
|
#define JvResources_RsClYellow 65308
|
||||||
|
#define JvResources_RsClBlue 65309
|
||||||
|
#define JvResources_RsClFuchsia 65310
|
||||||
|
#define JvResources_RsClAqua 65311
|
||||||
|
#define Consts_SmkcDel 65312
|
||||||
|
#define Consts_SmkcShift 65313
|
||||||
|
#define Consts_SmkcCtrl 65314
|
||||||
|
#define Consts_SmkcAlt 65315
|
||||||
|
#define Consts_SInsertLineError 65316
|
||||||
|
#define Consts_SIconToClipboard 65317
|
||||||
|
#define Consts_SInvalidMemoSize 65318
|
||||||
|
#define Consts_SNoDefaultPrinter 65319
|
||||||
|
#define Consts_SDuplicateMenus 65320
|
||||||
|
#define Consts_SDockedCtlNeedsName 65321
|
||||||
|
#define Consts_SDockTreeRemoveError 65322
|
||||||
|
#define Consts_SDockZoneNotFound 65323
|
||||||
|
#define Consts_SDockZoneHasNoCtl 65324
|
||||||
|
#define HelpIntfs_hNoTableOfContents 65325
|
||||||
|
#define HelpIntfs_hNothingFound 65326
|
||||||
|
#define HelpIntfs_hNoContext 65327
|
||||||
|
#define Consts_SMsgDlgNoToAll 65328
|
||||||
|
#define Consts_SMsgDlgYesToAll 65329
|
||||||
|
#define Consts_SmkcBkSp 65330
|
||||||
|
#define Consts_SmkcTab 65331
|
||||||
|
#define Consts_SmkcEsc 65332
|
||||||
|
#define Consts_SmkcEnter 65333
|
||||||
|
#define Consts_SmkcSpace 65334
|
||||||
|
#define Consts_SmkcPgUp 65335
|
||||||
|
#define Consts_SmkcPgDn 65336
|
||||||
|
#define Consts_SmkcEnd 65337
|
||||||
|
#define Consts_SmkcHome 65338
|
||||||
|
#define Consts_SmkcLeft 65339
|
||||||
|
#define Consts_SmkcUp 65340
|
||||||
|
#define Consts_SmkcRight 65341
|
||||||
|
#define Consts_SmkcDown 65342
|
||||||
|
#define Consts_SmkcIns 65343
|
||||||
|
#define Consts_SAbortButton 65344
|
||||||
|
#define Consts_SAllButton 65345
|
||||||
|
#define Consts_SCannotDragForm 65346
|
||||||
|
#define Consts_SMsgDlgWarning 65347
|
||||||
|
#define Consts_SMsgDlgError 65348
|
||||||
|
#define Consts_SMsgDlgInformation 65349
|
||||||
|
#define Consts_SMsgDlgConfirm 65350
|
||||||
|
#define Consts_SMsgDlgYes 65351
|
||||||
|
#define Consts_SMsgDlgNo 65352
|
||||||
|
#define Consts_SMsgDlgOK 65353
|
||||||
|
#define Consts_SMsgDlgCancel 65354
|
||||||
|
#define Consts_SMsgDlgHelp 65355
|
||||||
|
#define Consts_SMsgDlgAbort 65356
|
||||||
|
#define Consts_SMsgDlgRetry 65357
|
||||||
|
#define Consts_SMsgDlgIgnore 65358
|
||||||
|
#define Consts_SMsgDlgAll 65359
|
||||||
|
#define Consts_SNoTimers 65360
|
||||||
|
#define Consts_SNotPrinting 65361
|
||||||
|
#define Consts_SPrinting 65362
|
||||||
|
#define Consts_SInvalidPrinter 65363
|
||||||
|
#define Consts_SDeviceOnPort 65364
|
||||||
|
#define Consts_SGroupIndexTooLow 65365
|
||||||
|
#define Consts_SNoMDIForm 65366
|
||||||
|
#define Consts_SControlParentSetToSelf 65367
|
||||||
|
#define Consts_SOKButton 65368
|
||||||
|
#define Consts_SCancelButton 65369
|
||||||
|
#define Consts_SYesButton 65370
|
||||||
|
#define Consts_SNoButton 65371
|
||||||
|
#define Consts_SHelpButton 65372
|
||||||
|
#define Consts_SCloseButton 65373
|
||||||
|
#define Consts_SIgnoreButton 65374
|
||||||
|
#define Consts_SRetryButton 65375
|
||||||
|
#define Consts_SNoCanvasHandle 65376
|
||||||
|
#define Consts_SInvalidImageSize 65377
|
||||||
|
#define Consts_SInvalidImageList 65378
|
||||||
|
#define Consts_SImageIndexError 65379
|
||||||
|
#define Consts_SImageReadFail 65380
|
||||||
|
#define Consts_SImageWriteFail 65381
|
||||||
|
#define Consts_SWindowDCError 65382
|
||||||
|
#define Consts_SWindowClass 65383
|
||||||
|
#define Consts_SCannotFocus 65384
|
||||||
|
#define Consts_SParentRequired 65385
|
||||||
|
#define Consts_SMDIChildNotVisible 65386
|
||||||
|
#define Consts_SVisibleChanged 65387
|
||||||
|
#define Consts_SCannotShowModal 65388
|
||||||
|
#define Consts_SMenuIndexError 65389
|
||||||
|
#define Consts_SMenuReinserted 65390
|
||||||
|
#define Consts_SMenuNotFound 65391
|
||||||
|
#define RTLConsts_SUnknownProperty 65392
|
||||||
|
#define RTLConsts_SWriteError 65393
|
||||||
|
#define RTLConsts_SThreadCreateError 65394
|
||||||
|
#define RTLConsts_SThreadError 65395
|
||||||
|
#define RTLConsts_sWindowsSocketError 65396
|
||||||
|
#define RTLConsts_sAsyncSocketError 65397
|
||||||
|
#define RTLConsts_sNoAddress 65398
|
||||||
|
#define RTLConsts_sCannotListenOnOpen 65399
|
||||||
|
#define RTLConsts_sCannotCreateSocket 65400
|
||||||
|
#define RTLConsts_sSocketAlreadyOpen 65401
|
||||||
|
#define RTLConsts_sCantChangeWhileActive 65402
|
||||||
|
#define Consts_SInvalidBitmap 65403
|
||||||
|
#define Consts_SInvalidIcon 65404
|
||||||
|
#define Consts_SChangeIconSize 65405
|
||||||
|
#define Consts_SUnknownClipboardFormat 65406
|
||||||
|
#define Consts_SOutOfResources 65407
|
||||||
|
#define RTLConsts_SInvalidImage 65408
|
||||||
|
#define RTLConsts_SInvalidName 65409
|
||||||
|
#define RTLConsts_SInvalidProperty 65410
|
||||||
|
#define RTLConsts_SInvalidPropertyPath 65411
|
||||||
|
#define RTLConsts_SInvalidPropertyValue 65412
|
||||||
|
#define RTLConsts_SListCapacityError 65413
|
||||||
|
#define RTLConsts_SListCountError 65414
|
||||||
|
#define RTLConsts_SListIndexError 65415
|
||||||
|
#define RTLConsts_SMemoryStreamError 65416
|
||||||
|
#define RTLConsts_SPropertyException 65417
|
||||||
|
#define RTLConsts_SReadError 65418
|
||||||
|
#define RTLConsts_SReadOnlyProperty 65419
|
||||||
|
#define RTLConsts_SResNotFound 65420
|
||||||
|
#define RTLConsts_SSeekNotImplemented 65421
|
||||||
|
#define RTLConsts_SSortedListError 65422
|
||||||
|
#define RTLConsts_SUnknownGroup 65423
|
||||||
|
#define SysConst_SLongDayNameThu 65424
|
||||||
|
#define SysConst_SLongDayNameFri 65425
|
||||||
|
#define SysConst_SLongDayNameSat 65426
|
||||||
|
#define RTLConsts_SAncestorNotFound 65427
|
||||||
|
#define RTLConsts_SAssignError 65428
|
||||||
|
#define RTLConsts_SBitsIndexError 65429
|
||||||
|
#define RTLConsts_SCantWriteResourceStreamError 65430
|
||||||
|
#define RTLConsts_SCheckSynchronizeError 65431
|
||||||
|
#define RTLConsts_SClassNotFound 65432
|
||||||
|
#define RTLConsts_SDuplicateClass 65433
|
||||||
|
#define RTLConsts_SDuplicateItem 65434
|
||||||
|
#define RTLConsts_SDuplicateName 65435
|
||||||
|
#define RTLConsts_SDuplicateString 65436
|
||||||
|
#define RTLConsts_SFCreateError 65437
|
||||||
|
#define RTLConsts_SFOpenError 65438
|
||||||
|
#define RTLConsts_SIniFileWriteError 65439
|
||||||
|
#define SysConst_SLongMonthNameAug 65440
|
||||||
|
#define SysConst_SLongMonthNameSep 65441
|
||||||
|
#define SysConst_SLongMonthNameOct 65442
|
||||||
|
#define SysConst_SLongMonthNameNov 65443
|
||||||
|
#define SysConst_SLongMonthNameDec 65444
|
||||||
|
#define SysConst_SShortDayNameSun 65445
|
||||||
|
#define SysConst_SShortDayNameMon 65446
|
||||||
|
#define SysConst_SShortDayNameTue 65447
|
||||||
|
#define SysConst_SShortDayNameWed 65448
|
||||||
|
#define SysConst_SShortDayNameThu 65449
|
||||||
|
#define SysConst_SShortDayNameFri 65450
|
||||||
|
#define SysConst_SShortDayNameSat 65451
|
||||||
|
#define SysConst_SLongDayNameSun 65452
|
||||||
|
#define SysConst_SLongDayNameMon 65453
|
||||||
|
#define SysConst_SLongDayNameTue 65454
|
||||||
|
#define SysConst_SLongDayNameWed 65455
|
||||||
|
#define SysConst_SShortMonthNameApr 65456
|
||||||
|
#define SysConst_SShortMonthNameMay 65457
|
||||||
|
#define SysConst_SShortMonthNameJun 65458
|
||||||
|
#define SysConst_SShortMonthNameJul 65459
|
||||||
|
#define SysConst_SShortMonthNameAug 65460
|
||||||
|
#define SysConst_SShortMonthNameSep 65461
|
||||||
|
#define SysConst_SShortMonthNameOct 65462
|
||||||
|
#define SysConst_SShortMonthNameNov 65463
|
||||||
|
#define SysConst_SShortMonthNameDec 65464
|
||||||
|
#define SysConst_SLongMonthNameJan 65465
|
||||||
|
#define SysConst_SLongMonthNameFeb 65466
|
||||||
|
#define SysConst_SLongMonthNameMar 65467
|
||||||
|
#define SysConst_SLongMonthNameApr 65468
|
||||||
|
#define SysConst_SLongMonthNameMay 65469
|
||||||
|
#define SysConst_SLongMonthNameJun 65470
|
||||||
|
#define SysConst_SLongMonthNameJul 65471
|
||||||
|
#define SysConst_SVarInvalid 65472
|
||||||
|
#define SysConst_SVarBadType 65473
|
||||||
|
#define SysConst_SVarNotImplemented 65474
|
||||||
|
#define SysConst_SVarUnexpected 65475
|
||||||
|
#define SysConst_SExternalException 65476
|
||||||
|
#define SysConst_SAssertionFailed 65477
|
||||||
|
#define SysConst_SIntfCastError 65478
|
||||||
|
#define SysConst_SSafecallException 65479
|
||||||
|
#define SysConst_SAssertError 65480
|
||||||
|
#define SysConst_SAbstractError 65481
|
||||||
|
#define SysConst_SModuleAccessViolation 65482
|
||||||
|
#define SysConst_SOSError 65483
|
||||||
|
#define SysConst_SUnkOSError 65484
|
||||||
|
#define SysConst_SShortMonthNameJan 65485
|
||||||
|
#define SysConst_SShortMonthNameFeb 65486
|
||||||
|
#define SysConst_SShortMonthNameMar 65487
|
||||||
|
#define SysConst_SInvalidFormat 65488
|
||||||
|
#define SysConst_SArgumentMissing 65489
|
||||||
|
#define SysConst_SDispatchError 65490
|
||||||
|
#define SysConst_SReadAccess 65491
|
||||||
|
#define SysConst_SWriteAccess 65492
|
||||||
|
#define SysConst_SVarArrayCreate 65493
|
||||||
|
#define SysConst_SVarArrayBounds 65494
|
||||||
|
#define SysConst_SVarArrayLocked 65495
|
||||||
|
#define SysConst_SInvalidVarCast 65496
|
||||||
|
#define SysConst_SInvalidVarOp 65497
|
||||||
|
#define SysConst_SInvalidVarOpWithHResult 65498
|
||||||
|
#define SysConst_SVarNotArray 65499
|
||||||
|
#define SysConst_SInvalidVarNullOp 65500
|
||||||
|
#define SysConst_SVarTypeCouldNotConvert 65501
|
||||||
|
#define SysConst_SVarTypeConvertOverflow 65502
|
||||||
|
#define SysConst_SVarOverflow 65503
|
||||||
|
#define SysConst_SDivByZero 65504
|
||||||
|
#define SysConst_SRangeError 65505
|
||||||
|
#define SysConst_SIntOverflow 65506
|
||||||
|
#define SysConst_SInvalidOp 65507
|
||||||
|
#define SysConst_SZeroDivide 65508
|
||||||
|
#define SysConst_SOverflow 65509
|
||||||
|
#define SysConst_SUnderflow 65510
|
||||||
|
#define SysConst_SInvalidPointer 65511
|
||||||
|
#define SysConst_SInvalidCast 65512
|
||||||
|
#define SysConst_SAccessViolation 65513
|
||||||
|
#define SysConst_SStackOverflow 65514
|
||||||
|
#define SysConst_SControlC 65515
|
||||||
|
#define SysConst_SPrivilege 65516
|
||||||
|
#define SysConst_SOperationAborted 65517
|
||||||
|
#define SysConst_SException 65518
|
||||||
|
#define SysConst_SExceptTitle 65519
|
||||||
|
#define SysConst_SInvalidInteger 65520
|
||||||
|
#define SysConst_SInvalidFloat 65521
|
||||||
|
#define SysConst_SInvalidDate 65522
|
||||||
|
#define SysConst_SInvalidTime 65523
|
||||||
|
#define SysConst_SInvalidDateTime 65524
|
||||||
|
#define SysConst_STimeEncodeError 65525
|
||||||
|
#define SysConst_SDateEncodeError 65526
|
||||||
|
#define SysConst_SOutOfMemory 65527
|
||||||
|
#define SysConst_SInOutError 65528
|
||||||
|
#define SysConst_SFileNotFound 65529
|
||||||
|
#define SysConst_SInvalidFilename 65530
|
||||||
|
#define SysConst_STooManyOpenFiles 65531
|
||||||
|
#define SysConst_SAccessDenied 65532
|
||||||
|
#define SysConst_SEndOfFile 65533
|
||||||
|
#define SysConst_SDiskFull 65534
|
||||||
|
#define SysConst_SInvalidInput 65535
|
||||||
|
STRINGTABLE
|
||||||
|
BEGIN
|
||||||
|
JclResources_RsIntelCacheDescr7C, "2° Level cache, 1 MBytes, 8-way set associative, dual-sectored line, 64 Bytes sector size"
|
||||||
|
JclResources_RsIntelCacheDescr7D, "2° Level cache, 2 MByte, 8-way set associative, 64byte line size"
|
||||||
|
JclResources_RsIntelCacheDescr7F, "2° Level cache, 512 KByte, 2-way set associative, 64-byte line size"
|
||||||
|
JclResources_RsIntelCacheDescr82, "2° Level cache, 256 KBytes, 8-way associative, 32 Bytes line size"
|
||||||
|
JclResources_RsIntelCacheDescr83, "2° Level cache, 512 KBytes, 8-way associative, 32 Bytes line size"
|
||||||
|
JclResources_RsIntelCacheDescr84, "2° Level cache, 1 MBytes, 8-way associative, 32 Bytes line size"
|
||||||
|
JclResources_RsIntelCacheDescr85, "2° Level cache, 2 MBytes, 8-way associative, 32 Bytes line size"
|
||||||
|
JclResources_RsIntelCacheDescr86, "2° Level cache, 512 KByte, 4-way set associative, 64 byte line size"
|
||||||
|
JclResources_RsIntelCacheDescr87, "2° Level cache, 1 MByte, 8-way set associative, 64 byte line size"
|
||||||
|
JclResources_RsIntelCacheDescrB0, "Instruction TLB, 4 KByte Pages, 4-way set associative, 128 entries"
|
||||||
|
JclResources_RsIntelCacheDescrB3, "Data TLB, 4 KByte Pages, 4-way set associative, 128 entries"
|
||||||
|
JclResources_RsIntelCacheDescrF0, "64-Byte Prefetching"
|
||||||
|
JclResources_RsIntelCacheDescrF1, "128-Byte Prefetching"
|
||||||
|
JclResources_RsIntelCacheDescr51, "Instruction TLB, 4 KBytes and 2 MBytes or 4 MBytes pages, 128 Entries"
|
||||||
|
JclResources_RsIntelCacheDescr52, "Instruction TLB, 4 KBytes and 2 MBytes or 4 MBytes pages, 256 Entries"
|
||||||
|
JclResources_RsIntelCacheDescr5B, "Data TLB, 4 KBytes and 4 MBytes pages, 64 Entries"
|
||||||
|
JclResources_RsIntelCacheDescr5C, "Data TLB, 4 KBytes and 4 MBytes pages, 128 Entries"
|
||||||
|
JclResources_RsIntelCacheDescr5D, "Data TLB, 4 KBytes and 4 MBytes pages, 256 Entries"
|
||||||
|
JclResources_RsIntelCacheDescr60, "1° Level data cache: 16 KByte, 8-way set associative, 64 byte line size"
|
||||||
|
JclResources_RsIntelCacheDescr66, "1° Level Data cache, 8 KBytes, 4-way set associative, 64 Bytes line size"
|
||||||
|
JclResources_RsIntelCacheDescr67, "1° Level Data cache, 16 KBytes, 4-way set associative, 64 Bytes line size"
|
||||||
|
JclResources_RsIntelCacheDescr68, "1° Level Data cache, 32 KBytes, 4-way set associative, 64 Bytes line size"
|
||||||
|
JclResources_RsIntelCacheDescr70, "Trace cache, 12 KµOps, 8-way set associative"
|
||||||
|
JclResources_RsIntelCacheDescr71, "Trace cache, 16 KµOps, 8-way set associative"
|
||||||
|
JclResources_RsIntelCacheDescr72, "Trace cache, 32 KµOps, 8-way set associative"
|
||||||
|
JclResources_RsIntelCacheDescr78, "2° Level cache, 1 MBytes, 4-way set associative, 64 Bytes line size"
|
||||||
|
JclResources_RsIntelCacheDescr79, "2° Level cache, 128 KBytes, 8-way set associative, dual-sectored line, 64 Bytes sector size"
|
||||||
|
JclResources_RsIntelCacheDescr7A, "2° Level cache, 256 KBytes, 8-way set associative, dual-sectored line, 64 Bytes sector size"
|
||||||
|
JclResources_RsIntelCacheDescr7B, "2° Level cache, 512 KBytes, 8-way set associative, dual-sectored line, 64 Bytes sector size"
|
||||||
|
JclResources_RsIntelCacheDescr08, "16KB instruction cache, 4-way set associative, 32 byte line size"
|
||||||
|
JclResources_RsIntelCacheDescr0A, "8KB data cache 2-way set associative, 32 byte line size"
|
||||||
|
JclResources_RsIntelCacheDescr0C, "16KB data cache, 4-way set associative, 32 byte line size"
|
||||||
|
JclResources_RsIntelCacheDescr22, "3° Level cache, 512 KBytes, 4-way set associative, 2 lines per sector, 128 byte sector size"
|
||||||
|
JclResources_RsIntelCacheDescr23, "3° Level cache, 1 MBytes, 8-way set associative, 2 lines per sector, 128 byte sector size"
|
||||||
|
JclResources_RsIntelCacheDescr25, "3° Level cache, 2 MBytes, 8-way set associative, 2 lines per sector, 128 byte line size"
|
||||||
|
JclResources_RsIntelCacheDescr29, "3° Level cache, 4M Bytes, 8-way set associative, 2 lines per sector, 128 byte line size"
|
||||||
|
JclResources_RsIntelCacheDescr2C, "1° Level data cache: 32K Bytes, 8-way set associative, 64 byte line size"
|
||||||
|
JclResources_RsIntelCacheDescr30, "1° Level instruction cache: 32K Bytes, 8-way set associative, 64 byte line size"
|
||||||
|
JclResources_RsIntelCacheDescr40, "No L2 cache"
|
||||||
|
JclResources_RsIntelCacheDescr41, "Unified cache, 32 byte cache line, 4-way set associative, 128Kb"
|
||||||
|
JclResources_RsIntelCacheDescr42, "Unified cache, 32 byte cache line, 4-way set associative, 256Kb"
|
||||||
|
JclResources_RsIntelCacheDescr43, "Unified cache, 32 byte cache line, 4-way set associative, 512Kb"
|
||||||
|
JclResources_RsIntelCacheDescr44, "Unified cache, 32 byte cache line, 4-way set associative, 1Mb"
|
||||||
|
JclResources_RsIntelCacheDescr45, "Unified cache, 32 byte cache line, 4-way set associative, 2Mb"
|
||||||
|
JclResources_RsIntelCacheDescr50, "Instruction TLB, 4 KBytes and 2 MBytes or 4 MBytes pages, 64 Entries"
|
||||||
|
JvResources_RsMenuHighlight, "Menu Highlight"
|
||||||
|
ComConst_SOleError, "OLE error %.8x"
|
||||||
|
ComConst_SNoMethod, "Method '%s' not supported by automation object"
|
||||||
|
ComConst_SVarNotObject, "Variant does not reference an automation object"
|
||||||
|
ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"
|
||||||
|
ComStrs_sInvalidOwner, "Invalid owner"
|
||||||
|
ComStrs_sRichEditInsertError, "RichEdit line insertion error"
|
||||||
|
ComStrs_sRichEditLoadFail, "Failed to Load Stream"
|
||||||
|
ComStrs_sRichEditSaveFail, "Failed to Save Stream"
|
||||||
|
ComStrs_sInvalidComCtl32, "This control requires version 4.70 or greater of COMCTL32.DLL"
|
||||||
|
JclResources_RsIntelCacheDescr00, "Null descriptor"
|
||||||
|
JclResources_RsIntelCacheDescr01, "Instruction TLB, 4Kb pages, 4-way set associative, 32 entries"
|
||||||
|
JclResources_RsIntelCacheDescr02, "Instruction TLB, 4Mb pages, fully associative, 2 entries"
|
||||||
|
JclResources_RsIntelCacheDescr03, "Data TLB, 4Kb pages, 4-way set associative, 64 entries"
|
||||||
|
JclResources_RsIntelCacheDescr04, "Data TLB, 4Mb pages, 4-way set associative, 8 entries"
|
||||||
|
JclResources_RsIntelCacheDescr06, "8KB instruction cache, 4-way set associative, 32 byte line size"
|
||||||
|
JvResources_RsClHighlight, "Selection background"
|
||||||
|
JvResources_RsClHighlightText, "Selection text"
|
||||||
|
JvResources_RsClBtnFace, "Button face"
|
||||||
|
JvResources_RsClBtnShadow, "Button shadow"
|
||||||
|
JvResources_RsClGrayText, "Dimmed text"
|
||||||
|
JvResources_RsClBtnText, "Button text"
|
||||||
|
JvResources_RsClInactiveCaptionText, "Inactive window title bar text"
|
||||||
|
JvResources_RsClBtnHighlight, "Button highlight"
|
||||||
|
JvResources_RsCl3DDkShadow, "Dark shadow 3D elements"
|
||||||
|
JvResources_RsCl3DLight, "Highlight 3D elements"
|
||||||
|
JvResources_RsClInfoText, "Tooltip text"
|
||||||
|
JvResources_RsClInfoBk, "Tooltip background"
|
||||||
|
JvResources_RsGradientActiveCaption, "Gradient Active Caption"
|
||||||
|
JvResources_RsGradientInactiveCaption, "Gradient Inactive Caption"
|
||||||
|
JvResources_RsHotLight, "Hot Light"
|
||||||
|
JvResources_RsMenuBar, "Menu Bar"
|
||||||
|
JvResources_RsClLightTurquoise, "Light Turquoise"
|
||||||
|
JvResources_RsClPaleBlue, "Pale Blue"
|
||||||
|
JvResources_RsClLavender, "Lavender"
|
||||||
|
JvResources_RsClScrollBar, "Scrollbar"
|
||||||
|
JvResources_RsClBackground, "Desktop background"
|
||||||
|
JvResources_RsClActiveCaption, "Active window title bar"
|
||||||
|
JvResources_RsClInactiveCaption, "Inactive window title bar"
|
||||||
|
JvResources_RsClMenu, "Menu background"
|
||||||
|
JvResources_RsClWindow, "Window background"
|
||||||
|
JvResources_RsClWindowFrame, "Window frame"
|
||||||
|
JvResources_RsClMenuText, "Menu text"
|
||||||
|
JvResources_RsClWindowText, "Window text"
|
||||||
|
JvResources_RsClCaptionText, "Active window title bar text"
|
||||||
|
JvResources_RsClActiveBorder, "Active window border"
|
||||||
|
JvResources_RsClInactiveBorder, "Inactive window border"
|
||||||
|
JvResources_RsClAppWorkSpace, "Application workspace"
|
||||||
|
JvResources_RsClGray50, "Gray 50%"
|
||||||
|
JvResources_RsClLightOrange, "Light Orange"
|
||||||
|
JvResources_RsClSeaGreen, "Sea Green"
|
||||||
|
JvResources_RsClLightBlue, "Light Blue"
|
||||||
|
JvResources_RsClViolet, "Violet"
|
||||||
|
JvResources_RsClGray40, "Gray 40%"
|
||||||
|
JvResources_RsClPink, "Pink"
|
||||||
|
JvResources_RsClGold, "Gold"
|
||||||
|
JvResources_RsClBrightGreen, "Bright Green"
|
||||||
|
JvResources_RsClTurquoise, "Turquoise"
|
||||||
|
JvResources_RsClPlum, "Plum"
|
||||||
|
JvResources_RsClGray25, "Gray 25%"
|
||||||
|
JvResources_RsClRose, "Rose"
|
||||||
|
JvResources_RsClTan, "Tan"
|
||||||
|
JvResources_RsClLightYellow, "Light Yellow"
|
||||||
|
JvResources_RsClLightGreen, "Light Green"
|
||||||
|
JvResources_RsClWhite, "White"
|
||||||
|
JvResources_RsClMoneyGreen, "Money green"
|
||||||
|
JvResources_RsClSkyBlue, "Sky blue"
|
||||||
|
JvResources_RsClCream, "Cream"
|
||||||
|
JvResources_RsClMedGray, "Medium gray"
|
||||||
|
JvResources_RsClBrown, "Brown"
|
||||||
|
JvResources_RsClOliveGreen, "Olive Green"
|
||||||
|
JvResources_RsClDarkGreen, "Dark Green"
|
||||||
|
JvResources_RsClDarkTeal, "Dark Teal"
|
||||||
|
JvResources_RsClDarkBlue, "Dark Blue"
|
||||||
|
JvResources_RsClIndigo, "Indigo"
|
||||||
|
JvResources_RsClGray80, "Gray 80%"
|
||||||
|
JvResources_RsClDarkRed, "Dark Red"
|
||||||
|
JvResources_RsClOrange, "Orange"
|
||||||
|
JvResources_RsClDarkYellow, "Dark Yellow"
|
||||||
|
JvResources_RsClBlueGray, "Blue Gray"
|
||||||
|
HelpIntfs_hNoTopics, "No topic-based help system installed"
|
||||||
|
JvResources_RsClBlack, "Black"
|
||||||
|
JvResources_RsClMaroon, "Maroon"
|
||||||
|
JvResources_RsClGreen, "Green"
|
||||||
|
JvResources_RsClOlive, "Olive green"
|
||||||
|
JvResources_RsClNavy, "Navy blue"
|
||||||
|
JvResources_RsClPurple, "Purple"
|
||||||
|
JvResources_RsClTeal, "Teal"
|
||||||
|
JvResources_RsClGray, "Gray"
|
||||||
|
JvResources_RsClSilver, "Silver"
|
||||||
|
JvResources_RsClRed, "Red"
|
||||||
|
JvResources_RsClLime, "Lime"
|
||||||
|
JvResources_RsClYellow, "Yellow"
|
||||||
|
JvResources_RsClBlue, "Blue"
|
||||||
|
JvResources_RsClFuchsia, "Fuchsia"
|
||||||
|
JvResources_RsClAqua, "Aqua"
|
||||||
|
Consts_SmkcDel, "Del"
|
||||||
|
Consts_SmkcShift, "Shift+"
|
||||||
|
Consts_SmkcCtrl, "Ctrl+"
|
||||||
|
Consts_SmkcAlt, "Alt+"
|
||||||
|
Consts_SInsertLineError, "Unable to insert a line"
|
||||||
|
Consts_SIconToClipboard, "Clipboard does not support Icons"
|
||||||
|
Consts_SInvalidMemoSize, "Text exceeds memo capacity"
|
||||||
|
Consts_SNoDefaultPrinter, "There is no default printer currently selected"
|
||||||
|
Consts_SDuplicateMenus, "Menu '%s' is already being used by another form"
|
||||||
|
Consts_SDockedCtlNeedsName, "Docked control must have a name"
|
||||||
|
Consts_SDockTreeRemoveError, "Error removing control from dock tree"
|
||||||
|
Consts_SDockZoneNotFound, " - Dock zone not found"
|
||||||
|
Consts_SDockZoneHasNoCtl, " - Dock zone has no control"
|
||||||
|
HelpIntfs_hNoTableOfContents, "Unable to find a Table of Contents"
|
||||||
|
HelpIntfs_hNothingFound, "No help found for %s"
|
||||||
|
HelpIntfs_hNoContext, "No context-sensitive help installed"
|
||||||
|
Consts_SMsgDlgNoToAll, "N&o to All"
|
||||||
|
Consts_SMsgDlgYesToAll, "Yes to &All"
|
||||||
|
Consts_SmkcBkSp, "BkSp"
|
||||||
|
Consts_SmkcTab, "Tab"
|
||||||
|
Consts_SmkcEsc, "Esc"
|
||||||
|
Consts_SmkcEnter, "Enter"
|
||||||
|
Consts_SmkcSpace, "Space"
|
||||||
|
Consts_SmkcPgUp, "PgUp"
|
||||||
|
Consts_SmkcPgDn, "PgDn"
|
||||||
|
Consts_SmkcEnd, "End"
|
||||||
|
Consts_SmkcHome, "Home"
|
||||||
|
Consts_SmkcLeft, "Left"
|
||||||
|
Consts_SmkcUp, "Up"
|
||||||
|
Consts_SmkcRight, "Right"
|
||||||
|
Consts_SmkcDown, "Down"
|
||||||
|
Consts_SmkcIns, "Ins"
|
||||||
|
Consts_SAbortButton, "Abort"
|
||||||
|
Consts_SAllButton, "&All"
|
||||||
|
Consts_SCannotDragForm, "Cannot drag a form"
|
||||||
|
Consts_SMsgDlgWarning, "Warning"
|
||||||
|
Consts_SMsgDlgError, "Error"
|
||||||
|
Consts_SMsgDlgInformation, "Information"
|
||||||
|
Consts_SMsgDlgConfirm, "Confirm"
|
||||||
|
Consts_SMsgDlgYes, "&Yes"
|
||||||
|
Consts_SMsgDlgNo, "&No"
|
||||||
|
Consts_SMsgDlgOK, "OK"
|
||||||
|
Consts_SMsgDlgCancel, "Cancel"
|
||||||
|
Consts_SMsgDlgHelp, "&Help"
|
||||||
|
Consts_SMsgDlgAbort, "&Abort"
|
||||||
|
Consts_SMsgDlgRetry, "&Retry"
|
||||||
|
Consts_SMsgDlgIgnore, "&Ignore"
|
||||||
|
Consts_SMsgDlgAll, "&All"
|
||||||
|
Consts_SNoTimers, "Not enough timers available"
|
||||||
|
Consts_SNotPrinting, "Printer is not currently printing"
|
||||||
|
Consts_SPrinting, "Printing in progress"
|
||||||
|
Consts_SInvalidPrinter, "Printer selected is not valid"
|
||||||
|
Consts_SDeviceOnPort, "%s on %s"
|
||||||
|
Consts_SGroupIndexTooLow, "GroupIndex cannot be less than a previous menu item's GroupIndex"
|
||||||
|
Consts_SNoMDIForm, "Cannot create form. No MDI forms are currently active"
|
||||||
|
Consts_SControlParentSetToSelf, "A control cannot have itself as its parent"
|
||||||
|
Consts_SOKButton, "OK"
|
||||||
|
Consts_SCancelButton, "Cancel"
|
||||||
|
Consts_SYesButton, "&Yes"
|
||||||
|
Consts_SNoButton, "&No"
|
||||||
|
Consts_SHelpButton, "&Help"
|
||||||
|
Consts_SCloseButton, "&Close"
|
||||||
|
Consts_SIgnoreButton, "&Ignore"
|
||||||
|
Consts_SRetryButton, "&Retry"
|
||||||
|
Consts_SNoCanvasHandle, "Canvas does not allow drawing"
|
||||||
|
Consts_SInvalidImageSize, "Invalid image size"
|
||||||
|
Consts_SInvalidImageList, "Invalid ImageList"
|
||||||
|
Consts_SImageIndexError, "Invalid ImageList Index"
|
||||||
|
Consts_SImageReadFail, "Failed to read ImageList data from stream"
|
||||||
|
Consts_SImageWriteFail, "Failed to write ImageList data to stream"
|
||||||
|
Consts_SWindowDCError, "Error creating window device context"
|
||||||
|
Consts_SWindowClass, "Error creating window class"
|
||||||
|
Consts_SCannotFocus, "Cannot focus a disabled or invisible window"
|
||||||
|
Consts_SParentRequired, "Control '%s' has no parent window"
|
||||||
|
Consts_SMDIChildNotVisible, "Cannot hide an MDI Child Form"
|
||||||
|
Consts_SVisibleChanged, "Cannot change Visible in OnShow or OnHide"
|
||||||
|
Consts_SCannotShowModal, "Cannot make a visible window modal"
|
||||||
|
Consts_SMenuIndexError, "Menu index out of range"
|
||||||
|
Consts_SMenuReinserted, "Menu inserted twice"
|
||||||
|
Consts_SMenuNotFound, "Sub-menu is not in menu"
|
||||||
|
RTLConsts_SUnknownProperty, "Property %s does not exist"
|
||||||
|
RTLConsts_SWriteError, "Stream write error"
|
||||||
|
RTLConsts_SThreadCreateError, "Thread creation error: %s"
|
||||||
|
RTLConsts_SThreadError, "Thread Error: %s (%d)"
|
||||||
|
RTLConsts_sWindowsSocketError, "Windows socket error: %s (%d), on API '%s'"
|
||||||
|
RTLConsts_sAsyncSocketError, "Asynchronous socket error %d"
|
||||||
|
RTLConsts_sNoAddress, "No address specified"
|
||||||
|
RTLConsts_sCannotListenOnOpen, "Can't listen on an open socket"
|
||||||
|
RTLConsts_sCannotCreateSocket, "Can't create new socket"
|
||||||
|
RTLConsts_sSocketAlreadyOpen, "Socket already open"
|
||||||
|
RTLConsts_sCantChangeWhileActive, "Can't change value while socket is active"
|
||||||
|
Consts_SInvalidBitmap, "Bitmap image is not valid"
|
||||||
|
Consts_SInvalidIcon, "Icon image is not valid"
|
||||||
|
Consts_SChangeIconSize, "Cannot change the size of an icon"
|
||||||
|
Consts_SUnknownClipboardFormat, "Unsupported clipboard format"
|
||||||
|
Consts_SOutOfResources, "Out of system resources"
|
||||||
|
RTLConsts_SInvalidImage, "Invalid stream format"
|
||||||
|
RTLConsts_SInvalidName, "''%s'' is not a valid component name"
|
||||||
|
RTLConsts_SInvalidProperty, "Invalid property value"
|
||||||
|
RTLConsts_SInvalidPropertyPath, "Invalid property path"
|
||||||
|
RTLConsts_SInvalidPropertyValue, "Invalid property value"
|
||||||
|
RTLConsts_SListCapacityError, "List capacity out of bounds (%d)"
|
||||||
|
RTLConsts_SListCountError, "List count out of bounds (%d)"
|
||||||
|
RTLConsts_SListIndexError, "List index out of bounds (%d)"
|
||||||
|
RTLConsts_SMemoryStreamError, "Out of memory while expanding memory stream"
|
||||||
|
RTLConsts_SPropertyException, "Error reading %s%s%s: %s"
|
||||||
|
RTLConsts_SReadError, "Stream read error"
|
||||||
|
RTLConsts_SReadOnlyProperty, "Property is read-only"
|
||||||
|
RTLConsts_SResNotFound, "Resource %s not found"
|
||||||
|
RTLConsts_SSeekNotImplemented, "%s.Seek not implemented"
|
||||||
|
RTLConsts_SSortedListError, "Operation not allowed on sorted list"
|
||||||
|
RTLConsts_SUnknownGroup, "%s not in a class registration group"
|
||||||
|
SysConst_SLongDayNameThu, "Thursday"
|
||||||
|
SysConst_SLongDayNameFri, "Friday"
|
||||||
|
SysConst_SLongDayNameSat, "Saturday"
|
||||||
|
RTLConsts_SAncestorNotFound, "Ancestor for '%s' not found"
|
||||||
|
RTLConsts_SAssignError, "Cannot assign a %s to a %s"
|
||||||
|
RTLConsts_SBitsIndexError, "Bits index out of range"
|
||||||
|
RTLConsts_SCantWriteResourceStreamError, "Can't write to a read-only resource stream"
|
||||||
|
RTLConsts_SCheckSynchronizeError, "CheckSynchronize called from thread $%x, which is NOT the main thread"
|
||||||
|
RTLConsts_SClassNotFound, "Class %s not found"
|
||||||
|
RTLConsts_SDuplicateClass, "A class named %s already exists"
|
||||||
|
RTLConsts_SDuplicateItem, "List does not allow duplicates ($0%x)"
|
||||||
|
RTLConsts_SDuplicateName, "A component named %s already exists"
|
||||||
|
RTLConsts_SDuplicateString, "String list does not allow duplicates"
|
||||||
|
RTLConsts_SFCreateError, "Cannot create file %s"
|
||||||
|
RTLConsts_SFOpenError, "Cannot open file %s"
|
||||||
|
RTLConsts_SIniFileWriteError, "Unable to write to %s"
|
||||||
|
SysConst_SLongMonthNameAug, "August"
|
||||||
|
SysConst_SLongMonthNameSep, "September"
|
||||||
|
SysConst_SLongMonthNameOct, "October"
|
||||||
|
SysConst_SLongMonthNameNov, "November"
|
||||||
|
SysConst_SLongMonthNameDec, "December"
|
||||||
|
SysConst_SShortDayNameSun, "Sun"
|
||||||
|
SysConst_SShortDayNameMon, "Mon"
|
||||||
|
SysConst_SShortDayNameTue, "Tue"
|
||||||
|
SysConst_SShortDayNameWed, "Wed"
|
||||||
|
SysConst_SShortDayNameThu, "Thu"
|
||||||
|
SysConst_SShortDayNameFri, "Fri"
|
||||||
|
SysConst_SShortDayNameSat, "Sat"
|
||||||
|
SysConst_SLongDayNameSun, "Sunday"
|
||||||
|
SysConst_SLongDayNameMon, "Monday"
|
||||||
|
SysConst_SLongDayNameTue, "Tuesday"
|
||||||
|
SysConst_SLongDayNameWed, "Wednesday"
|
||||||
|
SysConst_SShortMonthNameApr, "Apr"
|
||||||
|
SysConst_SShortMonthNameMay, "May"
|
||||||
|
SysConst_SShortMonthNameJun, "Jun"
|
||||||
|
SysConst_SShortMonthNameJul, "Jul"
|
||||||
|
SysConst_SShortMonthNameAug, "Aug"
|
||||||
|
SysConst_SShortMonthNameSep, "Sep"
|
||||||
|
SysConst_SShortMonthNameOct, "Oct"
|
||||||
|
SysConst_SShortMonthNameNov, "Nov"
|
||||||
|
SysConst_SShortMonthNameDec, "Dec"
|
||||||
|
SysConst_SLongMonthNameJan, "January"
|
||||||
|
SysConst_SLongMonthNameFeb, "February"
|
||||||
|
SysConst_SLongMonthNameMar, "March"
|
||||||
|
SysConst_SLongMonthNameApr, "April"
|
||||||
|
SysConst_SLongMonthNameMay, "May"
|
||||||
|
SysConst_SLongMonthNameJun, "June"
|
||||||
|
SysConst_SLongMonthNameJul, "July"
|
||||||
|
SysConst_SVarInvalid, "Invalid argument"
|
||||||
|
SysConst_SVarBadType, "Invalid variant type"
|
||||||
|
SysConst_SVarNotImplemented, "Operation not supported"
|
||||||
|
SysConst_SVarUnexpected, "Unexpected variant error"
|
||||||
|
SysConst_SExternalException, "External exception %x"
|
||||||
|
SysConst_SAssertionFailed, "Assertion failed"
|
||||||
|
SysConst_SIntfCastError, "Interface not supported"
|
||||||
|
SysConst_SSafecallException, "Exception in safecall method"
|
||||||
|
SysConst_SAssertError, "%s (%s, line %d)"
|
||||||
|
SysConst_SAbstractError, "Abstract Error"
|
||||||
|
SysConst_SModuleAccessViolation, "Access violation at address %p in module '%s'. %s of address %p"
|
||||||
|
SysConst_SOSError, "System Error. Code: %d.\r\n%s"
|
||||||
|
SysConst_SUnkOSError, "A call to an OS function failed"
|
||||||
|
SysConst_SShortMonthNameJan, "Jan"
|
||||||
|
SysConst_SShortMonthNameFeb, "Feb"
|
||||||
|
SysConst_SShortMonthNameMar, "Mar"
|
||||||
|
SysConst_SInvalidFormat, "Format '%s' invalid or incompatible with argument"
|
||||||
|
SysConst_SArgumentMissing, "No argument for format '%s'"
|
||||||
|
SysConst_SDispatchError, "Variant method calls not supported"
|
||||||
|
SysConst_SReadAccess, "Read"
|
||||||
|
SysConst_SWriteAccess, "Write"
|
||||||
|
SysConst_SVarArrayCreate, "Error creating variant array"
|
||||||
|
SysConst_SVarArrayBounds, "Variant array index out of bounds"
|
||||||
|
SysConst_SVarArrayLocked, "Variant array is locked"
|
||||||
|
SysConst_SInvalidVarCast, "Invalid variant type conversion"
|
||||||
|
SysConst_SInvalidVarOp, "Invalid variant operation"
|
||||||
|
SysConst_SInvalidVarOpWithHResult, "Invalid variant operation ($%.8x)"
|
||||||
|
SysConst_SVarNotArray, "Variant is not an array"
|
||||||
|
SysConst_SInvalidVarNullOp, "Invalid NULL variant operation"
|
||||||
|
SysConst_SVarTypeCouldNotConvert, "Could not convert variant of type (%s) into type (%s)"
|
||||||
|
SysConst_SVarTypeConvertOverflow, "Overflow while converting variant of type (%s) into type (%s)"
|
||||||
|
SysConst_SVarOverflow, "Variant overflow"
|
||||||
|
SysConst_SDivByZero, "Division by zero"
|
||||||
|
SysConst_SRangeError, "Range check error"
|
||||||
|
SysConst_SIntOverflow, "Integer overflow"
|
||||||
|
SysConst_SInvalidOp, "Invalid floating point operation"
|
||||||
|
SysConst_SZeroDivide, "Floating point division by zero"
|
||||||
|
SysConst_SOverflow, "Floating point overflow"
|
||||||
|
SysConst_SUnderflow, "Floating point underflow"
|
||||||
|
SysConst_SInvalidPointer, "Invalid pointer operation"
|
||||||
|
SysConst_SInvalidCast, "Invalid class typecast"
|
||||||
|
SysConst_SAccessViolation, "Access violation at address %p. %s of address %p"
|
||||||
|
SysConst_SStackOverflow, "Stack overflow"
|
||||||
|
SysConst_SControlC, "Control-C hit"
|
||||||
|
SysConst_SPrivilege, "Privileged instruction"
|
||||||
|
SysConst_SOperationAborted, "Operation aborted"
|
||||||
|
SysConst_SException, "Exception %s in module %s at %p.\r\n%s%s\r\n"
|
||||||
|
SysConst_SExceptTitle, "Application Error"
|
||||||
|
SysConst_SInvalidInteger, "'%s' is not a valid integer value"
|
||||||
|
SysConst_SInvalidFloat, "'%s' is not a valid floating point value"
|
||||||
|
SysConst_SInvalidDate, "'%s' is not a valid date"
|
||||||
|
SysConst_SInvalidTime, "'%s' is not a valid time"
|
||||||
|
SysConst_SInvalidDateTime, "'%s' is not a valid date and time"
|
||||||
|
SysConst_STimeEncodeError, "Invalid argument to time encode"
|
||||||
|
SysConst_SDateEncodeError, "Invalid argument to date encode"
|
||||||
|
SysConst_SOutOfMemory, "Out of memory"
|
||||||
|
SysConst_SInOutError, "I/O error %d"
|
||||||
|
SysConst_SFileNotFound, "File not found"
|
||||||
|
SysConst_SInvalidFilename, "Invalid filename"
|
||||||
|
SysConst_STooManyOpenFiles, "Too many open files"
|
||||||
|
SysConst_SAccessDenied, "File access denied"
|
||||||
|
SysConst_SEndOfFile, "Read beyond end of file"
|
||||||
|
SysConst_SDiskFull, "Disk full"
|
||||||
|
SysConst_SInvalidInput, "Invalid numeric input"
|
||||||
|
END
|
||||||
|
|
||||||
File diff suppressed because it is too large
Load Diff
Binary file not shown.
@ -1,16 +0,0 @@
|
|||||||
program PseuWoWConsole;
|
|
||||||
|
|
||||||
uses
|
|
||||||
Forms,
|
|
||||||
fMain in 'fMain.pas' {frmMain},
|
|
||||||
RedirectConsole in 'RedirectConsole.pas',
|
|
||||||
modRichEdit in 'modRichEdit.pas';
|
|
||||||
|
|
||||||
{$R *.RES}
|
|
||||||
|
|
||||||
begin
|
|
||||||
Application.Initialize;
|
|
||||||
Application.Title := 'PseWoW Console';
|
|
||||||
Application.CreateForm(TfrmMain, frmMain);
|
|
||||||
Application.Run;
|
|
||||||
end.
|
|
||||||
@ -1,92 +0,0 @@
|
|||||||
object Form1: TForm1
|
|
||||||
Left = 268
|
|
||||||
Top = 121
|
|
||||||
Width = 537
|
|
||||||
Height = 364
|
|
||||||
Caption = 'Form1'
|
|
||||||
Color = clBtnFace
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Fixedsys'
|
|
||||||
Font.Style = []
|
|
||||||
OldCreateOrder = False
|
|
||||||
OnCreate = FormCreate
|
|
||||||
PixelsPerInch = 96
|
|
||||||
TextHeight = 15
|
|
||||||
object Memo1: TMemo
|
|
||||||
Left = 0
|
|
||||||
Top = 73
|
|
||||||
Width = 529
|
|
||||||
Height = 264
|
|
||||||
Align = alClient
|
|
||||||
Color = clBlack
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = 16744576
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Fixedsys'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
ScrollBars = ssVertical
|
|
||||||
TabOrder = 0
|
|
||||||
WordWrap = False
|
|
||||||
end
|
|
||||||
object Edit2: TEdit
|
|
||||||
Left = 8
|
|
||||||
Top = 304
|
|
||||||
Width = 425
|
|
||||||
Height = 23
|
|
||||||
Color = clBlack
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = 16744576
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Fixedsys'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 1
|
|
||||||
Text = 'dir *.* /s'
|
|
||||||
OnKeyPress = Edit2KeyPress
|
|
||||||
end
|
|
||||||
object Panel1: TPanel
|
|
||||||
Left = 0
|
|
||||||
Top = 0
|
|
||||||
Width = 529
|
|
||||||
Height = 73
|
|
||||||
Align = alTop
|
|
||||||
BevelOuter = bvNone
|
|
||||||
TabOrder = 2
|
|
||||||
object Edit1: TEdit
|
|
||||||
Left = 8
|
|
||||||
Top = 10
|
|
||||||
Width = 513
|
|
||||||
Height = 23
|
|
||||||
Color = clBlack
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = 16744576
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Fixedsys'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 0
|
|
||||||
Text = 'd:\windows\system32\cmd.exe'
|
|
||||||
end
|
|
||||||
object Button2: TButton
|
|
||||||
Left = 8
|
|
||||||
Top = 40
|
|
||||||
Width = 75
|
|
||||||
Height = 25
|
|
||||||
Caption = 'RUN'
|
|
||||||
TabOrder = 1
|
|
||||||
OnClick = Button2Click
|
|
||||||
end
|
|
||||||
object Button3: TButton
|
|
||||||
Left = 88
|
|
||||||
Top = 40
|
|
||||||
Width = 75
|
|
||||||
Height = 25
|
|
||||||
Caption = 'Exit'
|
|
||||||
TabOrder = 2
|
|
||||||
OnClick = Button3Click
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
Binary file not shown.
@ -121,14 +121,6 @@ begin
|
|||||||
begin
|
begin
|
||||||
Port := 8089;
|
Port := 8089;
|
||||||
Open;
|
Open;
|
||||||
|
|
||||||
if (Active) then
|
|
||||||
begin
|
|
||||||
Close;
|
|
||||||
servRemote.Active := False;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
servRemote.Active := True;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
@ -196,6 +188,7 @@ begin
|
|||||||
if clientSock.Port = 8089 then
|
if clientSock.Port = 8089 then
|
||||||
begin
|
begin
|
||||||
Log('**** Already Listening ****');
|
Log('**** Already Listening ****');
|
||||||
|
servRemote.Active := False;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end;
|
end;
|
||||||
@ -214,7 +207,8 @@ begin
|
|||||||
end
|
end
|
||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
Log('Error in Checking For Listening', clMaroon);
|
Log('No Listening Console', clGreen);
|
||||||
|
servRemote.Active := True;
|
||||||
ErrorCode := 0;
|
ErrorCode := 0;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|||||||
Binary file not shown.
@ -1,144 +0,0 @@
|
|||||||
object frmMain: TfrmMain
|
|
||||||
Left = 393
|
|
||||||
Top = 142
|
|
||||||
Width = 535
|
|
||||||
Height = 390
|
|
||||||
Caption = 'PseuWoW Console'
|
|
||||||
Color = clBtnFace
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Fixedsys'
|
|
||||||
Font.Style = []
|
|
||||||
OldCreateOrder = False
|
|
||||||
OnCloseQuery = FormCloseQuery
|
|
||||||
OnCreate = FormCreate
|
|
||||||
OnDestroy = FormDestroy
|
|
||||||
PixelsPerInch = 96
|
|
||||||
TextHeight = 15
|
|
||||||
object Panel1: TPanel
|
|
||||||
Left = 0
|
|
||||||
Top = 0
|
|
||||||
Width = 527
|
|
||||||
Height = 73
|
|
||||||
Align = alTop
|
|
||||||
BevelOuter = bvNone
|
|
||||||
TabOrder = 0
|
|
||||||
object txtExe: TEdit
|
|
||||||
Left = 8
|
|
||||||
Top = 10
|
|
||||||
Width = 513
|
|
||||||
Height = 23
|
|
||||||
Color = clBlack
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = 16744576
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Fixedsys'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 0
|
|
||||||
Text = '[enter path to pseuwow bin]'
|
|
||||||
end
|
|
||||||
object btnRun: TButton
|
|
||||||
Left = 8
|
|
||||||
Top = 40
|
|
||||||
Width = 75
|
|
||||||
Height = 25
|
|
||||||
Caption = 'RUN'
|
|
||||||
TabOrder = 1
|
|
||||||
OnClick = btnRunClick
|
|
||||||
end
|
|
||||||
object btnExit: TButton
|
|
||||||
Left = 88
|
|
||||||
Top = 40
|
|
||||||
Width = 75
|
|
||||||
Height = 25
|
|
||||||
Caption = 'Exit'
|
|
||||||
TabOrder = 2
|
|
||||||
OnClick = btnExitClick
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object Console: TRichEdit
|
|
||||||
Left = 0
|
|
||||||
Top = 73
|
|
||||||
Width = 527
|
|
||||||
Height = 239
|
|
||||||
Align = alClient
|
|
||||||
Color = clBlack
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWhite
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Fixedsys'
|
|
||||||
Font.Style = []
|
|
||||||
Lines.Strings = (
|
|
||||||
'')
|
|
||||||
ParentFont = False
|
|
||||||
ReadOnly = True
|
|
||||||
ScrollBars = ssVertical
|
|
||||||
TabOrder = 1
|
|
||||||
OnResizeRequest = ConsoleResizeRequest
|
|
||||||
end
|
|
||||||
object grpCmd: TGroupBox
|
|
||||||
Left = 0
|
|
||||||
Top = 312
|
|
||||||
Width = 527
|
|
||||||
Height = 51
|
|
||||||
Align = alBottom
|
|
||||||
Caption = 'Command'
|
|
||||||
TabOrder = 2
|
|
||||||
object comCommand: TComboBox
|
|
||||||
Left = 8
|
|
||||||
Top = 19
|
|
||||||
Width = 513
|
|
||||||
Height = 23
|
|
||||||
AutoDropDown = True
|
|
||||||
Color = clBlack
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = 16744576
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Fixedsys'
|
|
||||||
Font.Style = []
|
|
||||||
ItemHeight = 15
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 0
|
|
||||||
OnKeyDown = comCommandKeyDown
|
|
||||||
Items.Strings = (
|
|
||||||
'!'
|
|
||||||
'!SAY'
|
|
||||||
'QUIT'
|
|
||||||
'SAY')
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object servRemote: TServerSocket
|
|
||||||
Active = False
|
|
||||||
Port = 8089
|
|
||||||
ServerType = stNonBlocking
|
|
||||||
OnClientRead = servRemoteClientRead
|
|
||||||
Left = 432
|
|
||||||
Top = 32
|
|
||||||
end
|
|
||||||
object timerStart: TTimer
|
|
||||||
Interval = 3000
|
|
||||||
OnTimer = timerStartTimer
|
|
||||||
Left = 472
|
|
||||||
Top = 32
|
|
||||||
end
|
|
||||||
object clientSock: TClientSocket
|
|
||||||
Active = False
|
|
||||||
ClientType = ctNonBlocking
|
|
||||||
Host = '127.0.0.1'
|
|
||||||
Port = 8085
|
|
||||||
OnConnecting = clientSockConnecting
|
|
||||||
OnConnect = clientSockConnect
|
|
||||||
OnError = clientSockError
|
|
||||||
Left = 400
|
|
||||||
Top = 32
|
|
||||||
end
|
|
||||||
object TrayIcon: TJvTrayIcon
|
|
||||||
Active = True
|
|
||||||
IconIndex = 0
|
|
||||||
Visibility = [tvVisibleTaskBar, tvVisibleTaskList, tvAutoHide, tvAutoHideIcon, tvRestoreClick, tvMinimizeClick]
|
|
||||||
Left = 360
|
|
||||||
Top = 32
|
|
||||||
end
|
|
||||||
end
|
|
||||||
@ -5,11 +5,11 @@ interface
|
|||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||||
StdCtrls, RedirectConsole, ExtCtrls, IniFiles, ScktComp, JvComponentBase,
|
StdCtrls, RedirectConsole, ExtCtrls, IniFiles, ScktComp, JvComponentBase,
|
||||||
JvTrayIcon, ComCtrls, modRichEdit, StrUtils;
|
JvTrayIcon, ComCtrls, modRichEdit, StrUtils, ImgList, modSCPUtils;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmMain = class(TForm)
|
TfrmMain = class(TForm)
|
||||||
Panel1: TPanel;
|
pnlTop: TPanel;
|
||||||
txtExe: TEdit;
|
txtExe: TEdit;
|
||||||
btnRun: TButton;
|
btnRun: TButton;
|
||||||
btnExit: TButton;
|
btnExit: TButton;
|
||||||
@ -18,8 +18,13 @@ type
|
|||||||
clientSock: TClientSocket;
|
clientSock: TClientSocket;
|
||||||
TrayIcon: TJvTrayIcon;
|
TrayIcon: TJvTrayIcon;
|
||||||
Console: TRichEdit;
|
Console: TRichEdit;
|
||||||
|
imgList: TImageList;
|
||||||
|
pnlBottom: TPanel;
|
||||||
grpCmd: TGroupBox;
|
grpCmd: TGroupBox;
|
||||||
comCommand: TComboBox;
|
comCommand: TComboBox;
|
||||||
|
pnlSessionTop: TPanel;
|
||||||
|
cbexIcon: TComboBoxEx;
|
||||||
|
txtChar: TStaticText;
|
||||||
procedure btnRunClick(Sender: TObject);
|
procedure btnRunClick(Sender: TObject);
|
||||||
procedure btnExitClick(Sender: TObject);
|
procedure btnExitClick(Sender: TObject);
|
||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
@ -36,6 +41,7 @@ type
|
|||||||
Shift: TShiftState);
|
Shift: TShiftState);
|
||||||
procedure clientSockConnecting(Sender: TObject;
|
procedure clientSockConnecting(Sender: TObject;
|
||||||
Socket: TCustomWinSocket);
|
Socket: TCustomWinSocket);
|
||||||
|
procedure cbexIconChange(Sender: TObject);
|
||||||
private
|
private
|
||||||
{ Private declarations }
|
{ Private declarations }
|
||||||
App : String;
|
App : String;
|
||||||
@ -44,6 +50,11 @@ type
|
|||||||
|
|
||||||
function ConsoleCommand(AString : String):Boolean;
|
function ConsoleCommand(AString : String):Boolean;
|
||||||
|
|
||||||
|
procedure LoadSettings;
|
||||||
|
procedure SetupIcons;
|
||||||
|
procedure SetIcon(AIndex : Integer; AUpdateINI : Boolean = True);
|
||||||
|
procedure LoadPseuSettings(AConFile : string);
|
||||||
|
|
||||||
procedure ShutDown;
|
procedure ShutDown;
|
||||||
procedure Execute(AFile: String);
|
procedure Execute(AFile: String);
|
||||||
procedure Launch;
|
procedure Launch;
|
||||||
@ -71,6 +82,8 @@ end;
|
|||||||
procedure TfrmMain.FormCreate(Sender: TObject);
|
procedure TfrmMain.FormCreate(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
RC_LineOut:=MyLineOut; // set Output
|
RC_LineOut:=MyLineOut; // set Output
|
||||||
|
SetupIcons;
|
||||||
|
LoadSettings;
|
||||||
Ready := False;
|
Ready := False;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -100,11 +113,30 @@ end;
|
|||||||
|
|
||||||
procedure TfrmMain.Execute(AFile : String);
|
procedure TfrmMain.Execute(AFile : String);
|
||||||
begin
|
begin
|
||||||
servRemote.Active := True;
|
//TT: Get Info from PseuWow.conf
|
||||||
|
LoadPseuSettings(ExtractFilePath(AFile)+'\conf\PseuWoW.conf');
|
||||||
|
|
||||||
|
//TT: See if we already have a server running
|
||||||
|
with clientSock do
|
||||||
|
begin
|
||||||
|
Port := 8089;
|
||||||
|
Open;
|
||||||
|
|
||||||
|
if (Active) then
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
servRemote.Active := False;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
servRemote.Active := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
Running := True;
|
Running := True;
|
||||||
Panel1.Hide;
|
pnlTop.Hide;
|
||||||
RC_Run(AFile);
|
|
||||||
comCommand.SetFocus;
|
comCommand.SetFocus;
|
||||||
|
RC_Run(AFile);
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||||
@ -121,7 +153,7 @@ begin
|
|||||||
timerStart.Enabled := False;
|
timerStart.Enabled := False;
|
||||||
if Ready then
|
if Ready then
|
||||||
begin
|
begin
|
||||||
TrayIcon.HideApplication;
|
//TrayIcon.HideApplication;
|
||||||
Launch;
|
Launch;
|
||||||
Exit;
|
Exit;
|
||||||
end
|
end
|
||||||
@ -150,25 +182,48 @@ end;
|
|||||||
procedure TfrmMain.clientSockConnect(Sender: TObject;
|
procedure TfrmMain.clientSockConnect(Sender: TObject;
|
||||||
Socket: TCustomWinSocket);
|
Socket: TCustomWinSocket);
|
||||||
begin
|
begin
|
||||||
Ready := True;
|
|
||||||
clientSock.Active := False;
|
//World Server Check
|
||||||
Log('**** WS Is Ready For Connections ****');
|
if clientSock.Port = 8085 then
|
||||||
Launch;
|
begin
|
||||||
|
Ready := True;
|
||||||
|
clientSock.Active := False;
|
||||||
|
Log('**** WS Is Ready For Connections ****');
|
||||||
|
Launch;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//Checking If We Have A listening Console
|
||||||
|
if clientSock.Port = 8089 then
|
||||||
|
begin
|
||||||
|
Log('**** Already Listening ****');
|
||||||
|
servRemote.Active := False;
|
||||||
|
end;
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmMain.clientSockError(Sender: TObject;
|
procedure TfrmMain.clientSockError(Sender: TObject;
|
||||||
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
|
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
|
||||||
var ErrorCode: Integer);
|
var ErrorCode: Integer);
|
||||||
begin
|
begin
|
||||||
Ready := False;
|
//World Server Check
|
||||||
clientSock.Active := False;
|
if clientSock.Port = 8085 then
|
||||||
Log('Still Waiting For Server',clMaroon);
|
begin
|
||||||
ErrorCode := 0;
|
Ready := False;
|
||||||
|
clientSock.Active := False;
|
||||||
|
Log('Still Waiting For Server',clMaroon);
|
||||||
|
ErrorCode := 0;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Log('Error in Checking For Listening', clMaroon);
|
||||||
|
ErrorCode := 0;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmMain.Launch;
|
procedure TfrmMain.Launch;
|
||||||
var
|
var
|
||||||
IniFile : TInifile;
|
IniFile : TInifile;
|
||||||
|
iIcon : Integer;
|
||||||
begin
|
begin
|
||||||
if Ready = False then
|
if Ready = False then
|
||||||
Exit;
|
Exit;
|
||||||
@ -176,20 +231,12 @@ begin
|
|||||||
Running := False;
|
Running := False;
|
||||||
timerStart.Enabled := False;
|
timerStart.Enabled := False;
|
||||||
|
|
||||||
//TT: Read from Inifile for the path the file we want.
|
|
||||||
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Settings.INI');
|
|
||||||
App := IniFile.ReadString('Execute','Application','');
|
|
||||||
if App = '' then
|
|
||||||
begin
|
|
||||||
if FileExists(ExtractFilePath(Application.ExeName)+'pseuwow.exe') then
|
|
||||||
App := ExtractFilePath(Application.ExeName)+'pseuwow.exe';
|
|
||||||
end;
|
|
||||||
IniFile.WriteString('Execute','Application',App);
|
|
||||||
IniFile.UpdateFile;
|
|
||||||
IniFile.Free;
|
|
||||||
|
|
||||||
if App <> '' then
|
if App <> '' then
|
||||||
Execute(App);
|
Execute(App)
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
timerStart.Enabled := True;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
@ -235,7 +282,15 @@ end;
|
|||||||
procedure TfrmMain.clientSockConnecting(Sender: TObject;
|
procedure TfrmMain.clientSockConnecting(Sender: TObject;
|
||||||
Socket: TCustomWinSocket);
|
Socket: TCustomWinSocket);
|
||||||
begin
|
begin
|
||||||
Log('Establishing Connection to WS',clGreen);
|
if clientSock.Port = 8085 then
|
||||||
|
begin
|
||||||
|
Log('Establishing Connection to WS',clGreen);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if clientSock.Port = 8089 then
|
||||||
|
begin
|
||||||
|
Log('Checking For Listening Console',clGreen);
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmMain.WriteFromPseWow(AString: String);
|
procedure TfrmMain.WriteFromPseWow(AString: String);
|
||||||
@ -271,4 +326,113 @@ begin
|
|||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrmMain.SetupIcons;
|
||||||
|
var
|
||||||
|
i : Integer;
|
||||||
|
begin
|
||||||
|
cbexIcon.Clear;
|
||||||
|
|
||||||
|
for i := 0 to imgList.Count - 1 do
|
||||||
|
begin
|
||||||
|
cbexIcon.ItemsEx.AddItem('',i,i,i,0,nil);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmMain.SetIcon(AIndex : Integer; AUpdateINI : Boolean = True);
|
||||||
|
var
|
||||||
|
IniFile : TInifile;
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Settings.INI');
|
||||||
|
if AUpdateINI then
|
||||||
|
IniFile.WriteInteger('Look','Icon',AIndex);
|
||||||
|
|
||||||
|
with imgList do
|
||||||
|
begin
|
||||||
|
GetIcon(AIndex, Application.Icon);
|
||||||
|
TrayIcon.IconIndex := AIndex;
|
||||||
|
end;
|
||||||
|
cbexIcon.ItemIndex := AIndex;
|
||||||
|
finally
|
||||||
|
if AUpdateINI then
|
||||||
|
begin
|
||||||
|
IniFile.UpdateFile;
|
||||||
|
comCommand.SetFocus;
|
||||||
|
end;
|
||||||
|
IniFile.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmMain.LoadSettings;
|
||||||
|
var
|
||||||
|
IniFile : TInifile;
|
||||||
|
iIcon : Integer;
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
//TT: Read from Inifile for the path the file we want.
|
||||||
|
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Settings.INI');
|
||||||
|
App := IniFile.ReadString('Execute','Application','');
|
||||||
|
if App = '' then
|
||||||
|
begin
|
||||||
|
if FileExists(ExtractFilePath(Application.ExeName)+'pseuwow.exe') then
|
||||||
|
begin
|
||||||
|
App := ExtractFilePath(Application.ExeName)+'pseuwow.exe';
|
||||||
|
pnlTop.Hide;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
pnlTop.Show;
|
||||||
|
end;
|
||||||
|
IniFile.WriteString('Execute','Application',App);
|
||||||
|
|
||||||
|
//TT: Read Tray Icon, Nice for those of us who more than one session at a time!
|
||||||
|
iIcon := IniFile.ReadInteger('Look','Icon',-1);
|
||||||
|
|
||||||
|
if (iIcon = -1) then
|
||||||
|
IniFile.WriteInteger('Look','Icon',0);
|
||||||
|
|
||||||
|
SetIcon(iIcon, False);
|
||||||
|
|
||||||
|
finally
|
||||||
|
IniFile.UpdateFile;
|
||||||
|
IniFile.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmMain.cbexIconChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if Ready then
|
||||||
|
SetIcon(cbexIcon.ItemIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmMain.LoadPseuSettings(AConFile : string);
|
||||||
|
var
|
||||||
|
fFile : textfile;
|
||||||
|
sBuffer : string;
|
||||||
|
sRes : string;
|
||||||
|
begin
|
||||||
|
if FileExists(AConFile) then
|
||||||
|
begin
|
||||||
|
AssignFile(fFile, AConFile);
|
||||||
|
Reset(fFile);
|
||||||
|
|
||||||
|
while not(Eof(fFile)) do
|
||||||
|
begin
|
||||||
|
sRes := '';
|
||||||
|
|
||||||
|
Readln(fFile, sBuffer);
|
||||||
|
|
||||||
|
if EvaluateProperty(sBuffer, 'charname=', sRes) then
|
||||||
|
begin
|
||||||
|
txtChar.Caption := sRes;
|
||||||
|
Application.Title := sRes + ' - PseuWoW Console';
|
||||||
|
TrayIcon.Hint := Application.Title;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
CloseFile(fFile);
|
||||||
|
|
||||||
|
comCommand.SetFocus;
|
||||||
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user