对本地文件查找并实现QQ本地在线验证登陆

//部分代码由麦子，和铁手提供，在此感谢！

//源码下载：https://download.csdn.net/download/lzksword/16591208

void __fastcall CrnFindFile(String strDir, String strFileExt, TStrings *pList)
{
    WIN32_FIND_DATA wfd;
    String strFileName;

    if (strDir.LastDelimiter("\\") != strDir.Length())
        strDir += "\\";

    HANDLE hFind = ::FindFirstFile((strDir + "*.*").c_str(), &wfd);

    if (INVALID_HANDLE_VALUE != hFind)
    {
        do
        {
            strFileName = String(wfd.cFileName);
            if (strFileName == "." || strFileName == "..")
                continue;

            // 如果是子目录就进入子目录搜索
            if (wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
                CrnFindFile(strDir + strFileName + "\\", strFileExt, pList);

            // 将指定扩展名的文件名加入到列表中
            //if (ExtractFileExt(strFileName).UpperCase() == strFileExt)
            //    pList->Add(strDir + strFileName);

            //将指定的文件名加入到列表中
            if (strFileName.UpperCase() == strFileExt)
                pList->Add(strDir + strFileName);
        }
        while(::FindNextFile(hFind, &wfd));
    }
    ::FindClose(hFind);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn1Click(TObject *Sender)
{

mmo1->Clear();
CrnFindFile("C:\\", "MSG3.0.DB", mmo1->Lines);   //查找QQ在线更新的消息文件时间路径

//可以对QQ路径进行匹配验证是否有QQ号码实现验证本地在线验证
TDateTime FileTime=TFile::GetLastWriteTime(mmo1->Text.Trim() );
mmo1->Lines->Append( FileTime.CurrentDateTime());
}