用VC给Oracle的即时客户端(InstanceClient)写个安装设置程序

Oracle 出了个即时客户端，设置三个环境变量就可以用了，也不大。

为了更加方便使用，我写了个程序，放在即时客户端目录里，运行一下就把三个环境变量设好了。很方便。

程序也不难，核心代码贴一下。

// OraSetup.cpp : 定义应用程序的类行为。

//



#include "stdafx.h"

#include "OraSetup.h"

#include "OraSetupDlg.h"



#ifdef _DEBUG

#define new DEBUG_NEW

#endif





// COraSetupApp



BEGIN_MESSAGE_MAP(COraSetupApp, CWinApp)

	ON_COMMAND(ID_HELP, &CWinApp::OnHelp)

END_MESSAGE_MAP()





// COraSetupApp 构造



COraSetupApp::COraSetupApp()

{

	// TODO: 在此处添加构造代码，

	// 将所有重要的初始化放置在 InitInstance 中

}





// 唯一的一个 COraSetupApp 对象



COraSetupApp theApp;

CString COraSetupApp::GetMyPath()

{

	CString strPath;

	GetModuleFileName(NULL,strPath.GetBufferSetLength(MAX_PATH+1),MAX_PATH);

	strPath.ReleaseBuffer();

	return strPath;

}

BOOL COraSetupApp::SetEnv(CString key,CString value,BOOL bAppend)

{

	HKEY hRegKey;

	BOOL bResult=FALSE;

	CString str=_T("SYSTEM\\ControlSet001\\Control\\Session Manager\\Environment");

	if(::RegOpenKey(HKEY_LOCAL_MACHINE, str, &hRegKey) != ERROR_SUCCESS) 

		bResult=FALSE;

	else

	{

		if(bAppend){

			CString oldValue=_T("");

			DWORD size;

			::RegQueryValueEx(hRegKey,key,NULL,NULL,(BYTE *)oldValue.GetBuffer(1024),&size);

			oldValue.ReleaseBuffer();

			if(oldValue.Find(value)!=-1){

				//已经写过

				return TRUE;

			}

			value = value+_T(";")+oldValue;

		}

		bResult=(::RegSetValueEx( hRegKey,

			key,

			0,

			REG_SZ,

			(CONST BYTE *)value.GetBuffer(0),

			value.GetLength()*sizeof(TCHAR) ) != ERROR_SUCCESS);

	}		

	return bResult;

}



// COraSetupApp 初始化



BOOL COraSetupApp::InitInstance()

{

	// 如果一个运行在 Windows XP 上的应用程序清单指定要

	// 使用 ComCtl32.dll 版本 6 或更高版本来启用可视化方式，

	//则需要 InitCommonControlsEx()。否则，将无法创建窗口。

	INITCOMMONCONTROLSEX InitCtrls;

	InitCtrls.dwSize = sizeof(InitCtrls);

	// 将它设置为包括所有要在应用程序中使用的

	// 公共控件类。

	InitCtrls.dwICC = ICC_WIN95_CLASSES;

	InitCommonControlsEx(&InitCtrls);



	CWinApp::InitInstance();



	// 标准初始化

	// 如果未使用这些功能并希望减小

	// 最终可执行文件的大小，则应移除下列

	// 不需要的特定初始化例程

	// 更改用于存储设置的注册表项

	// TODO: 应适当修改该字符串，

	// 例如修改为公司或组织名

	SetRegistryKey(_T("应用程序向导生成的本地应用程序"));



	CString path = GetMyPath();

	TCHAR driver[255],dir[255];



	_tsplitpath(path.GetBuffer(0),driver,dir,NULL,NULL);

	path.ReleaseBuffer();



	//去年最后的

	//我看人家的都不放



	path = driver;

	path += dir;

	path = path.TrimRight(_T("\\"));



	SetEnv(_T("TNS_ADMIN"), path);

	SetEnv(_T("Path"), path,TRUE);

	SetEnv(_T("NLS_LANG"), _T("SIMPLIFIED CHINESE_CHINA.ZHS16GBK"));



	return FALSE;

	/*

	COraSetupDlg dlg;

	m_pMainWnd = &dlg;

	INT_PTR nResponse = dlg.DoModal();

	if (nResponse == IDOK)

	{

	// TODO: 在此处放置处理何时用“确定”来关闭

	//  对话框的代码

	}

	else if (nResponse == IDCANCEL)

	{

	// TODO: 在此放置处理何时用“取消”来关闭

	//  对话框的代码

	}



	// 由于对话框已关闭，所以将返回 FALSE 以便退出应用程序，

	//  而不是启动应用程序的消息泵。

	return FALSE;

	*/

}
下载请到我的网络硬盘。