main()
{
int probleme;
DataDecrypt();
if ( DataCheck() != 0 )
DataClear();
linea_init();
hide_mouse();
probleme = InitTank();
if ( !probleme ) {
InitSys();
_InitSys();
InitRand((int)*_Hz200 & 0x7FFF);
ShowLogo();
MnRoot();
_TermSys();
TermSys();
}
TermTank(probleme);
show_mouse(0);
return (0);
}
//---------------------------------------------------------------------------
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
{
switch(reason){
case DLL_PROCESS_ATTACH:
{
InitSys();
char bf[512];
::GetModuleFileName(hinst, bf, sizeof(bf));
::SetDirName(sys.m_BgnDir, bf);
_setmbcp(_MB_CP_ANSI);
HWND hMM = ::FindWindow("TMmsstv", NULL);
if( hMM != NULL ) Application->Handle = hMM;
if( sys.m_BitPixel < 24 ){
sys.m_pBitmapTemp = new Graphics::TBitmap;
sys.m_pBitmapTemp->Width = 1;
sys.m_pBitmapTemp->Height = 1;
}
}
break;
case DLL_PROCESS_DETACH:
sys.m_fMultProc = NULL;
if( sys.m_pDefStg != NULL ){
CItem *pItem = new CItem;
pItem->Create(NULL, 0);
pItem->SaveToInifile("Default", ININAME);
delete pItem;
delete sys.m_pDefStg;
sys.m_pDefStg = NULL;
}
if( sys.m_pTextList != NULL ){
SaveStringsToIniFile(sys.m_pTextList, "Strings", ININAME, TRUE);
delete sys.m_pTextList;
sys.m_pTextList = NULL;
}
if( sys.m_pStyleList != NULL ){
SaveStringsToIniFile(sys.m_pStyleList, "Styles", ININAME, FALSE);
delete sys.m_pStyleList;
sys.m_pStyleList = NULL;
}
if( sys.m_pFontList != NULL ){
delete sys.m_pFontList;
sys.m_pFontList = NULL;
}
if( sys.m_pBitmapTemp != NULL ){
delete sys.m_pBitmapTemp;
sys.m_pBitmapTemp = NULL;
}
break;
}
return 1;
}
//---------------------------------------------------------------------------
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
{
switch(reason){
case DLL_PROCESS_ATTACH:
{
InitSys(hinst);
_setmbcp(_MB_CP_ANSI);
HWND hMM = ::FindWindow("TMmsstv", NULL);
if( hMM != NULL ) Application->Handle = hMM;
}
break;
case DLL_PROCESS_DETACH:
sys.m_fMultProc = NULL;
if( sys.m_pDefStg != NULL ){
CItem *pItem = new CItem;
pItem->Create(NULL, 0);
pItem->SaveToInifile("Default", ININAME, FALSE);
delete pItem;
delete sys.m_pDefStg;
sys.m_pDefStg = NULL;
}
if( sys.m_pTextList != NULL ){
SaveStringsToIniFile(sys.m_pTextList, "Strings", ININAME, TRUE);
delete sys.m_pTextList;
sys.m_pTextList = NULL;
}
if( sys.m_pStyleList != NULL ){
SaveStringsToIniFile(sys.m_pStyleList, "Styles", ININAME, FALSE);
delete sys.m_pStyleList;
sys.m_pStyleList = NULL;
}
if( sys.m_pFontList != NULL ){
delete sys.m_pFontList;
sys.m_pFontList = NULL;
}
if( sys.m_pBitmapTemp != NULL ){
delete sys.m_pBitmapTemp;
sys.m_pBitmapTemp = NULL;
}
break;
}
return 1;
}
char *RemoteLink( char *parm, bool server )
{
char *result;
server = server;
if( parm == NULL )
parm = "";
result = SetLinkParms( &parm ); /* set com: port & max baud rate */
if( result != NULL ) {
DonePort();
return( result );
}
result = InitSys();
if( result != NULL ) {
DonePort();
return( result );
}
result = SetupModem( parm );
if( result != NULL )
RemoteUnLink();
return( result );
}
BOOL APIENTRY DllMain( HMODULE hModule,
DWORD ul_reason_for_call,
LPVOID lpReserved
)
{
switch (ul_reason_for_call)
{
case DLL_PROCESS_ATTACH:
OutputDebugStringA("HookDll DLL_PROCESS_ATTACH---------------");
InitSys();
break;
case DLL_THREAD_ATTACH:
break;
case DLL_THREAD_DETACH:
break;
case DLL_PROCESS_DETACH:
UnInitSys();
break;
}
return TRUE;
}
