root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level :2.1 26

Browse Source 
Files correlati     :ba0.exe, ba0close.exe
Ricompilazione Demo : [ ]
Commento            :
Finalmente risolto (?) il problema relativo alla ri-nomina dei files .ex_ e .dl_ in chiusura di
ba0.exe.


git-svn-id: svn://10.65.10.50/trunk@12053 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2004-05-05 13:54:46 +00:00
parent e3edd2dd87
commit 5fbdd8856d
3 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ba/ba0100.cpp
View File

@ -1097,9 +1097,16 @@ bool TMenu_application::destroy()
if (sys_dll_changed()) if (sys_dll_changed())
{ {
// static bool launched = false;
// if (!launched)
{
// launched = true;
TExternal_app ba0close("ba0close.exe"); TExternal_app ba0close("ba0close.exe");
ba0close.run(TRUE,TRUE,TRUE); // run asynchronous... ba0close.run(TRUE,TRUE,TRUE); // run asynchronous...
} }
// else
// error_box("Doppia chiusura");
}
return TRUE; return TRUE;
} }

3
ba/ba0101.cpp
View File

@ -318,7 +318,8 @@ bool TMenuitem::perform_program() const
const bool install_app = _action.starts_with("ba1 -6", TRUE); const bool install_app = _action.starts_with("ba1 -6", TRUE);
if (install_app && sys_dll_changed()) if (install_app && sys_dll_changed())
main_app().stop_run(); dispatch_e_char(cur_win(), K_QUIT);
//main_app().stop_run();
} }
return ok; return ok;

6
ba/ba0close.cpp
View File

@ -39,7 +39,7 @@ void Renamer(const char* mask)
sprintf(msg, "Impossibile ridenominare il file %s in %s:\n%s", sprintf(msg, "Impossibile ridenominare il file %s in %s:\n%s",
oldpath, newpath, lpMsgBuf); oldpath, newpath, lpMsgBuf);
::LocalFree(lpMsgBuf); ::LocalFree(lpMsgBuf);
::MessageBox(NULL, msg, "Ba0Close Error", MB_ICONERROR | MB_OK); ::MessageBox(NULL, msg, "Aggiornamento sistema", MB_ICONERROR | MB_OK);
} }
} }
@ -49,7 +49,9 @@ void Renamer(const char* mask)
int PASCAL WinMain(HINSTANCE, HINSTANCE , LPSTR, int) int PASCAL WinMain(HINSTANCE, HINSTANCE , LPSTR, int)
{ {
::Sleep(5000); // Apetta qualche secondo che termini ba0.exe ::MessageBox(NULL, "Premere OK prima di riavviare il programma",
"Aggiornamento sistema", MB_ICONWARNING | MB_OK);
// ::Sleep(5000); // Apetta qualche secondo che termini ba0.exe
Renamer("*.??_"); Renamer("*.??_");
Renamer("Servers\\*.??_"); Renamer("Servers\\*.??_");