使用方法.txt

来自「FTP探索工具源代码,内涵测试以及详细说明。」· 文本 代码 · 共 52 行

======================MFC使用方法============================================================

CString CPageApp::OSVer()
{
	OSVERSIONINFOEX os;
	::ZeroMemory(&os,sizeof(os));
	os.dwOSVersionInfoSize=sizeof(os);
	::GetVersionEx(reinterpret_cast<LPOSVERSIONINFO>(&os));

	if(os.dwPlatformId==VER_PLATFORM_WIN32_NT && os.dwMajorVersion >=5)
	{
		if(os.dwMinorVersion==0)
			return "Win2000";
		else
			return "WinXP";
	}
	
	if(os.dwPlatformId ==VER_PLATFORM_WIN32_WINDOWS)
		return "Win9x";
}

void CDDlg::OnButton1() 
{
	if(this->OSVer()!="WinXP")
	{
		typedef BOOL  (WINAPI *pClassXP)(HWND,BOOL);
		HINSTANCE hInst=NULL;
		hInst=::LoadLibrary("ClassXP.dll");
		if (hInst)
		{
			pClassXP pFunc= (pClassXP)GetProcAddress (hInst,"ClassXP");
			pFunc(NULL,TRUE);		
		}
	}

}




================================VB使用方法==================================================

Private Declare Function ClassXP Lib "ClassXP.dll" (ByVal hWnd As Long, ByVal dwFlags As Long) As Long

Private Sub Form_Load()
    ClassXP 0, 1
End Sub

Private Sub Form_Unload(Cancel As Integer)   
    ClassXP 0, 0   ' 如果是 CXPW_THREAD 方式，请确保推出之前要 Disable 掉 ClassXP
End Sub