Rev 28 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 28 | Rev 30 | ||
|---|---|---|---|
| Line 16... | Line 16... | ||
| 16 | {$R *.RES} |
16 | {$R *.RES} |
| 17 | 17 | ||
| 18 | const |
18 | const |
| 19 | DOSBOX_EXE = 'DOSBox.exe'; |
19 | DOSBOX_EXE = 'DOSBox.exe'; |
| 20 | AYDOS_MNU = 'AyDos.mnu'; |
20 | AYDOS_MNU = 'AyDos.mnu'; |
| - | 21 | AYDOS_COM = 'AyDos.com'; |
|
| 21 | 22 | ||
| 22 | var |
23 | var |
| 23 | hPsApiDll: Cardinal = 0; |
24 | hPsApiDll: Cardinal = 0; |
| 24 | hIcon: THandle = 0; |
25 | hIcon: THandle = 0; |
| 25 | bCeneredOnce: boolean = false; |
26 | bCeneredOnce: boolean = false; |
| Line 237... | Line 238... | ||
| 237 | end |
238 | end |
| 238 | else |
239 | else |
| 239 | begin |
240 | begin |
| 240 | // SEE_MASK_CLASSNAME cannot be used with pure MZ files (it does only work for NE/PE files!) |
241 | // SEE_MASK_CLASSNAME cannot be used with pure MZ files (it does only work for NE/PE files!) |
| 241 | // So we need to do the dirty rename-hack... |
242 | // So we need to do the dirty rename-hack... |
| 242 | RenameFile('AyDos.mnu', 'AyDos.com'); |
243 | RenameFile(AYDOS_MNU, AYDOS_COM); |
| 243 | try |
244 | try |
| 244 | ShellExecuteWait(0, 'open', 'AyDos.com', '', PChar(ExtractFilePath(ParamStr(0))), SW_NORMAL); |
245 | ShellExecuteWait(0, 'open', PChar(AYDOS_COM), '', PChar(ExtractFilePath(ParamStr(0))), SW_NORMAL); |
| 245 | finally |
246 | finally |
| 246 | RenameFile('AyDos.com', 'AyDos.mnu'); |
247 | RenameFile(AYDOS_COM, AYDOS_MNU); |
| 247 | end; |
248 | end; |
| 248 | end; |
249 | end; |
| 249 | 250 | ||
| 250 | result := 0; |
251 | result := 0; |
| 251 | end; |
252 | end; |