// 儲(chǔ)層損害礦場(chǎng)評(píng)價(jià)軟件.cpp : Defines the class behaviors for the application.
//

#include "stdafx.h"
#include "儲(chǔ)層損害礦場(chǎng)評(píng)價(jià)軟件.h"

#include "MainFrm.h"
#include "SkinDoc.h"
#include "SkinView.h"
#include <initguid.h>
#include "儲(chǔ)層損害礦場(chǎng)評(píng)價(jià)軟件_i.c"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

//#define  SHAREWARE		//	如定義此標(biāo)識(shí)則注冊(cè)后一個(gè)月不能使用
#define		TRYTIME			6		// 試用時(shí)間（月）

int RegisterCheck();	// 檢查注冊(cè)時(shí)間

/////////////////////////////////////////////////////////////////////////////
// CMyApp

BEGIN_MESSAGE_MAP(CMyApp, CWinApp)
	//{{AFX_MSG_MAP(CMyApp)
	ON_COMMAND(ID_APP_ABOUT, OnAppAbout)
		// NOTE - the ClassWizard will add and remove mapping macros here.
		//    DO NOT EDIT what you see in these blocks of generated code!
	//}}AFX_MSG_MAP
	// Standard file based document commands
	ON_COMMAND(ID_FILE_NEW, CWinApp::OnFileNew)
	ON_COMMAND(ID_FILE_OPEN, CWinApp::OnFileOpen)
	// Standard print setup command
	ON_COMMAND(ID_FILE_PRINT_SETUP, CWinApp::OnFilePrintSetup)
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CMyApp construction

CMyApp::CMyApp()
{
	// TODO: add construction code here,
	// Place all significant initialization in InitInstance
}

/////////////////////////////////////////////////////////////////////////////
// The one and only CMyApp object

CMyApp theApp;

/////////////////////////////////////////////////////////////////////////////
// CMyApp initialization

BOOL CMyApp::InitInstance()
{
	if (!InitATL())
		return FALSE;

	AfxEnableControlContainer();

	// Standard initialization
	// If you are not using these features and wish to reduce the size
	//  of your final executable, you should remove from the following
	//  the specific initialization routines you do not need.

#ifdef _AFXDLL
	Enable3dControls();			// Call this when using MFC in a shared DLL
#else
	Enable3dControlsStatic();	// Call this when linking to MFC statically
#endif

	// Change the registry key under which our settings are stored.
	// TODO: You should modify this string to be something appropriate
	// such as the name of your company or organization.
	SetRegistryKey(_T("Local AppWizard-Generated Applications"));

	LoadStdProfileSettings();  // Load standard INI file options (including MRU)

	// Register the application's document templates.  Document templates
	//  serve as the connection between documents, frame windows and views.

	CSingleDocTemplate* pDocTemplate;
	pDocTemplate = new CSingleDocTemplate(
		IDR_MAINFRAME,
		RUNTIME_CLASS(CMyDoc),
		RUNTIME_CLASS(CMainFrame),       // main SDI frame window
		RUNTIME_CLASS(CMyView));
	AddDocTemplate(pDocTemplate);

	// Parse command line for standard shell commands, DDE, file open
	CCommandLineInfo cmdInfo;
	ParseCommandLine(cmdInfo);

	if (cmdInfo.m_bRunEmbedded || cmdInfo.m_bRunAutomated)
	{
		return TRUE;
	}



	// Dispatch commands specified on the command line
	if (!ProcessShellCommand(cmdInfo))
		return FALSE;

	// The one and only window has been initialized, so show and update it.
	m_pMainWnd->ShowWindow(SW_SHOW);
	m_pMainWnd->UpdateWindow();

#ifdef  SHAREWARE	//如果是使用版，則檢查注冊(cè)信息
	int result = RegisterCheck();
	if( result == -1) return FALSE;
#endif

	return TRUE;
}

int RegisterCheck()
{
	LONG IRC;
	HKEY hNewKey;
	DWORD dwDisposition;
	char regclass[250];
	DWORD subclass, subkey, maxsubkey, maxclass, value, 
			maxvaluename, maxvalue,  secu;
	FILETIME filetime;

	// 注冊(cè)信息存放點(diǎn)
	IRC = RegCreateKeyEx(HKEY_LOCAL_MACHINE,
		"SOFTWARE\\江漢石油學(xué)院地質(zhì)系\\儲(chǔ)層損害礦場(chǎng)評(píng)價(jià)系統(tǒng)\\1.00",
		0, NULL, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS,
		NULL, &hNewKey, &dwDisposition);
	if( IRC != ERROR_SUCCESS) return -1;

	IRC = RegQueryInfoKey(hNewKey, regclass, &subclass, NULL,
		&subkey, &maxsubkey, &maxclass, &value, &maxvaluename, 
		&maxvalue, &secu, &filetime);
	if( IRC != ERROR_SUCCESS) return -1;

	if( value == 0) 
	{	// write new keys
		SYSTEMTIME time;
		DWORD  dwData;
		
		GetSystemTime(&time);
		dwData = time.wYear*10000 + time.wMonth*100 + time.wDay;
		dwData *= 3;
		printf("data = %ld\n", dwData);
		IRC = RegSetValueEx(hNewKey, "Install", 0, REG_DWORD, 
			(BYTE*) &dwData, 4);
		if( IRC != ERROR_SUCCESS) return -1;
		return 0;
	}
	else
	{	// check existing keys
		DWORD  dwDataRev, buflen, dwDataType;
		SYSTEMTIME time;

		buflen = sizeof(dwDataRev);
		IRC = RegQueryValueEx(hNewKey, "Install", NULL,
			&dwDataType, (LPBYTE)&dwDataRev, &buflen);
		if( IRC != ERROR_SUCCESS) return -1;
		WORD year, month, day;
		dwDataRev /= 3;
		year = dwDataRev / 10000;
		month = dwDataRev / 100 - year*100;
		day = dwDataRev - year*10000 - month*100;
		GetSystemTime(&time);
		if(time.wYear != year) return -1;
		if(time.wMonth > month+TRYTIME || time.wMonth < month) return -1;
//		if(time.wMonth > month && time.wDay > day) return -1;
	}
	return 0;
}

/////////////////////////////////////////////////////////////////////////////
// CAboutDlg dialog used for App About

class CAboutDlg : public CDialog
{
public:
	CAboutDlg();

// Dialog Data
	//{{AFX_DATA(CAboutDlg)
	enum { IDD = IDD_ABOUTBOX };
	//}}AFX_DATA

	// ClassWizard generated virtual function overrides
	//{{AFX_VIRTUAL(CAboutDlg)
	protected:
	virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support
	//}}AFX_VIRTUAL

// Implementation
protected:
	//{{AFX_MSG(CAboutDlg)
		// No message handlers
	//}}AFX_MSG
	DECLARE_MESSAGE_MAP()
};

CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
{
	//{{AFX_DATA_INIT(CAboutDlg)
	//}}AFX_DATA_INIT
}

void CAboutDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CAboutDlg)
	//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
	//{{AFX_MSG_MAP(CAboutDlg)
		// No message handlers
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

// App command to run the dialog
void CMyApp::OnAppAbout()
{
	CAboutDlg aboutDlg;
	aboutDlg.DoModal();
}

/////////////////////////////////////////////////////////////////////////////
// CMyApp message handlers


	
CMyModule _Module;

BEGIN_OBJECT_MAP(ObjectMap)
END_OBJECT_MAP()

LONG CMyModule::Unlock()
{
	AfxOleUnlockApp();
	return 0;
}

LONG CMyModule::Lock()
{
	AfxOleLockApp();
	return 1;
}
LPCTSTR CMyModule::FindOneOf(LPCTSTR p1, LPCTSTR p2)
{
	while (*p1 != NULL)
	{
		LPCTSTR p = p2;
		while (*p != NULL)
		{
			if (*p1 == *p)
				return CharNext(p1);
			p = CharNext(p);
		}
		p1++;
	}
	return NULL;
}


int CMyApp::ExitInstance()
{
	if (m_bATLInited)
	{
		_Module.RevokeClassObjects();
		_Module.Term();
		CoUninitialize();
	}

	return CWinApp::ExitInstance();

}

BOOL CMyApp::InitATL()
{
	m_bATLInited = TRUE;

#if _WIN32_WINNT >= 0x0400
	HRESULT hRes = CoInitializeEx(NULL, COINIT_MULTITHREADED);
#else
	HRESULT hRes = CoInitialize(NULL);
#endif

	if (FAILED(hRes))
	{
		m_bATLInited = FALSE;
		return FALSE;
	}

	_Module.Init(ObjectMap, AfxGetInstanceHandle());
	_Module.dwThreadID = GetCurrentThreadId();

	LPTSTR lpCmdLine = GetCommandLine(); //this line necessary for _ATL_MIN_CRT
	TCHAR szTokens[] = _T("-/");

	BOOL bRun = TRUE;
	LPCTSTR lpszToken = _Module.FindOneOf(lpCmdLine, szTokens);
	while (lpszToken != NULL)
	{
		if (lstrcmpi(lpszToken, _T("UnregServer"))==0)
		{
			_Module.UpdateRegistryFromResource(IDR_MY, FALSE);
			_Module.UnregisterServer(TRUE); //TRUE means typelib is unreg'd
			bRun = FALSE;
			break;
		}
		if (lstrcmpi(lpszToken, _T("RegServer"))==0)
		{
			_Module.UpdateRegistryFromResource(IDR_MY, TRUE);
			_Module.RegisterServer(TRUE);
			bRun = FALSE;
			break;
		}
		lpszToken = _Module.FindOneOf(lpszToken, szTokens);
	}

	if (!bRun)
	{
		m_bATLInited = FALSE;
		_Module.Term();
		CoUninitialize();
		return FALSE;
	}

	hRes = _Module.RegisterClassObjects(CLSCTX_LOCAL_SERVER, 
		REGCLS_MULTIPLEUSE);
	if (FAILED(hRes))
	{
		m_bATLInited = FALSE;
		CoUninitialize();
		return FALSE;
	}	

	return TRUE;

}