├── .gitignore ├── INSTALLER ├── AzerothSHardPatch.iss ├── FILES │ ├── Licenza-ita.txt │ ├── Licenza.txt │ ├── WorldOfWarcraft.ico │ ├── changelogs.txt │ ├── icona.ico │ ├── licenza-en.txt │ └── logo.bmp ├── Mods.iss └── Output │ ├── languages.ini │ ├── setup-global.ini │ └── setup.ini ├── LauncherSources ├── Clean.bat ├── Compile.bat ├── Config.ddp ├── Config.dfm ├── Config.pas ├── Engine.pas ├── Files │ ├── BottomPanel3.jpg │ ├── Launcher.ico │ ├── extra2.bmp │ ├── extrapannel.jpg │ └── website.bmp ├── Launcher.cfg ├── Launcher.dpr ├── Launcher.res ├── LauncherXT_Files │ ├── ENGLISH_hamachi.txt │ ├── ENGLISH_info.txt │ ├── ITALIAN_hamachi.txt │ ├── ITALIAN_info.txt │ ├── PORTUGUESE_hamachi.txt │ ├── PORTUGUESE_info.txt │ ├── VALUES │ └── lang.ini ├── Main.ddp ├── Main.dfm ├── Main.pas ├── RlmForm.ddp ├── RlmForm.dfm ├── RlmForm.pas ├── SJ_AppExec.pas ├── SJ_BitmapButton.pas ├── SJ_OneInstance.pas ├── SecondaryForm.ddp ├── SecondaryForm.dfm ├── SecondaryForm.pas ├── Tools.ddp ├── Tools.dfm ├── Tools.pas └── winxp.res └── README.md /.gitignore: -------------------------------------------------------------------------------- 1 | # 2 | # ignore file 3 | # 4 | 5 | !.gitignore 6 | 7 | # 8 | # OS specific 9 | # 10 | # MacOS 11 | .DS_Store 12 | 13 | # Windows 14 | Thumbs.db 15 | Thumbs.db:encryptable 16 | 17 | 18 | # 19 | # Editors / debuggers / other output files 20 | # 21 | *~ 22 | *.bak 23 | *.orig 24 | *.patch 25 | *.diff 26 | callgrind.out.* 27 | 28 | # 29 | # Git stuff 30 | # 31 | # stgit directories 32 | patches-* 33 | .git/ 34 | *.rej 35 | 36 | 37 | # 38 | # IDE & other softwares 39 | # 40 | /.settings/ 41 | /.externalToolBuilders/* 42 | # exclude in all levels 43 | nbproject/private/ 44 | .sync.ffs_db 45 | 46 | # 47 | # Eclipse 48 | # 49 | *.pydevproject 50 | .metadata 51 | .gradle 52 | tmp/ 53 | *.tmp 54 | *.swp 55 | *~.nib 56 | local.properties 57 | .settings/ 58 | .loadpath 59 | 60 | # External tool builders 61 | .externalToolBuilders/ 62 | /node_modules 63 | /npm-debug.* 64 | 65 | # Locally stored "Eclipse launch configurations" 66 | *.launch 67 | 68 | # CDT-specific 69 | .cproject 70 | 71 | # PDT-specific 72 | .buildpath 73 | 74 | # TeXlipse plugin 75 | .texlipse 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | -------------------------------------------------------------------------------- /INSTALLER/AzerothSHardPatch.iss: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/INSTALLER/AzerothSHardPatch.iss -------------------------------------------------------------------------------- /INSTALLER/FILES/Licenza-ita.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/INSTALLER/FILES/Licenza-ita.txt -------------------------------------------------------------------------------- /INSTALLER/FILES/Licenza.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/INSTALLER/FILES/Licenza.txt -------------------------------------------------------------------------------- /INSTALLER/FILES/WorldOfWarcraft.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/INSTALLER/FILES/WorldOfWarcraft.ico -------------------------------------------------------------------------------- /INSTALLER/FILES/changelogs.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/INSTALLER/FILES/changelogs.txt -------------------------------------------------------------------------------- /INSTALLER/FILES/icona.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/INSTALLER/FILES/icona.ico -------------------------------------------------------------------------------- /INSTALLER/FILES/licenza-en.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/INSTALLER/FILES/licenza-en.txt -------------------------------------------------------------------------------- /INSTALLER/FILES/logo.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/INSTALLER/FILES/logo.bmp -------------------------------------------------------------------------------- /INSTALLER/Mods.iss: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/INSTALLER/Mods.iss -------------------------------------------------------------------------------- /INSTALLER/Output/languages.ini: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/INSTALLER/Output/languages.ini -------------------------------------------------------------------------------- /INSTALLER/Output/setup-global.ini: -------------------------------------------------------------------------------- 1 | [OPTION] 2 | # your personal Website to show in the application icons folder 3 | URL_SITE=http://www.worldofwarcraft.com/ 4 | 5 | # launcher main website , change it if you have your personal launcher-XT distribution 6 | URL_LAUNCHER=http://udw.altervista.org/Launcherhtml/ 7 | 8 | # Realmlist for your distribution 9 | REALMLIST=localhost 10 | 11 | # Force the installation of extra addons 12 | FORCEADDONS=0 13 | 14 | # Enable/Disable (1/0) the hamachi support for the launcher 15 | HAMACHISUPPORT=0 -------------------------------------------------------------------------------- /INSTALLER/Output/setup.ini: -------------------------------------------------------------------------------- 1 | [OPTION] 2 | # your personal Website to show in the application icons folder 3 | URL_SITE=http://www.worldofwarcraft.com/ 4 | 5 | # launcher main website , change it if you have your personal launcher-XT distribution 6 | URL_LAUNCHER=http://udw.altervista.org/Launcherhtml/ 7 | 8 | # Realmlist for your distribution 9 | REALMLIST=localhost # &RlmSite=http://udw.altervista.org/ 10 | 11 | # Force the installation of extra addons 12 | FORCEADDONS=0 13 | 14 | # Enable/Disable (1/0) the hamachi support for the launcher 15 | HAMACHISUPPORT=0 16 | 17 | # Specify the version of your mods/distribution 18 | MODVERSION=1.1 -------------------------------------------------------------------------------- /LauncherSources/Clean.bat: -------------------------------------------------------------------------------- 1 | FOR /R .\ %%I IN (.\) DO ( 2 | del "%%~pdI"*.~* 3 | del "%%~pdI"*.dcu 4 | del "%%~pdI"*.map 5 | del "%%~pdI"*.mps 6 | del "%%~pdI"*.mpt 7 | del "%%~pdI"*.dsk 8 | del "%%~pdI"*.drc 9 | del "%%~pdI"*.dof 10 | ) 11 | -------------------------------------------------------------------------------- /LauncherSources/Compile.bat: -------------------------------------------------------------------------------- 1 | @ECHO OFF 2 | DEL Launcher.exe 3 | DCC32 Launcher.dpr 4 | PAUSE 5 | UPX Launcher.exe 6 | DEL *.~* 7 | DEL *.dcu 8 | -------------------------------------------------------------------------------- /LauncherSources/Config.ddp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/Config.ddp -------------------------------------------------------------------------------- /LauncherSources/Config.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 411 3 | Top = 220 4 | BorderIcons = [] 5 | BorderStyle = bsToolWindow 6 | Caption = 'Configurazioni' 7 | ClientHeight = 485 8 | ClientWidth = 582 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 | FormStyle = fsStayOnTop 16 | OldCreateOrder = True 17 | Position = poDesktopCenter 18 | ShowHint = True 19 | OnClose = FormClose 20 | OnCreate = FormCreate 21 | OnShow = FormShow 22 | DesignSize = ( 23 | 582 24 | 485) 25 | PixelsPerInch = 96 26 | TextHeight = 13 27 | object ConfTab: TPageControl 28 | Left = 0 29 | Top = 0 30 | Width = 581 31 | Height = 449 32 | ActivePage = TabSheet1 33 | Anchors = [akLeft, akTop, akRight] 34 | TabOrder = 0 35 | object TabSheet1: TTabSheet 36 | Caption = 'General' 37 | object help2: TSpeedButton 38 | Left = 248 39 | Top = 184 40 | Width = 17 41 | Height = 17 42 | Cursor = crHelp 43 | Glyph.Data = { 44 | 46010000424D460100000000000076000000280000001A0000000D0000000100 45 | 040000000000D0000000120B0000120B00001000000000000000000000000000 46 | 80000080000000808000800000008000800080800000C0C0C000808080000000 47 | FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333633333 48 | 333333F33333330000003333364633333333338F33333300333333333E643333 49 | 333338F8F333330033333333334633333333333F333333003333333336643333 50 | 33333388F3333300333333333E643333333338F8F3333300333333333E664333 51 | 333338F8F33333003333333333E666333333338338F3330033333334433E6633 52 | 3333F33F33833300333333366433E63333338F38F33333003334333E66666633 53 | 33383388333333003336333333EEEE33333388FFFF833300333E333333333333 54 | 33333388883333003333} 55 | NumGlyphs = 2 56 | OnClick = help2Click 57 | end 58 | object RealmChose: TRadioGroup 59 | Left = 16 60 | Top = 88 61 | Width = 193 62 | Height = 73 63 | Caption = 'Scelta del Reame' 64 | TabOrder = 4 65 | end 66 | object Defaultbtn: TBitBtn 67 | Left = 440 68 | Top = 388 69 | Width = 129 70 | Height = 25 71 | Cursor = crHandPoint 72 | Caption = 'Opzioni Predefinite' 73 | TabOrder = 0 74 | WordWrap = True 75 | OnClick = DefaultbtnClick 76 | end 77 | object TrasparenzaLabel: TGroupBox 78 | Left = 376 79 | Top = 128 80 | Width = 169 81 | Height = 153 82 | Caption = 'Trasparenza' 83 | TabOrder = 1 84 | object IntTraspLabel: TLabel 85 | Left = 7 86 | Top = 68 87 | Width = 98 88 | Height = 13 89 | Caption = 'Intensit'#224' trasparenza' 90 | Font.Charset = DEFAULT_CHARSET 91 | Font.Color = clGreen 92 | Font.Height = -11 93 | Font.Name = 'MS Sans Serif' 94 | Font.Style = [] 95 | ParentFont = False 96 | end 97 | object TrasparenzaBox: TCheckBox 98 | Left = 8 99 | Top = 32 100 | Width = 97 101 | Height = 17 102 | Cursor = crHandPoint 103 | Caption = 'Attiva' 104 | TabOrder = 0 105 | OnClick = TrasparenzaBoxClick 106 | end 107 | object TrackBar1: TTrackBar 108 | Left = 3 109 | Top = 92 110 | Width = 150 111 | Height = 45 112 | Cursor = crHandPoint 113 | Max = 250 114 | Min = 50 115 | Position = 250 116 | SelEnd = 250 117 | TabOrder = 1 118 | OnChange = TrackBar1Change 119 | end 120 | end 121 | object Extra: TGroupBox 122 | Left = 16 123 | Top = 304 124 | Width = 361 125 | Height = 113 126 | Caption = 'Extra' 127 | TabOrder = 2 128 | object CacheLabel: TLabel 129 | Left = 5 130 | Top = 20 131 | Width = 92 132 | Height = 13 133 | Caption = 'Pulizia della Cache:' 134 | Font.Charset = DEFAULT_CHARSET 135 | Font.Color = clGreen 136 | Font.Height = -11 137 | Font.Name = 'MS Sans Serif' 138 | Font.Style = [] 139 | ParentFont = False 140 | end 141 | object XTCheckLabel: TLabel 142 | Left = 147 143 | Top = 20 144 | Width = 70 145 | Height = 13 146 | Caption = 'Controlli estesi:' 147 | Font.Charset = DEFAULT_CHARSET 148 | Font.Color = clGreen 149 | Font.Height = -11 150 | Font.Name = 'MS Sans Serif' 151 | Font.Style = [] 152 | ParentFont = False 153 | end 154 | object help3: TSpeedButton 155 | Left = 104 156 | Top = 40 157 | Width = 17 158 | Height = 17 159 | Cursor = crHelp 160 | Glyph.Data = { 161 | 46010000424D460100000000000076000000280000001A0000000D0000000100 162 | 040000000000D0000000120B0000120B00001000000000000000000000000000 163 | 80000080000000808000800000008000800080800000C0C0C000808080000000 164 | FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333633333 165 | 333333F33333330000003333364633333333338F33333300333333333E643333 166 | 333338F8F333330033333333334633333333333F333333003333333336643333 167 | 33333388F3333300333333333E643333333338F8F3333300333333333E664333 168 | 333338F8F33333003333333333E666333333338338F3330033333334433E6633 169 | 3333F33F33833300333333366433E63333338F38F33333003334333E66666633 170 | 33383388333333003336333333EEEE33333388FFFF833300333E333333333333 171 | 33333388883333003333} 172 | NumGlyphs = 2 173 | OnClick = help3Click 174 | end 175 | object help4: TSpeedButton 176 | Left = 224 177 | Top = 40 178 | Width = 17 179 | Height = 17 180 | Cursor = crHelp 181 | Glyph.Data = { 182 | 46010000424D460100000000000076000000280000001A0000000D0000000100 183 | 040000000000D0000000120B0000120B00001000000000000000000000000000 184 | 80000080000000808000800000008000800080800000C0C0C000808080000000 185 | FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333633333 186 | 333333F33333330000003333364633333333338F33333300333333333E643333 187 | 333338F8F333330033333333334633333333333F333333003333333336643333 188 | 33333388F3333300333333333E643333333338F8F3333300333333333E664333 189 | 333338F8F33333003333333333E666333333338338F3330033333334433E6633 190 | 3333F33F33833300333333366433E63333338F38F33333003334333E66666633 191 | 33383388333333003336333333EEEE33333388FFFF833300333E333333333333 192 | 33333388883333003333} 193 | NumGlyphs = 2 194 | OnClick = help4Click 195 | end 196 | object HamachiLabel: TLabel 197 | Left = 3 198 | Top = 68 199 | Width = 91 200 | Height = 13 201 | Caption = 'Supporto Hamachi:' 202 | Font.Charset = DEFAULT_CHARSET 203 | Font.Color = clGreen 204 | Font.Height = -11 205 | Font.Name = 'MS Sans Serif' 206 | Font.Style = [] 207 | ParentFont = False 208 | end 209 | object Help6: TSpeedButton 210 | Left = 104 211 | Top = 88 212 | Width = 17 213 | Height = 17 214 | Cursor = crHelp 215 | Glyph.Data = { 216 | 46010000424D460100000000000076000000280000001A0000000D0000000100 217 | 040000000000D0000000120B0000120B00001000000000000000000000000000 218 | 80000080000000808000800000008000800080800000C0C0C000808080000000 219 | FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333633333 220 | 333333F33333330000003333364633333333338F33333300333333333E643333 221 | 333338F8F333330033333333334633333333333F333333003333333336643333 222 | 33333388F3333300333333333E643333333338F8F3333300333333333E664333 223 | 333338F8F33333003333333333E666333333338338F3330033333334433E6633 224 | 3333F33F33833300333333366433E63333338F38F33333003334333E66666633 225 | 33383388333333003336333333EEEE33333388FFFF833300333E333333333333 226 | 33333388883333003333} 227 | NumGlyphs = 2 228 | OnClick = help6Click 229 | end 230 | object shoutoplabel: TLabel 231 | Left = 147 232 | Top = 68 233 | Width = 89 234 | Height = 13 235 | Caption = 'Shoutbox all'#39'avvio:' 236 | Font.Charset = DEFAULT_CHARSET 237 | Font.Color = clGreen 238 | Font.Height = -11 239 | Font.Name = 'MS Sans Serif' 240 | Font.Style = [] 241 | ParentFont = False 242 | end 243 | object Help7: TSpeedButton 244 | Left = 224 245 | Top = 88 246 | Width = 17 247 | Height = 17 248 | Cursor = crHelp 249 | Glyph.Data = { 250 | 46010000424D460100000000000076000000280000001A0000000D0000000100 251 | 040000000000D0000000120B0000120B00001000000000000000000000000000 252 | 80000080000000808000800000008000800080800000C0C0C000808080000000 253 | FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333633333 254 | 333333F33333330000003333364633333333338F33333300333333333E643333 255 | 333338F8F333330033333333334633333333333F333333003333333336643333 256 | 33333388F3333300333333333E643333333338F8F3333300333333333E664333 257 | 333338F8F33333003333333333E666333333338338F3330033333334433E6633 258 | 3333F33F33833300333333366433E63333338F38F33333003334333E66666633 259 | 33383388333333003336333333EEEE33333388FFFF833300333E333333333333 260 | 33333388883333003333} 261 | NumGlyphs = 2 262 | OnClick = help7Click 263 | end 264 | object TimerOp: TLabel 265 | Left = 275 266 | Top = 20 267 | Width = 58 268 | Height = 13 269 | Caption = 'Status timer:' 270 | Font.Charset = DEFAULT_CHARSET 271 | Font.Color = clGreen 272 | Font.Height = -11 273 | Font.Name = 'MS Sans Serif' 274 | Font.Style = [] 275 | ParentFont = False 276 | end 277 | object Help8: TSpeedButton 278 | Left = 336 279 | Top = 40 280 | Width = 17 281 | Height = 17 282 | Cursor = crHelp 283 | Glyph.Data = { 284 | 46010000424D460100000000000076000000280000001A0000000D0000000100 285 | 040000000000D0000000120B0000120B00001000000000000000000000000000 286 | 80000080000000808000800000008000800080800000C0C0C000808080000000 287 | FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333633333 288 | 333333F33333330000003333364633333333338F33333300333333333E643333 289 | 333338F8F333330033333333334633333333333F333333003333333336643333 290 | 33333388F3333300333333333E643333333338F8F3333300333333333E664333 291 | 333338F8F33333003333333333E666333333338338F3330033333334433E6633 292 | 3333F33F33833300333333366433E63333338F38F33333003334333E66666633 293 | 33383388333333003336333333EEEE33333388FFFF833300333E333333333333 294 | 33333388883333003333} 295 | NumGlyphs = 2 296 | OnClick = help8Click 297 | end 298 | object CacheBox: TCheckBox 299 | Left = 8 300 | Top = 40 301 | Width = 89 302 | Height = 17 303 | Cursor = crHandPoint 304 | Caption = 'Attiva' 305 | TabOrder = 0 306 | end 307 | object XTCheckBox: TCheckBox 308 | Left = 144 309 | Top = 40 310 | Width = 73 311 | Height = 17 312 | Cursor = crHandPoint 313 | Caption = 'Attiva' 314 | TabOrder = 1 315 | OnClick = XTCheckBoxClick 316 | end 317 | object HamachiBox: TCheckBox 318 | Left = 8 319 | Top = 88 320 | Width = 73 321 | Height = 17 322 | Cursor = crHandPoint 323 | Caption = 'Attiva' 324 | TabOrder = 2 325 | end 326 | object ShoutOpBox: TCheckBox 327 | Left = 144 328 | Top = 88 329 | Width = 65 330 | Height = 17 331 | Caption = 'Attiva' 332 | TabOrder = 3 333 | end 334 | object StTimerBox: TCheckBox 335 | Left = 272 336 | Top = 40 337 | Width = 57 338 | Height = 17 339 | Cursor = crHandPoint 340 | Caption = 'Attiva' 341 | TabOrder = 4 342 | end 343 | end 344 | object Lingua: TGroupBox 345 | Left = 376 346 | Top = 24 347 | Width = 177 348 | Height = 89 349 | Caption = 'Lingua' 350 | TabOrder = 3 351 | object Help1: TSpeedButton 352 | Left = 152 353 | Top = 8 354 | Width = 17 355 | Height = 17 356 | Cursor = crHelp 357 | Glyph.Data = { 358 | 46010000424D460100000000000076000000280000001A0000000D0000000100 359 | 040000000000D0000000120B0000120B00001000000000000000000000000000 360 | 80000080000000808000800000008000800080800000C0C0C000808080000000 361 | FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333633333 362 | 333333F33333330000003333364633333333338F33333300333333333E643333 363 | 333338F8F333330033333333334633333333333F333333003333333336643333 364 | 33333388F3333300333333333E643333333338F8F3333300333333333E664333 365 | 333338F8F33333003333333333E666333333338338F3330033333334433E6633 366 | 3333F33F33833300333333366433E63333338F38F33333003334333E66666633 367 | 33383388333333003336333333EEEE33333388FFFF833300333E333333333333 368 | 33333388883333003333} 369 | NumGlyphs = 2 370 | OnClick = Help1Click 371 | end 372 | object LangBox1: TComboBox 373 | Left = 8 374 | Top = 44 375 | Width = 161 376 | Height = 21 377 | ItemHeight = 13 378 | TabOrder = 0 379 | OnSelect = LangBox1Select 380 | end 381 | object LangBox2: TComboBox 382 | Left = 104 383 | Top = 64 384 | Width = 145 385 | Height = 21 386 | ItemHeight = 13 387 | TabOrder = 1 388 | Visible = False 389 | end 390 | end 391 | object GeneralSet: TRadioGroup 392 | Left = 16 393 | Top = 8 394 | Width = 297 395 | Height = 73 396 | Caption = 'GeneralSet' 397 | Font.Charset = DEFAULT_CHARSET 398 | Font.Color = clWindowText 399 | Font.Height = -11 400 | Font.Name = 'MS Sans Serif' 401 | Font.Style = [] 402 | Items.Strings = ( 403 | 'set1' 404 | 'blizzard' 405 | 'set3') 406 | ParentFont = False 407 | TabOrder = 5 408 | OnClick = GeneralSetClick 409 | end 410 | object GroupBox1: TGroupBox 411 | Left = 16 412 | Top = 176 413 | Width = 233 414 | Height = 73 415 | Caption = 'Realmlist' 416 | TabOrder = 6 417 | object Del: TBitBtn 418 | Left = 8 419 | Top = 16 420 | Width = 25 421 | Height = 17 422 | Cursor = crHandPoint 423 | Cancel = True 424 | ModalResult = 2 425 | ParentShowHint = False 426 | ShowHint = True 427 | TabOrder = 0 428 | OnClick = DelClick 429 | Glyph.Data = { 430 | 56010000424D560100000000000076000000280000001C0000000E0000000100 431 | 040000000000E0000000120B0000120B00001000000000000000000000000000 432 | 80000080000000808000800000008000800080800000C0C0C000808080000000 433 | FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 434 | 33333333333333330000333883333333333333F3333333333333339118333118 435 | 33338F3F33388F33333833911183911133338F38F3F338333391333911181111 436 | 33338F338F8333F33391333331111183333333833333F8333339333331111833 437 | 3333333F33338333333333333911183333333338F33833333333333331111833 438 | 333333383338F33333333339118391183333338338F38F333333333918333111 439 | 333338F3838338333339333393333911333338F8333F33F33339333333333333 440 | 3333333333338833333333333333333333333333333333333333} 441 | NumGlyphs = 2 442 | end 443 | object Realmlist: TComboBox 444 | Left = 8 445 | Top = 36 446 | Width = 193 447 | Height = 21 448 | AutoDropDown = True 449 | ItemHeight = 13 450 | Sorted = True 451 | TabOrder = 1 452 | OnChange = RealmlistChange 453 | end 454 | object Add: TBitBtn 455 | Left = 40 456 | Top = 16 457 | Width = 25 458 | Height = 17 459 | Cursor = crHandPoint 460 | ParentShowHint = False 461 | ShowHint = True 462 | TabOrder = 2 463 | OnClick = AddClick 464 | Glyph.Data = { 465 | 9E020000424D9E0200000000000036000000280000000E0000000E0000000100 466 | 18000000000068020000120B0000120B00000000000000000000C0C0C0C0C0C0 467 | C0C0C0D3CCCC456C6C007676009191007E7E4A4C4CC4C4C4C1C1C1C0C0C0C0C0 468 | C0C0C0C00000C0C0C0C0C0C0C0C0C0D3C6C6458D8D00E2E200FFFF00ECEC0D38 469 | 38898282C9C9C9C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0D3C6C6458C 470 | 8C00DEDE00FFFF00E8E80F39398B8585C9C9C9C0C0C0C0C0C0C0C0C00000D3CC 471 | CCD3C6C6D3C6C6E8CECE4C8A8A00DCDC00FFFF00E7E7103333998686DDD0D0D3 472 | C6C6D3CCCCC6C6C60000456B6B459191459A9A4C8A8A199E9E00F5F500FFFF00 473 | F6F6055C5C327E7E499898459090456D6DA19F9F0000007C7C00B9B9005C5C00 474 | DCDC00888800AAAA00D1D1009C9C00BBBB009A9A00878700D9D9008787184D4D 475 | 000000999900EBEB00676700DCDC00AAAA00D4D4009E9E00DADA009D9D00A7A7 476 | 00B5B500FFFF00A4A4004040000000828200CFCF007C7C00D4D400C9C900E3E3 477 | 00C2C200ECEC00B7B700BFBF00848400E2E2009696003C3C00004A4B4B0E3A3A 478 | 0F3E3E103434066464008383008585009797010B0B0B3A3A103E3E0F3A3A0F3E 479 | 3E0F2A2A0000C4C4C48882828B8585988686338383006D6D0063630073730A3D 480 | 3D645959918C8C8B85858B85858B88880000C1C1C1CACACAC9C9C9DDD0D045A1 481 | A1143838425252016C6C103F3F928C8CD3D3D3C9C9C9C9C9C9C9C9C90000C0C0 482 | C0C0C0C0C0C0C0D3C5C54398980F8E8E5D8D8D00C6C60F3B3B8B8585C9C9C9C0 483 | C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0D4CCCC426E6E008080088A8A00 484 | 98980F3E3E8B8585C9C9C9C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0C7 485 | C6C6A19F9F1A4F4F004545003C3C0F2A2A8B8888C9C9C9C0C0C0C0C0C0C0C0C0 486 | 0000} 487 | end 488 | object Edit: TBitBtn 489 | Left = 72 490 | Top = 16 491 | Width = 25 492 | Height = 17 493 | Cursor = crHandPoint 494 | Cancel = True 495 | ModalResult = 7 496 | ParentShowHint = False 497 | ShowHint = True 498 | TabOrder = 3 499 | OnClick = EditClick 500 | Glyph.Data = { 501 | 06020000424D0602000000000000760000002800000028000000140000000100 502 | 0400000000009001000000000000000000001000000000000000000000000000 503 | 8000008000000080800080000000800080008080000080808000C0C0C0000000 504 | FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 505 | 3333333333333333333333333333333333333333333333333333333333333333 506 | 3333333333333333333333333333333333333333333333333333333333333333 507 | 3FFFFFFF333333333333000000733333333333337777777FFF33333333333333 508 | 3700733333333333333337777FFF333333333333330770733333333333333377 509 | 777FFF33333333333377F8707333333333333377F3777FF33333333333308FF8 510 | 7033333333333337FF3377FF3333333333377FF807033333333333377F33777F 511 | F33333333333088047703333333333337FF77777FF3333333333770BB4770333 512 | 33333333777337777FF33333333330FFBB47703333333333373F337777FF3333 513 | 3333330FFBB47703333333333373F337777F333333333330FFBB477033333333 514 | 33373F3377773333333333330FFBB47733333333333373F33777333333333333 515 | 30FFBB47333333333333373F3377333333333333330FFBB43333333333333373 516 | F3373333333333333330FFBB33333333333333373F3333333333333333330FFB 517 | 33333333333333337333} 518 | NumGlyphs = 2 519 | end 520 | end 521 | object Button1: TBitBtn 522 | Left = 144 523 | Top = 250 524 | Width = 57 525 | Height = 15 526 | Cursor = crHandPoint 527 | Caption = 'refresh' 528 | TabOrder = 7 529 | OnClick = Button1Click 530 | end 531 | object Crealmlist: TLabeledEdit 532 | Left = 16 533 | Top = 268 534 | Width = 185 535 | Height = 21 536 | AutoSize = False 537 | BorderStyle = bsNone 538 | Color = clBtnFace 539 | EditLabel.Width = 122 540 | EditLabel.Height = 13 541 | EditLabel.Caption = 'Current Default Realmlist: ' 542 | ReadOnly = True 543 | TabOrder = 8 544 | end 545 | object OffyRealmBox: TComboBox 546 | Left = 24 547 | Top = 112 548 | Width = 145 549 | Height = 22 550 | Style = csOwnerDrawFixed 551 | ItemHeight = 16 552 | ItemIndex = 0 553 | TabOrder = 9 554 | Text = 'EU-European' 555 | Items.Strings = ( 556 | 'EU-European' 557 | 'US-American') 558 | end 559 | object RealmBox: TComboBox 560 | Left = 24 561 | Top = 108 562 | Width = 145 563 | Height = 21 564 | AutoComplete = False 565 | ItemHeight = 13 566 | TabOrder = 10 567 | OnChange = RealmBoxChange 568 | end 569 | object Rpatch2: TStaticText 570 | Left = 24 571 | Top = 136 572 | Width = 68 573 | Height = 17 574 | Caption = 'Realm Patch:' 575 | Font.Charset = DEFAULT_CHARSET 576 | Font.Color = clGreen 577 | Font.Height = -11 578 | Font.Name = 'MS Sans Serif' 579 | Font.Style = [] 580 | ParentFont = False 581 | TabOrder = 11 582 | end 583 | object Rpatch: TComboBox 584 | Left = 96 585 | Top = 136 586 | Width = 97 587 | Height = 21 588 | Style = csSimple 589 | ItemHeight = 13 590 | TabOrder = 12 591 | OnChange = RpatchChange 592 | end 593 | end 594 | object TabSheet4: TTabSheet 595 | Caption = 'Server List' 596 | ImageIndex = 3 597 | object NavUrlEditLabel: TLabel 598 | Left = 8 599 | Top = 368 600 | Width = 71 601 | Height = 13 602 | Caption = 'Launcher-Web' 603 | end 604 | object Label1: TLabel 605 | Left = 424 606 | Top = 400 607 | Width = 130 608 | Height = 13 609 | Caption = 'This Pannel is in beta stage' 610 | end 611 | object SLinfo: TLabel 612 | Left = 376 613 | Top = 360 614 | Width = 193 615 | Height = 34 616 | Cursor = crHandPoint 617 | Caption = 'Click Here to add your server into the list! ' 618 | Font.Charset = ANSI_CHARSET 619 | Font.Color = clBlue 620 | Font.Height = -12 621 | Font.Name = 'Arial Black' 622 | Font.Style = [fsBold, fsUnderline] 623 | ParentFont = False 624 | WordWrap = True 625 | OnClick = SLinfoClick 626 | end 627 | object Help11: TSpeedButton 628 | Left = 136 629 | Top = 384 630 | Width = 17 631 | Height = 17 632 | Cursor = crHelp 633 | Glyph.Data = { 634 | 46010000424D460100000000000076000000280000001A0000000D0000000100 635 | 040000000000D0000000120B0000120B00001000000000000000000000000000 636 | 80000080000000808000800000008000800080800000C0C0C000808080000000 637 | FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333633333 638 | 333333F33333330000003333364633333333338F33333300333333333E643333 639 | 333338F8F333330033333333334633333333333F333333003333333336643333 640 | 33333388F3333300333333333E643333333338F8F3333300333333333E664333 641 | 333338F8F33333003333333333E666333333338338F3330033333334433E6633 642 | 3333F33F33833300333333366433E63333338F38F33333003334333E66666633 643 | 33383388333333003336333333EEEE33333388FFFF833300333E333333333333 644 | 33333388883333003333} 645 | NumGlyphs = 2 646 | OnClick = Help11Click 647 | end 648 | object NavUrlEdit: TComboBox 649 | Left = 216 650 | Top = 384 651 | Width = 121 652 | Height = 21 653 | ItemHeight = 0 654 | TabOrder = 0 655 | Visible = False 656 | end 657 | object SiteGrid: TStringGrid 658 | Left = 0 659 | Top = 16 660 | Width = 569 661 | Height = 337 662 | ColCount = 7 663 | FixedCols = 0 664 | RowCount = 2 665 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing] 666 | TabOrder = 1 667 | OnClick = SiteGridClick 668 | OnMouseUp = SiteGridMouseUp 669 | ColWidths = ( 670 | 135 671 | 129 672 | 122 673 | 113 674 | 136 675 | 145 676 | 64) 677 | end 678 | object NavUrlEdit2: TEdit 679 | Left = 8 680 | Top = 384 681 | Width = 121 682 | Height = 21 683 | TabOrder = 2 684 | end 685 | end 686 | object TabSheet2: TTabSheet 687 | Caption = 'Advanced' 688 | ImageIndex = 1 689 | object PathsGroup: TGroupBox 690 | Left = 280 691 | Top = 16 692 | Width = 265 693 | Height = 337 694 | Caption = 'Path Conf.' 695 | TabOrder = 0 696 | object help10: TSpeedButton 697 | Left = 232 698 | Top = 8 699 | Width = 17 700 | Height = 17 701 | Cursor = crHelp 702 | Glyph.Data = { 703 | 46010000424D460100000000000076000000280000001A0000000D0000000100 704 | 040000000000D0000000120B0000120B00001000000000000000000000000000 705 | 80000080000000808000800000008000800080800000C0C0C000808080000000 706 | FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333633333 707 | 333333F33333330000003333364633333333338F33333300333333333E643333 708 | 333338F8F333330033333333334633333333333F333333003333333336643333 709 | 33333388F3333300333333333E643333333338F8F3333300333333333E664333 710 | 333338F8F33333003333333333E666333333338338F3330033333334433E6633 711 | 3333F33F33833300333333366433E63333338F38F33333003334333E66666633 712 | 33383388333333003336333333EEEE33333388FFFF833300333E333333333333 713 | 33333388883333003333} 714 | NumGlyphs = 2 715 | OnClick = help10Click 716 | end 717 | object CachePEdit: TLabeledEdit 718 | Left = 16 719 | Top = 48 720 | Width = 121 721 | Height = 21 722 | EditLabel.Width = 56 723 | EditLabel.Height = 13 724 | EditLabel.Caption = 'Cache Path' 725 | TabOrder = 0 726 | end 727 | object RealmListPEdit: TLabeledEdit 728 | Left = 16 729 | Top = 88 730 | Width = 121 731 | Height = 21 732 | EditLabel.Width = 67 733 | EditLabel.Height = 13 734 | EditLabel.Caption = 'Realmlist Path' 735 | TabOrder = 1 736 | end 737 | object WoWExePEdit: TLabeledEdit 738 | Left = 16 739 | Top = 128 740 | Width = 121 741 | Height = 21 742 | EditLabel.Width = 73 743 | EditLabel.Height = 13 744 | EditLabel.Caption = 'WoW exe Path' 745 | TabOrder = 2 746 | end 747 | object WoWDataPEdit: TLabeledEdit 748 | Left = 16 749 | Top = 168 750 | Width = 121 751 | Height = 21 752 | EditLabel.Width = 79 753 | EditLabel.Height = 13 754 | EditLabel.Caption = 'WoW Data Path' 755 | TabOrder = 3 756 | end 757 | object RepairPEdit: TLabeledEdit 758 | Left = 16 759 | Top = 208 760 | Width = 121 761 | Height = 21 762 | EditLabel.Width = 76 763 | EditLabel.Height = 13 764 | EditLabel.Caption = 'Repair exe Path' 765 | TabOrder = 4 766 | end 767 | object LauncherPEdit: TLabeledEdit 768 | Left = 16 769 | Top = 248 770 | Width = 121 771 | Height = 21 772 | EditLabel.Width = 105 773 | EditLabel.Height = 13 774 | EditLabel.Caption = 'Official Launcher Path' 775 | TabOrder = 5 776 | end 777 | object ConfWtfPEdit: TLabeledEdit 778 | Left = 16 779 | Top = 288 780 | Width = 121 781 | Height = 21 782 | EditLabel.Width = 72 783 | EditLabel.Height = 13 784 | EditLabel.Caption = 'Config.wtf Path' 785 | TabOrder = 6 786 | end 787 | object pbox1: TCheckBox 788 | Left = 160 789 | Top = 48 790 | Width = 17 791 | Height = 17 792 | TabOrder = 7 793 | OnClick = pbox1Click 794 | end 795 | object pbox2: TCheckBox 796 | Left = 160 797 | Top = 88 798 | Width = 17 799 | Height = 17 800 | TabOrder = 8 801 | OnClick = pbox1Click 802 | end 803 | object pbox3: TCheckBox 804 | Left = 160 805 | Top = 128 806 | Width = 17 807 | Height = 17 808 | TabOrder = 9 809 | OnClick = pbox1Click 810 | end 811 | object pbox4: TCheckBox 812 | Left = 160 813 | Top = 168 814 | Width = 17 815 | Height = 17 816 | TabOrder = 10 817 | OnClick = pbox1Click 818 | end 819 | object pbox5: TCheckBox 820 | Left = 160 821 | Top = 208 822 | Width = 17 823 | Height = 17 824 | TabOrder = 11 825 | OnClick = pbox1Click 826 | end 827 | object pbox6: TCheckBox 828 | Left = 160 829 | Top = 248 830 | Width = 17 831 | Height = 17 832 | TabOrder = 12 833 | OnClick = pbox1Click 834 | end 835 | object pbox7: TCheckBox 836 | Left = 160 837 | Top = 288 838 | Width = 17 839 | Height = 17 840 | TabOrder = 13 841 | OnClick = pbox1Click 842 | end 843 | end 844 | object ConnGroup: TGroupBox 845 | Left = 16 846 | Top = 16 847 | Width = 201 848 | Height = 153 849 | Caption = 'Connection Conf.' 850 | TabOrder = 1 851 | object help9: TSpeedButton 852 | Left = 176 853 | Top = 8 854 | Width = 17 855 | Height = 17 856 | Cursor = crHelp 857 | Glyph.Data = { 858 | 46010000424D460100000000000076000000280000001A0000000D0000000100 859 | 040000000000D0000000120B0000120B00001000000000000000000000000000 860 | 80000080000000808000800000008000800080800000C0C0C000808080000000 861 | FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333633333 862 | 333333F33333330000003333364633333333338F33333300333333333E643333 863 | 333338F8F333330033333333334633333333333F333333003333333336643333 864 | 33333388F3333300333333333E643333333338F8F3333300333333333E664333 865 | 333338F8F33333003333333333E666333333338338F3330033333334433E6633 866 | 3333F33F33833300333333366433E63333338F38F33333003334333E66666633 867 | 33383388333333003336333333EEEE33333388FFFF833300333E333333333333 868 | 33333388883333003333} 869 | NumGlyphs = 2 870 | OnClick = help9Click 871 | end 872 | object ConnDelayEdit: TLabeledEdit 873 | Left = 16 874 | Top = 48 875 | Width = 121 876 | Height = 21 877 | EditLabel.Width = 108 878 | EditLabel.Height = 13 879 | EditLabel.Caption = 'TCP Connection Delay' 880 | TabOrder = 0 881 | end 882 | object StatusDelay: TLabeledEdit 883 | Left = 16 884 | Top = 104 885 | Width = 121 886 | Height = 21 887 | EditLabel.Width = 89 888 | EditLabel.Height = 13 889 | EditLabel.Caption = 'Status Timer Delay' 890 | TabOrder = 1 891 | end 892 | end 893 | object DefaultBtn2: TBitBtn 894 | Left = 16 895 | Top = 384 896 | Width = 137 897 | Height = 25 898 | Cursor = crHandPoint 899 | Caption = 'DefaultBtn2' 900 | TabOrder = 2 901 | OnClick = DefaultBtn2Click 902 | end 903 | end 904 | object TabSheet3: TTabSheet 905 | Caption = 'Game' 906 | ImageIndex = 2 907 | object GraphicBox: TGroupBox 908 | Left = 16 909 | Top = 24 910 | Width = 217 911 | Height = 169 912 | Caption = 'Graphic Preferences' 913 | TabOrder = 0 914 | object graphic_windowmode: TCheckBox 915 | Left = 16 916 | Top = 32 917 | Width = 193 918 | Height = 17 919 | Caption = 'Window Mode' 920 | TabOrder = 0 921 | end 922 | object graphic_HighLights: TCheckBox 923 | Left = 16 924 | Top = 56 925 | Width = 193 926 | Height = 17 927 | Caption = 'Terrain HighLights' 928 | TabOrder = 1 929 | end 930 | object graphic_trilinearFilter: TCheckBox 931 | Left = 16 932 | Top = 80 933 | Width = 193 934 | Height = 17 935 | Caption = 'Trilinear Filtering' 936 | TabOrder = 2 937 | end 938 | object graphic_resolution: TLabeledEdit 939 | Left = 16 940 | Top = 120 941 | Width = 121 942 | Height = 21 943 | EditLabel.Width = 50 944 | EditLabel.Height = 13 945 | EditLabel.Caption = 'Resolution' 946 | TabOrder = 3 947 | end 948 | end 949 | object SoundBox: TGroupBox 950 | Left = 16 951 | Top = 216 952 | Width = 217 953 | Height = 169 954 | Caption = 'Sound Preferences' 955 | TabOrder = 1 956 | object Sound_ChannelLabel: TLabel 957 | Left = 16 958 | Top = 96 959 | Width = 81 960 | Height = 13 961 | Caption = 'Sound Channels:' 962 | end 963 | object sound_enable: TCheckBox 964 | Left = 16 965 | Top = 32 966 | Width = 193 967 | Height = 17 968 | Caption = 'Enable all Sound' 969 | TabOrder = 0 970 | end 971 | object sound_hdAcceleration: TCheckBox 972 | Left = 16 973 | Top = 64 974 | Width = 193 975 | Height = 17 976 | Caption = 'Hardware Acceleration' 977 | TabOrder = 1 978 | end 979 | object sound_channels: TTrackBar 980 | Left = 8 981 | Top = 112 982 | Width = 153 983 | Height = 25 984 | Cursor = crHandPoint 985 | Max = 64 986 | Min = 1 987 | Position = 1 988 | TabOrder = 2 989 | ThumbLength = 15 990 | TickStyle = tsNone 991 | end 992 | end 993 | object Game_Restore: TBitBtn 994 | Left = 376 995 | Top = 352 996 | Width = 185 997 | Height = 25 998 | Cursor = crHandPoint 999 | Caption = 'Restore latest definition' 1000 | TabOrder = 2 1001 | OnClick = Game_RestoreClick 1002 | Kind = bkRetry 1003 | end 1004 | end 1005 | end 1006 | object Okbtn: TBitBtn 1007 | Left = 392 1008 | Top = 455 1009 | Width = 89 1010 | Height = 25 1011 | Cursor = crHandPoint 1012 | Caption = 'Applica' 1013 | Default = True 1014 | Font.Charset = DEFAULT_CHARSET 1015 | Font.Color = clWindowText 1016 | Font.Height = -11 1017 | Font.Name = 'MS Sans Serif' 1018 | Font.Style = [fsBold, fsUnderline] 1019 | ModalResult = 1 1020 | ParentFont = False 1021 | TabOrder = 1 1022 | OnClick = OkbtnClick 1023 | Glyph.Data = { 1024 | DE010000424DDE01000000000000760000002800000024000000120000000100 1025 | 0400000000006801000000000000000000001000000000000000000000000000 1026 | 80000080000000808000800000008000800080800000C0C0C000808080000000 1027 | FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 1028 | 3333333333333333333333330000333333333333333333333333F33333333333 1029 | 00003333344333333333333333388F3333333333000033334224333333333333 1030 | 338338F3333333330000333422224333333333333833338F3333333300003342 1031 | 222224333333333383333338F3333333000034222A22224333333338F338F333 1032 | 8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224 1033 | 33333338F83338F338F33333000033A33333A222433333338333338F338F3333 1034 | 0000333333333A222433333333333338F338F33300003333333333A222433333 1035 | 333333338F338F33000033333333333A222433333333333338F338F300003333 1036 | 33333333A222433333333333338F338F00003333333333333A22433333333333 1037 | 3338F38F000033333333333333A223333333333333338F830000333333333333 1038 | 333A333333333333333338330000333333333333333333333333333333333333 1039 | 0000} 1040 | NumGlyphs = 2 1041 | end 1042 | object Annullabtn: TBitBtn 1043 | Left = 488 1044 | Top = 455 1045 | Width = 83 1046 | Height = 25 1047 | Cursor = crHandPoint 1048 | TabOrder = 2 1049 | Visible = False 1050 | OnClick = AnnullabtnClick 1051 | Kind = bkAbort 1052 | end 1053 | end 1054 | -------------------------------------------------------------------------------- /LauncherSources/Config.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/Config.pas -------------------------------------------------------------------------------- /LauncherSources/Engine.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/Engine.pas -------------------------------------------------------------------------------- /LauncherSources/Files/BottomPanel3.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/Files/BottomPanel3.jpg -------------------------------------------------------------------------------- /LauncherSources/Files/Launcher.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/Files/Launcher.ico -------------------------------------------------------------------------------- /LauncherSources/Files/extra2.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/Files/extra2.bmp -------------------------------------------------------------------------------- /LauncherSources/Files/extrapannel.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/Files/extrapannel.jpg -------------------------------------------------------------------------------- /LauncherSources/Files/website.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/Files/website.bmp -------------------------------------------------------------------------------- /LauncherSources/Launcher.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"c:\program files\borland\delphi7\Projects\Bpl" 35 | -LN"c:\program files\borland\delphi7\Projects\Bpl" 36 | -w-UNSAFE_TYPE 37 | -w-UNSAFE_CODE 38 | -w-UNSAFE_CAST 39 | -------------------------------------------------------------------------------- /LauncherSources/Launcher.dpr: -------------------------------------------------------------------------------- 1 | { 2 | * 3 | * Copyright (C) 2005-2009 UDW-SOFTWARE 4 | * 5 | * This program is free software; you can redistribute it and/or modify 6 | * it under the terms of the GNU General Public License as published by 7 | * the Free Software Foundation; either version 2 of the License, or 8 | * (at your option) any later version. 9 | * 10 | * This program is distributed in the hope that it will be useful, 11 | * but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | * GNU General Public License for more details. 14 | * 15 | * You should have received a copy of the GNU General Public License 16 | * along with this program; if not, write to the Free Software 17 | * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 18 | * 19 | } 20 | 21 | 22 | program Launcher; 23 | 24 | uses 25 | Forms, 26 | Main in 'Main.pas' {frmMain}, 27 | Config in 'Config.pas' {Form1}, 28 | Tools in 'Tools.pas' {Tool}, 29 | Engine in 'Engine.pas', 30 | SecondaryForm in 'SecondaryForm.pas' {Form2}, 31 | RlmForm in 'RlmForm.pas' {Form3}; 32 | 33 | {$R *.res} 34 | 35 | begin 36 | Application.Initialize; 37 | Application.Title := 'World of Warcraft'; 38 | Application.CreateForm(TfrmMain, frmMain); 39 | Application.CreateForm(TForm1, Form1); 40 | Application.CreateForm(TTool, Tool); 41 | Application.CreateForm(TForm3, Form3); 42 | Application.CreateForm(TForm2, Form2); 43 | //preparazione forms 44 | FrmMain.PreparaForm; 45 | Form1.PreparaForm1; 46 | Application.Run; 47 | end. 48 | -------------------------------------------------------------------------------- /LauncherSources/Launcher.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/Launcher.res -------------------------------------------------------------------------------- /LauncherSources/LauncherXT_Files/ENGLISH_hamachi.txt: -------------------------------------------------------------------------------- 1 | PLEASE READ THIS GUIDE! 2 | 3 | # Once setup has finished, Hamachi detects if you are running the program for the first time and will run a Quick Guide for new users to acquaint themselves with the program basics. By following this guide, you will be set up with a Hamachi address. 4 | 5 | NOTE: Once recorded will be assigned to you a number that will be visualized on the top of hamachi window (like this:5.49.162.83). If this happens it means that you have been connected to Hamachi! 6 | 7 | # The next step is to click on the Networks button. In the menu that appears, select Join existing network. 8 | 9 | # Then you must insert the "Network name" and the "Network password" of your realm 10 | 11 | 12 | 13 | RULES: 14 | 15 | # generally it is prohibited to be connected at 2 or more Hamachi networks of the same realm (this embezzles space for the new users) 16 | NOTE: ALL users of ALL networks of the same realm will be logged in the SAME WOW realm when you are playing! 17 | 18 | # The Admins, sometimes, make a cleaning of hamachi networks, this means the networks will be reset and you must "rejoin" the network whenever the cleaning is carried out. 19 | 20 | 21 | visit hamachi site on 22 | https://secure.logmein.com/products/hamachi/ -------------------------------------------------------------------------------- /LauncherSources/LauncherXT_Files/ENGLISH_info.txt: -------------------------------------------------------------------------------- 1 | [What is Launcher-XT] 2 | 3 | -- Launcher-XT is an important software to play in your community, but also elsewhere thanks to its system 4 | configuration and provides many options that will help you during the start of the game and facilitate 5 | your search for information. 6 | 7 | -- The software was designed, tested and certified by "United Developers World" community . 8 | -------------------------------------------------------------------------------- /LauncherSources/LauncherXT_Files/ITALIAN_hamachi.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/LauncherXT_Files/ITALIAN_hamachi.txt -------------------------------------------------------------------------------- /LauncherSources/LauncherXT_Files/ITALIAN_info.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/LauncherXT_Files/ITALIAN_info.txt -------------------------------------------------------------------------------- /LauncherSources/LauncherXT_Files/PORTUGUESE_hamachi.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/LauncherXT_Files/PORTUGUESE_hamachi.txt -------------------------------------------------------------------------------- /LauncherSources/LauncherXT_Files/PORTUGUESE_info.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/LauncherXT_Files/PORTUGUESE_info.txt -------------------------------------------------------------------------------- /LauncherSources/LauncherXT_Files/VALUES: -------------------------------------------------------------------------------- 1 | [VALUES] 2 | modversion=1.1 -------------------------------------------------------------------------------- /LauncherSources/LauncherXT_Files/lang.ini: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/LauncherXT_Files/lang.ini -------------------------------------------------------------------------------- /LauncherSources/Main.ddp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/Main.ddp -------------------------------------------------------------------------------- /LauncherSources/Main.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/Main.dfm -------------------------------------------------------------------------------- /LauncherSources/Main.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/Main.pas -------------------------------------------------------------------------------- /LauncherSources/RlmForm.ddp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/RlmForm.ddp -------------------------------------------------------------------------------- /LauncherSources/RlmForm.dfm: -------------------------------------------------------------------------------- 1 | object Form3: TForm3 2 | Left = 640 3 | Top = 118 4 | Width = 390 5 | Height = 251 6 | BorderIcons = [biSystemMenu] 7 | Caption = 'RealmList Editor' 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'MS Sans Serif' 13 | Font.Style = [] 14 | FormStyle = fsStayOnTop 15 | OldCreateOrder = False 16 | OnClose = FormClose 17 | OnShow = FormShow 18 | PixelsPerInch = 96 19 | TextHeight = 13 20 | object GroupBox1: TGroupBox 21 | Left = 7 22 | Top = 7 23 | Width = 362 24 | Height = 202 25 | Caption = 'Realmlist' 26 | TabOrder = 0 27 | object realmlabel: TLabel 28 | Left = 8 29 | Top = 24 30 | Width = 56 31 | Height = 13 32 | Caption = 'Set realmlist' 33 | end 34 | object Label1: TLabel 35 | Left = 8 36 | Top = 80 37 | Width = 56 38 | Height = 13 39 | Caption = 'Description:' 40 | end 41 | object Label2: TLabel 42 | Left = 8 43 | Top = 128 44 | Width = 21 45 | Height = 13 46 | Caption = 'Site:' 47 | end 48 | object Save: TBitBtn 49 | Left = 272 50 | Top = 168 51 | Width = 49 52 | Height = 25 53 | Cursor = crHandPoint 54 | Caption = '&OK' 55 | TabOrder = 0 56 | OnClick = SaveClick 57 | Kind = bkOK 58 | end 59 | object Realmlist: TEdit 60 | Left = 8 61 | Top = 40 62 | Width = 193 63 | Height = 21 64 | TabOrder = 1 65 | OnChange = RealmlistChange 66 | end 67 | object Description: TEdit 68 | Left = 8 69 | Top = 96 70 | Width = 193 71 | Height = 21 72 | TabOrder = 2 73 | end 74 | object Site: TEdit 75 | Left = 8 76 | Top = 144 77 | Width = 193 78 | Height = 21 79 | TabOrder = 3 80 | end 81 | end 82 | end 83 | -------------------------------------------------------------------------------- /LauncherSources/RlmForm.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/RlmForm.pas -------------------------------------------------------------------------------- /LauncherSources/SJ_AppExec.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/SJ_AppExec.pas -------------------------------------------------------------------------------- /LauncherSources/SJ_BitmapButton.pas: -------------------------------------------------------------------------------- 1 | unit SJ_BitmapButton; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; 7 | 8 | type 9 | TBitmapButton = class(TGraphicControl) 10 | private 11 | FBitmap: TBitmap; 12 | FLighter: TBitmap; 13 | FDarker: Tbitmap; 14 | FPushDown:boolean; 15 | FMouseOver:boolean; 16 | FLatching: boolean; 17 | FDown: boolean; 18 | FHotTrack: boolean; 19 | procedure SetBitmap(const Value: TBitmap); 20 | procedure MakeDarker; 21 | procedure MakeLighter; 22 | procedure SetLatching(const Value: boolean); 23 | procedure SetDown(const Value: boolean); 24 | procedure SetHotTrack(const Value: boolean); 25 | { Private declarations } 26 | protected 27 | { Protected declarations } 28 | procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);override; 29 | procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);override; 30 | procedure MouseMove(Shift: TShiftState; X, Y: Integer);override; 31 | procedure Click;override; 32 | procedure CMMouseLeave(var Message:TMessage); message CM_MouseLeave; 33 | procedure Loaded;override; 34 | procedure Resize;override; 35 | public 36 | { Public declarations } 37 | constructor Create(AOwner:TComponent);override; 38 | destructor Destroy;override; 39 | procedure Paint; override; 40 | published 41 | { Published declarations } 42 | property Bitmap:TBitmap read FBitmap write SetBitmap; 43 | property Down:boolean read FDown write SetDown; 44 | property Latching:boolean read FLatching write SetLatching; 45 | property HotTrack:boolean read FHotTrack write SetHotTrack; 46 | property onclick; 47 | property onmousedown; 48 | property onmouseup; 49 | end; 50 | 51 | procedure Register; 52 | 53 | implementation 54 | 55 | procedure Register; 56 | begin 57 | RegisterComponents('SimJoy', [TBitmapButton]); 58 | end; 59 | 60 | { TBitmapButton } 61 | 62 | procedure TBitmapButton.Click; 63 | begin 64 | inherited; 65 | // if FPushDown then if assigned(onclick) then onclick(self); 66 | end; 67 | 68 | constructor TBitmapButton.Create(AOwner: TComponent); 69 | begin 70 | inherited; 71 | width:=24; 72 | height:=24; 73 | FPushDown:=false; 74 | FMouseOver:=false; 75 | FLatching:=false; 76 | FHotTrack:=true; 77 | FDown:=false; 78 | FBitmap:=TBitmap.create; 79 | Fbitmap.width:=24; 80 | Fbitmap.Height:=24; 81 | Fbitmap.canvas.brush.color:=clgray; 82 | FBitmap.canvas.FillRect (rect(1,1,23,23)); 83 | FLighter:=Tbitmap.create; 84 | FDarker:=Tbitmap.create; 85 | end; 86 | 87 | destructor TBitmapButton.Destroy; 88 | begin 89 | FBitmap.free; 90 | FLighter.free; 91 | FDarker.free; 92 | inherited; 93 | end; 94 | 95 | procedure TBitmapButton.MouseDown(Button: TMouseButton; 96 | Shift: TShiftState; X, Y: Integer); 97 | begin 98 | inherited; 99 | if FBitmap.canvas.pixels[x,y]<>Fbitmap.canvas.pixels[0,FBitmap.height-1] then 100 | FPushDown:=true 101 | else 102 | FPushDown:=false; 103 | Paint; 104 | if assigned(onmousedown) then 105 | onmousedown(self,button,shift,x,y); 106 | end; 107 | 108 | procedure TBitmapButton.MouseUp(Button: TMouseButton; Shift: TShiftState; 109 | X, Y: Integer); 110 | begin 111 | inherited; 112 | FPushDown:=false; 113 | if Latching then 114 | FDown:= not FDown 115 | else 116 | FDown:=false; 117 | Paint; 118 | if assigned(onmouseup) then 119 | onmouseup(self,button,shift,x,y); 120 | end; 121 | 122 | procedure TBitmapButton.Paint; 123 | var Acolor:TColor; 124 | begin 125 | inherited; 126 | if assigned(FBitmap) then 127 | begin 128 | AColor:=FBitmap.canvas.pixels[0,FBitmap.height-1]; 129 | Fbitmap.transparent:=true; 130 | Fbitmap.transparentcolor:=Acolor; 131 | FLighter.transparent:=true; 132 | Flighter.TransparentColor :=AColor; 133 | FDarker.transparent:=true; 134 | FDarker.TransparentColor :=AColor; 135 | if FPushdown then 136 | begin 137 | canvas.draw(1,1,FDarker) 138 | end 139 | else 140 | begin 141 | if Down then 142 | canvas.Draw(1,1,FDarker) 143 | else if (FMouseOver and FHotTrack) then 144 | canvas.draw(0,0,FLighter) 145 | else 146 | canvas.Draw (0,0,FBitmap); 147 | end; 148 | end; 149 | end; 150 | 151 | procedure TBitmapButton.SetBitmap(const Value: TBitmap); 152 | begin 153 | FBitmap.assign(Value); 154 | FBitmap.transparent:=true; 155 | FBitmap.TransparentColor :=FBitmap.Canvas.pixels[0,FBitmap.Height-1]; 156 | width:=FBitmap.Width ; 157 | height:=FBitmap.Height ; 158 | MakeLighter; 159 | MakeDarker; 160 | end; 161 | 162 | procedure TBitmapButton.MakeLighter; 163 | var p1,p2:Pbytearray; 164 | x,y:integer; 165 | rt,gt,bt:byte; 166 | AColor:TColor; 167 | begin 168 | FLighter.Width :=FBitmap.Width ; 169 | FLighter.Height :=FBitmap.height; 170 | Acolor:=colortorgb(FBitmap.canvas.pixels[0,FBitmap.height-1]); 171 | rt:=GetRValue(Acolor); 172 | gt:=GetGValue(AColor); 173 | bt:=getBValue(AColor); 174 | FBitmap.PixelFormat :=pf24bit; 175 | FLighter.PixelFormat :=pf24bit; 176 | for y:=0 to Fbitmap.height-1 do 177 | begin 178 | p1:=Fbitmap.ScanLine [y]; 179 | p2:=FLighter.ScanLine [y]; 180 | for x:=0 to FBitmap.width-1 do 181 | begin 182 | if (p1[x*3]=bt)and (p1[x*3+1]=gt)and (p1[x*3+2]=rt) then 183 | begin 184 | p2[x*3]:=p1[x*3]; 185 | p2[x*3+1]:=p1[x*3+1]; 186 | p2[x*3+2]:=p1[x*3+2]; 187 | end 188 | else 189 | begin 190 | p2[x*3]:=$FF-round(0.8*abs($FF-p1[x*3])); 191 | p2[x*3+1]:=$FF-round(0.8*abs($FF-p1[x*3+1])); 192 | p2[x*3+2]:=$FF-round(0.8*abs($FF-p1[x*3+2])); 193 | end; 194 | end; 195 | end; 196 | end; 197 | 198 | procedure TBitmapButton.MakeDarker; 199 | var p1,p2:Pbytearray; 200 | x,y:integer; 201 | rt,gt,bt:byte; 202 | AColor:TColor; 203 | begin 204 | FDarker.Width :=FBitmap.Width ; 205 | FDarker.Height :=FBitmap.height; 206 | Acolor:=colortorgb(FBitmap.canvas.pixels[0,FBitmap.height-1]); 207 | rt:=GetRValue(Acolor); 208 | gt:=GetGValue(AColor); 209 | bt:=getBValue(AColor); 210 | FBitmap.PixelFormat :=pf24bit; 211 | FDarker.PixelFormat :=pf24bit; 212 | for y:=0 to Fbitmap.height-1 do 213 | begin 214 | p1:=Fbitmap.ScanLine [y]; 215 | p2:=FDarker.ScanLine [y]; 216 | for x:=0 to FBitmap.width-1 do 217 | begin 218 | if (p1[x*3]=bt)and (p1[x*3+1]=gt)and (p1[x*3+2]=rt) then 219 | begin 220 | p2[x*3]:=p1[x*3]; 221 | p2[x*3+1]:=p1[x*3+1]; 222 | p2[x*3+2]:=p1[x*3+2]; 223 | end 224 | else 225 | begin 226 | p2[x*3]:=round(0.7*p1[x*3]); 227 | p2[x*3+1]:=round(0.7*p1[x*3+1]); 228 | p2[x*3+2]:=round(0.7*p1[x*3+2]); 229 | end 230 | end; 231 | end; 232 | end; 233 | 234 | 235 | procedure TBitmapButton.CMMouseLeave(var Message: TMessage); 236 | begin 237 | FMouseOver:=false; 238 | Paint; 239 | end; 240 | 241 | procedure TBitmapButton.Loaded; 242 | begin 243 | inherited; 244 | if not FBitmap.Empty then 245 | begin 246 | MakeDarker; 247 | MakeLighter; 248 | end; 249 | end; 250 | 251 | procedure TBitmapButton.SetLatching(const Value: boolean); 252 | begin 253 | FLatching := Value; 254 | if not FLatching then 255 | begin 256 | FDown:=false; 257 | paint; 258 | end; 259 | end; 260 | 261 | procedure TBitmapButton.SetDown(const Value: boolean); 262 | begin 263 | if FLatching then 264 | begin 265 | FDown := Value; 266 | paint; 267 | end 268 | else 269 | begin 270 | FDown:=false; 271 | paint; 272 | end; 273 | end; 274 | 275 | procedure TBitmapButton.Resize; 276 | begin 277 | inherited; 278 | if assigned(Fbitmap) then 279 | begin 280 | width:=FBitmap.width; 281 | height:=FBitmap.Height ; 282 | end 283 | else 284 | begin 285 | width:=24; 286 | height:=24; 287 | end; 288 | end; 289 | 290 | 291 | procedure TBitmapButton.SetHotTrack(const Value: boolean); 292 | begin 293 | FHotTrack := Value; 294 | end; 295 | 296 | procedure TBitmapButton.MouseMove(Shift: TShiftState; X, Y: Integer); 297 | var Value:boolean; 298 | begin 299 | inherited; 300 | Value:= FBitmap.canvas.pixels[x,y]<>Fbitmap.canvas.pixels[0,FBitmap.height-1]; 301 | if value<>FMouseOver then 302 | begin 303 | FMouseOver:=value; 304 | Paint; 305 | end; 306 | if assigned(onmousemove) then 307 | onmousemove(self,shift,x,y); 308 | end; 309 | 310 | end. 311 | -------------------------------------------------------------------------------- /LauncherSources/SJ_OneInstance.pas: -------------------------------------------------------------------------------- 1 | unit SJ_OneInstance; 2 | 3 | interface 4 | 5 | uses 6 | Windows, SysUtils, Classes, Controls, Forms; 7 | 8 | type 9 | TOneInstance=class(TComponent) 10 | private 11 | FTerminate: boolean; 12 | FSwitchToPrevious: boolean; 13 | Mutex: hWnd; 14 | MutexCreated: boolean; 15 | FOnInstanceExists: TNotifyEvent; 16 | public 17 | procedure Loaded; override; 18 | constructor Create(AOwner: TComponent); override; 19 | destructor Destroy; override; 20 | published 21 | property SwitchToPrevious: boolean read FSwitchToPrevious write FSwitchToPrevious; 22 | property Terminate: boolean read FTerminate write FTerminate; 23 | property OnInstanceExists: TNotifyEvent read FOnInstanceExists write FOnInstanceExists; 24 | end; 25 | 26 | implementation 27 | 28 | constructor TOneInstance.Create(AOwner: TComponent); 29 | begin 30 | inherited Create(AOwner); 31 | FTerminate:=True; 32 | FSwitchToPrevious:=True; 33 | end; 34 | 35 | destructor TOneInstance.Destroy; 36 | begin 37 | if MutexCreated then CloseHandle(Mutex); 38 | inherited Destroy; 39 | end; 40 | 41 | procedure TOneInstance.Loaded; 42 | var 43 | Title: array[0..$100] of char; 44 | PreviousHandle: THandle; 45 | begin 46 | inherited Loaded; 47 | StrPCopy(Title, Application.Title); 48 | MutexCreated:=False; 49 | Mutex:=CreateMutex(nil, False, Title); 50 | if (GetLastError=ERROR_ALREADY_EXISTS)or(Mutex=0) then 51 | begin 52 | if Assigned(FOnInstanceExists) then FOnInstanceExists(Self); 53 | if FSwitchToPrevious then 54 | begin 55 | PreviousHandle:=FindWindow(nil, Title); 56 | SetWindowText(PreviousHandle, ''); 57 | PreviousHandle:=FindWindow(nil, Title); 58 | if PreviousHandle<>0 then 59 | begin 60 | if IsIconic(PreviousHandle) then 61 | ShowWindow(PreviousHandle, SW_RESTORE) 62 | else 63 | BringWindowToTop(PreviousHandle); 64 | end; 65 | end; 66 | if FTerminate then Application.Terminate; 67 | end; 68 | MutexCreated:=True; 69 | end; 70 | 71 | end. 72 | 73 | -------------------------------------------------------------------------------- /LauncherSources/SecondaryForm.ddp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/SecondaryForm.ddp -------------------------------------------------------------------------------- /LauncherSources/SecondaryForm.dfm: -------------------------------------------------------------------------------- 1 | object Form2: TForm2 2 | Left = 347 3 | Top = 230 4 | BorderIcons = [biSystemMenu] 5 | BorderStyle = bsSingle 6 | Caption = 'Info' 7 | ClientHeight = 472 8 | ClientWidth = 635 9 | Color = cl3DLight 10 | Font.Charset = DEFAULT_CHARSET 11 | Font.Color = clWindowText 12 | Font.Height = -11 13 | Font.Name = 'MS Sans Serif' 14 | Font.Style = [] 15 | OldCreateOrder = False 16 | OnClose = FormClose 17 | OnCreate = FormCreate 18 | OnShow = FormShow 19 | PixelsPerInch = 96 20 | TextHeight = 13 21 | object Thanks: TLabel 22 | Left = 8 23 | Top = 176 24 | Width = 35 25 | Height = 13 26 | Caption = 'Credits:' 27 | end 28 | object TextWnd: TRichEdit 29 | Left = 12 30 | Top = 8 31 | Width = 616 32 | Height = 153 33 | Align = alCustom 34 | Anchors = [akTop, akRight] 35 | BevelEdges = [beLeft, beRight, beBottom] 36 | BiDiMode = bdLeftToRight 37 | BorderStyle = bsNone 38 | Color = cl3DLight 39 | ParentBiDiMode = False 40 | ReadOnly = True 41 | ScrollBars = ssBoth 42 | TabOrder = 0 43 | end 44 | object Ok: TButton 45 | Left = 504 46 | Top = 440 47 | Width = 75 48 | Height = 25 49 | Cursor = crHandPoint 50 | Caption = 'Ok' 51 | TabOrder = 1 52 | OnClick = OkClick 53 | end 54 | object Credits: TRichEdit 55 | Left = 8 56 | Top = 384 57 | Width = 289 58 | Height = 81 59 | Color = cl3DLight 60 | Font.Charset = DEFAULT_CHARSET 61 | Font.Color = clMenuText 62 | Font.Height = -11 63 | Font.Name = 'MS Sans Serif' 64 | Font.Style = [] 65 | Lines.Strings = ( 66 | '') 67 | ParentFont = False 68 | ReadOnly = True 69 | TabOrder = 2 70 | end 71 | object Credits2: TRichEdit 72 | Left = 8 73 | Top = 192 74 | Width = 609 75 | Height = 145 76 | Color = cl3DLight 77 | Lines.Strings = ( 78 | 79 | '- Giuseppe Ronca (Alias Hw2-Yehonal)'#9#9#9'www.hw2.altervista.org'#9#9'm' + 80 | 'ailto:hw2.eternity@gmail.com'#9#9'[ coder and founder ]' 81 | 82 | '- Bruno Carvalho (Alias Athena)'#9#9#9'www.xcla.net'#9#9#9'mailto:athena@x' + 83 | 'cla.net'#9#9#9'[ portuguese translator and beta tester]') 84 | ReadOnly = True 85 | ScrollBars = ssBoth 86 | TabOrder = 3 87 | WordWrap = False 88 | end 89 | object VersionPanel: TStaticText 90 | Left = 8 91 | Top = 344 92 | Width = 110 93 | Height = 17 94 | Cursor = crHandPoint 95 | BorderStyle = sbsSunken 96 | Caption = 'Checking version..' 97 | Color = cl3DLight 98 | Font.Charset = DEFAULT_CHARSET 99 | Font.Color = clWindowText 100 | Font.Height = -11 101 | Font.Name = 'MS Sans Serif' 102 | Font.Style = [fsBold] 103 | ParentColor = False 104 | ParentFont = False 105 | TabOrder = 4 106 | Transparent = False 107 | OnClick = VersionPanelClick 108 | end 109 | end 110 | -------------------------------------------------------------------------------- /LauncherSources/SecondaryForm.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/SecondaryForm.pas -------------------------------------------------------------------------------- /LauncherSources/Tools.ddp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/Tools.ddp -------------------------------------------------------------------------------- /LauncherSources/Tools.dfm: -------------------------------------------------------------------------------- 1 | object Tool: TTool 2 | Left = 319 3 | Top = 362 4 | BorderIcons = [biSystemMenu, biMinimize] 5 | BorderStyle = bsSingle 6 | Caption = 'Tool' 7 | ClientHeight = 265 8 | ClientWidth = 629 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 | OldCreateOrder = False 16 | Position = poDefault 17 | OnShow = FormShow 18 | PixelsPerInch = 96 19 | TextHeight = 13 20 | object Shoutbox: TWebBrowser 21 | Left = 0 22 | Top = 0 23 | Width = 633 24 | Height = 268 25 | TabOrder = 0 26 | ControlData = { 27 | 4C0000006C410000B31B00000000000000000000000000000000000000000000 28 | 000000004C000000000000000000000001000000E0D057007335CF11AE690800 29 | 2B2E12620E000000000000004C0000000114020000000000C000000000000046 30 | 8000000000000000000000000000000000000000000000000000000000000000 31 | 00000000000000000100000000000000000000000000000000000000} 32 | end 33 | end 34 | -------------------------------------------------------------------------------- /LauncherSources/Tools.pas: -------------------------------------------------------------------------------- 1 | { 2 | * 3 | * Copyright (C) 2005-2009 UDW-SOFTWARE 4 | * 5 | * This program is free software; you can redistribute it and/or modify 6 | * it under the terms of the GNU General Public License as published by 7 | * the Free Software Foundation; either version 2 of the License, or 8 | * (at your option) any later version. 9 | * 10 | * This program is distributed in the hope that it will be useful, 11 | * but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | * GNU General Public License for more details. 14 | * 15 | * You should have received a copy of the GNU General Public License 16 | * along with this program; if not, write to the Free Software 17 | * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 18 | * 19 | } 20 | 21 | unit Tools; 22 | 23 | interface 24 | 25 | uses 26 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 27 | Dialogs, OleCtrls, SHDocVw, ExtCtrls; 28 | 29 | type 30 | TTool = class(TForm) 31 | Shoutbox: TWebBrowser; 32 | procedure FormShow(Sender: TObject); 33 | Procedure CreateParams( Var params: TCreateParams ); override; 34 | private 35 | // procedura per evitare la simultanea minimizzazione delle forms tramite la form principale 36 | // senza creare nuove gestioni di applicazione 37 | // Procedure WMSyscommand(Var msg: TWmSysCommand); message WM_SYSCOMMAND; 38 | { Private declarations } 39 | public 40 | { Public declarations } 41 | end; 42 | 43 | var 44 | Tool: TTool; 45 | Completed: boolean; 46 | 47 | implementation 48 | 49 | uses Config, Main,Engine; 50 | 51 | { 52 | // procedura per evitare la simultanea minimizzazione delle forms tramite la form principale 53 | // senza creare nuove gestioni di applicazione 54 | 55 | Procedure TTool.WMSyscommand(Var msg: TWmSysCommand); 56 | Begin 57 | Case (msg.cmdtype and $FFF0) of 58 | SC_MINIMIZE: Begin 59 | ShowWindow( handle, SW_MINIMIZE ); 60 | msg.result := 0; 61 | End; 62 | SC_RESTORE: Begin 63 | ShowWindow( handle, SW_RESTORE ); 64 | msg.result := 0; 65 | End; 66 | Else 67 | inherited; 68 | End; 69 | End; 70 | } 71 | 72 | {$R *.dfm} 73 | // crea una finestra a parte per evitare la dipendenza nella minimizzazione dalle altre forms 74 | procedure TTool.CreateParams(Var params: TCreateParams); 75 | begin 76 | inherited CreateParams( params ); 77 | params.ExStyle := params.ExStyle or WS_EX_APPWINDOW; 78 | params.WndParent := GetDesktopwindow; 79 | end; 80 | 81 | procedure TTool.FormShow(Sender: TObject); 82 | begin 83 | Tool.AlphaBlend:=frmmain.AlphaBlend; 84 | Tool.AlphaBlendValue:=frmmain.AlphaBlendValue; 85 | Tool.Visible:=true; 86 | Shoutbox.Navigate(Nav_URL+Redirect+'tool'); 87 | end; 88 | 89 | end. 90 | -------------------------------------------------------------------------------- /LauncherSources/winxp.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/azerothcore/wowlauncher-delphi/c92abd632b63e1c3465ac2dc2598546d2c75a2ef/LauncherSources/winxp.res -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # WOW LAUNCHER ( OLD ) 2 | 3 | ### latest release available for download here 4 | 5 | https://github.com/udw/wowlauncher-delphi/releases/tag/v2.2.0 6 | 7 | ### old info page: 8 | 9 | http://udw.altervista.org/itawowdevelopers/viewtopic.php?p=145 10 | 11 | ### old description: 12 | 13 | ![launcher](https://lh3.googleusercontent.com/ESSLWzpaxZPLFSQOq7HXVQfIxJ-SJFQnw3AhKhkBGa8FOPVmjnqQn8YxSZIrPMicnOy5=w1440-h900-rw-no) 14 | 15 | Launcher-XT is a new , very powerfull and free , launcher for W.o.W client: 16 | 17 | -- The software was designed by HW2-Yehonal, tested and certified by "United Developers World" community . 18 | 19 | Some of its main functions are: 20 | 21 | 22 | 23 | * Automatic search client game path during the installation of the patch. 24 | * Install automatic your mods 25 | * Customizable setup to make your personal distribution of the launcher. 26 | 27 | 28 | 29 | 30 | * Possibility to configure the launcher according to your own necessities and to be able to play elsewhere (contains a way to connect to official servers ) 31 | * Automatic cleaning of game cache to avoid some errors in the game. 32 | * Check automatic connection to the internet and your realms (if the option is enabled) with guides on the network configuration 33 | * automatic check patches needed to play in default realms (if the option is enabled) 34 | * Hamachi Support ( optional ) for hamachi realms. 35 | * automatic check the latest version of Launcher-XT available online. 36 | * Possibility to change the realmlist manually using configuration menu without needing to open any files. 37 | * Multi Language Mode for a worldwide distribution of the product. 38 | * Guide for update the client with links to patches. 39 | * Lots of links to our web that will keep you always up to date with your community. 40 | * Integrated Shoutbox. 41 | * Possibility to save your preferites realmlist. 42 | * Server Status control supported by a timer. 43 | * Possibility to configure your path manually. 44 | 45 | ..and many other things! 46 | 47 | The Launcher can be updated to correct bugs or to add new features. 48 | 49 | The "Web side" is required to create your personal distribution (a Launcher-XT with your links and full customizable), of course, you must set correctly the configuration files in the setup that you will distribute. Here instructions to create your personal launcher-XT: http://UDW.altervista.org/home/viewtopic.php?p=148#p148 50 | 51 | The launcher is fully translatable, in the folder LauncherXT_Files there are all the files needed, please contact me HERE if you want to participate in the translation work. 52 | --------------------------------------------------------------------------------