1,7 → 1,7 |
program AyDos; |
|
// Aysalia DOS Launcher |
// Revision 2018-12-06 |
// Revision 2018-12-07 |
// (C) 2018 Daniel Marschall, ViaThinkSoft |
|
// This launcher does launch DOSBox with the correct *.conf file, |
19,7 → 19,9 |
DOSBOX_EXE = 'DOSBox.exe'; |
|
var |
hPsApiDll: cardinal; |
hPsApiDll: Cardinal = 0; |
hIcon: THandle = 0; |
bCeneredOnce: boolean = false; |
|
(* |
function GetModuleFileNameEx(inProcess: THandle; inModule: THandle; |
62,10 → 64,6 |
end; |
{$ENDIF} |
|
var |
hIcon: THandle = 0; |
bCeneredOnce: boolean = false; |
|
procedure ChangeTitleAndIcon(hWnd: Thandle); |
var |
Title: array[0..255] of Char; |
204,5 → 202,6 |
ExitCode := Main; |
finally |
FreeLibrary(hPsApiDll); |
hPsApiDll := 0; |
end; |
end. |