Subversion Repositories aysalia

program AyDos;

program AyDos;

// Aysalia DOS Launcher

// Aysalia DOS Launcher

// (C) 2018 Daniel Marschall, ViaThinkSoft

// (C) 2018 Daniel Marschall, ViaThinkSoft

// This launcher does launch DOSBox with the correct *.conf file,

// This launcher does launch DOSBox with the correct *.conf file,

// centers the window and changes the window title and icon at runtime.

// centers the window and changes the window title and icon at runtime.

const

const

  DOSBOX_EXE = 'DOSBox.exe';

  DOSBOX_EXE = 'DOSBox.exe';

var

var

(*

(*

function GetModuleFileNameEx(inProcess: THandle; inModule: THandle;

function GetModuleFileNameEx(inProcess: THandle; inModule: THandle;

      Filename: PChar; size: DWord): DWord; stdcall;

      Filename: PChar; size: DWord): DWord; stdcall;

      external 'psapi.dll' name 'GetModuleFileNameExA';

      external 'psapi.dll' name 'GetModuleFileNameExA';

  end

  end

  else result := -2;

  else result := -2;

end;

end;

{$ENDIF}

{$ENDIF}

procedure ChangeTitleAndIcon(hWnd: Thandle);

procedure ChangeTitleAndIcon(hWnd: Thandle);

var

var

  Title: array[0..255] of Char;

  Title: array[0..255] of Char;

const

const

  TargetWinWidth = 640;

  TargetWinWidth = 640;

  try

  try

    hIcon := LoadIcon(hInstance, 'MainIcon');

    hIcon := LoadIcon(hInstance, 'MainIcon');

    ExitCode := Main;

    ExitCode := Main;

  finally

  finally

    FreeLibrary(hPsApiDll);

    FreeLibrary(hPsApiDll);

  end;

  end;

end.

end.