DotNet4应用程序打包工具->升级版【三】宿主程序分析+全部源码下载

索引

DotNet4应用程序打包工具->升级版【三】宿主程序分析 全部源码下载

DotNet4应用程序打包工具->升级版【二】安装工具分析

DotNet4应用程序打包工具（把DotNet4安装程序打包进你的应用程序；WINAPI开发，无dotNet环境也可顺利执行）【一】整体思路

废话少说

入口函数

入口函数是所有逻辑的集合体

代码语言：javascript复制

int WinMain(HINSTANCE hInstance,HINSTANCE hPreInstance,LPSTR lpCmdLine,int nCmdShow)
{
	int result;
	LPCTSTR netName = ".net4.exe";
	LPCTSTR tarName = ".tar.exe";
	result = CheckDotNet4();
	if(result == 0)
	{		
		result = FreeRC(MAKEINTRESOURCE(1012),netName);
		if(result == 0)
		{
			Alert("没有成功释放预装工具~安装失败");
			return 0;
		}
		result = CreateInstallProcess(netName);
		if(result == 0)
		{
			Alert("没有成功启动预装工具进程~安装失败");
			ClearFile(netName);
			return 0;
		}
		//暂时不支持静默安装
		//result = InstallIt();
		result = CheckDotNet4();
		if(result == 0)
		{
			Alert("没有成功安装预装工具~安装失败");
			ClearFile(netName);
			return 0;
		}
	}
	result = FreeRC(MAKEINTRESOURCE(1001),tarName);
	if(result == 0)
	{
		Alert("没有成功释放应用程序~安装失败");
		ClearFile(netName);
		ClearFile(tarName);
		return 0;
	}
	result = CreateInstallProcess(tarName);
	if(result == 0)
	{
		Alert("没有成功启动应用程序进程~安装失败");
	}
	ClearFile(netName);
	ClearFile(tarName);
	return 0;
}

判断目标环境是否有相关的注册表项

先从资源里提取出注册表项

然后判断

代码语言：javascript复制

int CheckDotNet4()
{
	HMODULE hInstance = ::GetModuleHandle(NULL);
    HRSRC hResID = ::FindResource(hInstance,MAKEINTRESOURCE(1039),RT_RCDATA); 
    HGLOBAL hRes = ::LoadResource(hInstance,hResID);
    LPVOID pRes = ::LockResource(hRes);
	DWORD dwResSize = ::SizeofResource(hInstance,hResID);
	int length = MAX_PATH   1;
	if(!dwResSize) 
	{
		return 0;
	}
	length = (int)dwResSize;
	TCHAR  regeditStr[MAX_PATH   1];
	memcpy(regeditStr,pRes,dwResSize);
	regeditStr[dwResSize] = 0;
	HKEY ck;
	int result = 1;
	if(ERROR_SUCCESS != RegOpenKeyEx(HKEY_LOCAL_MACHINE,regeditStr,0,KEY_ALL_ACCESS,&ck))
	{       
		Alert("您的系统中缺少应用程序执行的环境n现在开始为您搭建该环境");
		result = 0;
	}
	RegCloseKey(ck);
	return result;
}

如果没有相关的注册表项

就要释放出想要预先安装的程序

读取资源

并把资源写入文件

代码语言：javascript复制

int FreeRC(LPCTSTR resourceID,LPCTSTR resourceName)
{    
    HMODULE hInstance = ::GetModuleHandle(NULL);
	TCHAR  szFilePath[MAX_PATH   1];
	GetPath(szFilePath,resourceName,hInstance);
    HRSRC hResID = ::FindResource(hInstance,resourceID,RT_RCDATA); 
    HGLOBAL hRes = ::LoadResource(hInstance,hResID);
    LPVOID pRes = ::LockResource(hRes);
    DWORD dwResSize = ::SizeofResource(hInstance,hResID);
	if(!dwResSize)
	{
		return 0;
	}
    HANDLE hResFile = CreateFile(szFilePath,GENERIC_WRITE,0,NULL,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,NULL);    
    DWORD dwWritten = 0;
    WriteFile(hResFile,pRes,dwResSize,&dwWritten,NULL);
    CloseHandle(hResFile);
    if(dwResSize == dwWritten);
	{
		return 1;
	}
	return 0;
}

成功释放之后

就执行这个程序

注意WaitForSingleObject的WINAPI

是等待进程退出

代码语言：javascript复制

//创建进程
int CreateInstallProcess(LPCTSTR resourceName)
{
	STARTUPINFO stinfo;
	ZeroMemory((void*)&stinfo,sizeof(STARTUPINFO));
	PROCESS_INFORMATION ProcessInfo;
	stinfo.cb = sizeof(STARTUPINFO);
	stinfo.dwFlags = STARTF_USESHOWWINDOW;
	stinfo.wShowWindow = SW_SHOW;//SW_SHOW  SW_HIDE
	TCHAR  szFilePath[MAX_PATH   1];
	GetPath(szFilePath,resourceName);//.dotnet4.exe
	int result = CreateProcess(szFilePath,NULL,NULL,NULL,false,0,NULL,NULL,&stinfo,&ProcessInfo);
	WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
	return result;        
}

如果进程没有被成功启动

就会删除释放的预安装程序

代码语言：javascript复制

int ClearFile(LPCTSTR resourceName)
{
	TCHAR  szFilePath[MAX_PATH   1];
	GetPath(szFilePath,resourceName);//.dotnet4.exe
	int result = ::DeleteFile(szFilePath);
	return result;
}

接着再次检查注册表项

result = CheckDotNet4();

如果仍旧没有相关的注册表项

那么说明预安装程序没有安装成功，退出程序

---------------------

至此，检查工作已经完成

入口函数里剩下的代码

是执行目标程序的工作

不在多做解释

代码语言：javascript复制

	result = FreeRC(MAKEINTRESOURCE(1001),tarName);
	if(result == 0)
	{
		Alert("没有成功释放应用程序~安装失败");
		ClearFile(netName);
		ClearFile(tarName);
		return 0;
	}
	result = CreateInstallProcess(tarName);
	if(result == 0)
	{
		Alert("没有成功启动应用程序进程~安装失败");
	}
	ClearFile(netName);
	ClearFile(tarName);

---------------------------

打包工具源码下载：BagDotNet_code.zip

宿主程序源码下载：CheckDotNet_code.zip

打包 api .net

0 人点赞