Rev 24 | Rev 27 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 24 | Rev 26 | ||
|---|---|---|---|
| Line 70... | Line 70... | ||
| 70 | const |
70 | const |
| 71 | TargetWinWidth = 640; |
71 | TargetWinWidth = 640; |
| 72 | TargetWinHeight = 480; |
72 | TargetWinHeight = 480; |
| 73 | resourcestring |
73 | resourcestring |
| 74 | AyDosTitle = 'Aysalia DOS'; |
74 | AyDosTitle = 'Aysalia DOS'; |
| 75 | AyDos1Title = 'Aysalia DOS I'; |
75 | AyDos1Title = 'Aysalia DOS 1'; |
| 76 | AyDos2Title = 'Aysalia DOS II'; |
76 | AyDos2Title = 'Aysalia DOS 2'; |
| 77 | begin |
77 | begin |
| 78 | ZeroMemory(@Title, sizeof(Title)); |
78 | ZeroMemory(@Title, sizeof(Title)); |
| 79 | GetWindowText(hWnd, @Title, sizeof(Title)-1); |
79 | GetWindowText(hWnd, @Title, sizeof(Title)-1); |
| 80 | 80 | ||
| 81 | // Center window (once) |
81 | // Center window (once) |
| Line 92... | Line 92... | ||
| 92 | // Change window title |
92 | // Change window title |
| 93 | if Pos('AYDOS1', Title) > 0 then |
93 | if Pos('AYDOS1', Title) > 0 then |
| 94 | SetWindowText(hWnd, PChar(AyDos1Title)) |
94 | SetWindowText(hWnd, PChar(AyDos1Title)) |
| 95 | else if Pos('AYDOS2', Title) > 0 then |
95 | else if Pos('AYDOS2', Title) > 0 then |
| 96 | SetWindowText(hWnd, PChar(AyDos2Title)) |
96 | SetWindowText(hWnd, PChar(AyDos2Title)) |
| 97 | else |
97 | else if Pos('AYDOS', Title) > 0 then |
| 98 | SetWindowText(hWnd, PChar(AyDosTitle)); |
98 | SetWindowText(hWnd, PChar(AyDosTitle)); |
| 99 | 99 | ||
| 100 | // Change window and taskbar icon |
100 | // Change window and taskbar icon |
| 101 | if hIcon > 0 then |
101 | if hIcon > 0 then |
| 102 | begin |
102 | begin |