Subversion Repositories aysalia

Compare Revisions

Regard whitespace Rev 30 → Rev 29

/trunk/Aysalia DOS/Source/AyDos.dpr
18,7 → 18,6
const
DOSBOX_EXE = 'DOSBox.exe';
AYDOS_MNU = 'AyDos.mnu';
AYDOS_COM = 'AyDos.com';
 
var
hPsApiDll: Cardinal = 0;
240,11 → 239,11
begin
// SEE_MASK_CLASSNAME cannot be used with pure MZ files (it does only work for NE/PE files!)
// So we need to do the dirty rename-hack...
RenameFile(AYDOS_MNU, AYDOS_COM);
RenameFile('AyDos.mnu', 'AyDos.com');
try
ShellExecuteWait(0, 'open', PChar(AYDOS_COM), '', PChar(ExtractFilePath(ParamStr(0))), SW_NORMAL);
ShellExecuteWait(0, 'open', 'AyDos.com', '', PChar(ExtractFilePath(ParamStr(0))), SW_NORMAL);
finally
RenameFile(AYDOS_COM, AYDOS_MNU);
RenameFile('AyDos.com', 'AyDos.mnu');
end;
end;