FTP客户端VC实现

/****************************************************************/
/*																*/
/*  AboutDlg.cpp												*/
/*																*/
/*  Implementation of the CAboutDlg class.						*/
/*																*/
/*  Programmed by Pablo van der Meer							*/
/*  Copyright Pablo Software Solutions 2002						*/
/*	http://www.pablovandermeer.nl								*/
/*																*/
/*  Last updated: 15 may 2002									*/
/*																*/
/****************************************************************/


#include “stdafx.h“
#include “ftpwanderer.h“
#include “AboutDlg.h“

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


CAboutDlg::CAboutDlg（CWnd* pParent /*=NULL*/）
	: CDialog（CAboutDlg::IDD pParent）
{
	//{{AFX_DATA_INIT（CAboutDlg）
		// NOTE: the ClassWizard will add member initialization here
	//}}AFX_DATA_INIT
}


void CAboutDlg::DoDataExchange（CDataExchange* pDX）
{
	CDialog::DoDataExchange（pDX）;
	//{{AFX_DATA_MAP（CAboutDlg）
	DDX_Control（pDX IDC_STATIC_MAIL m_Maillink）;
	DDX_Control（pDX IDC_STATIC_link m_HomePagelink）;
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP（CAboutDlg CDialog）
	//{{AFX_MSG_MAP（CAboutDlg）
	//}}AFX_MSG_MAP
END_MESSAGE_MAP（）


/********************************************************************/
/*																	*/
/* Function name : OnInitDialog										*/
/* Description   : Initialize dialog.								*/
/*																	*/
/********************************************************************/
BOOL CAboutDlg::OnInitDialog（） 
{
	CDialog::OnInitDialog（）;
	
	m_Maillink.SetURL（“mailto:info@pablovandermeer.nl“）;
	m_HomePagelink.SetURL（“http://www.pablovandermeer.nl“）;

    CString strExeName = AfxGetApp（）->m_pszExeName;
    strExeName += “.exe“;

	UpdateVersionInformation（strExeName）;
	return TRUE; 
}


/********************************************************************/
/*																	*/
/* Function name : UpdateVersionInformation							*/
/* Description   : Show version information from resource.			*/
/*																	*/
/********************************************************************/
void CAboutDlg::UpdateVersionInformation（LPCTSTR lpszModuleName）
{
	BYTE		*pDataBlock = NULL;
	DWORD FAR	*translation;
	DWORD FAR	*buffer;     
	DWORD		dwHandle;
	UINT		nBytes;
	
	// WinAPI wants non-const arguments
	LPTSTR lpszExeName = const_cast（lpszModuleName）; 

	char szName[512];       // StringFileInfo data block.
	char szData[256];

	// Get the actual size of the information block.
	nBytes = （UINT）GetFileVersionInfoSize（lpszExeName &dwHandle）;

	if （nBytes）
	{
		pDataBlock = new BYTE[nBytes];

		// Get the actual block for the version information
		if （GetFileVersionInfo（lpszExeName dwHandle nBytes pDataBlock））
		{
			if （VerQueryValue（pDataBlock “\VarFileInfo\Translation“ （VOID FAR * FAR *）&translation （UINT FAR *）&nBytes）） 
			{
				// The File Version for t

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       3441  2007-04-05 21:17  FTPWandererAboutDlg.cpp

     文件       1162  2002-05-14 20:07  FTPWandererAboutDlg.h

     文件       4345  2002-07-12 16:19  FTPWandererColorListBox.cpp

     文件       1390  2002-03-29 16:55  FTPWandererColorListBox.h

     文件      19225  2002-07-12 16:41  FTPWandererConnectDlg.cpp

     文件       2043  2002-07-08 20:05  FTPWandererConnectDlg.h

     文件       4722  2002-07-12 16:41  FTPWandererConnectionOptions.cpp

     文件       1509  2002-05-12 13:42  FTPWandererConnectionOptions.h

     文件      17555  2017-02-10 10:27  FTPWandererDebugAboutDlg.obj

     文件      15742  2017-02-10 10:27  FTPWandererDebugColorListBox.obj

     文件      73627  2017-02-10 10:27  FTPWandererDebugConnectDlg.obj

     文件      25037  2017-02-10 10:27  FTPWandererDebugConnectionOptions.obj

     文件      50285  2017-02-10 10:27  FTPWandererDebugDownloadThread.obj

     文件      81185  2017-02-10 10:27  FTPWandererDebugFTPListView.obj

     文件      20256  2017-02-10 10:27  FTPWandererDebugFtpSite.obj

     文件      25950  2017-02-10 10:27  FTPWandererDebugFTPTreeView.obj

     文件     610416  2017-02-10 10:27  FTPWandererDebugFTPWanderer.exe

     文件    1186920  2017-02-10 10:27  FTPWandererDebugFTPWanderer.ilk

     文件      25049  2017-02-10 10:27  FTPWandererDebugFTPWanderer.obj

     文件    6226568  2017-02-10 10:27  FTPWandererDebugFTPWanderer.pch

     文件     943104  2017-02-10 10:27  FTPWandererDebugFTPWanderer.pdb

     文件     203480  2017-02-10 10:26  FTPWandererDebugFTPWanderer.res

     文件      18145  2017-02-10 10:27  FTPWandererDebugFTPWandererDoc.obj

     文件      24687  2017-02-10 10:27  FTPWandererDebugGeneralOptions.obj

     文件      22197  2017-02-10 10:27  FTPWandererDebugGeneralPage.obj

     文件      15346  2017-02-10 10:27  FTPWandererDebugGoToFolderDlg.obj

     文件      35594  2017-02-10 10:27  FTPWandererDebugHistoryCombo.obj

     文件      19226  2017-02-10 10:27  FTPWandererDebugInfobarCtrl.obj

     文件     239229  2017-02-10 10:27  FTPWandererDebugMainFrm.obj

     文件      25116  2017-02-10 10:27  FTPWandererDebugMyInternetSession.obj

............此处省略114个文件信息