开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 多显示器编程 > 查看源码
Unit1.cpp
资源名称：第6章 多线程编程.rar　[点击查看]
上传用户：gyjjlc
上传日期：2013-03-29
资源大小：2124k
文件大小：3k
源码类别：

多显示器编程

开发平台：

C++ Builder

Unit1.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. #include "Unit1.h"
  5. //---------------------------------------------------------------------------
  6. #pragma package(smart_init)
  7. #pragma link "PBFolderDialog"
  8. #pragma resource "*.dfm"
  9. TForm1 *Form1;
  10. //---------------------------------------------------------------------------
  11. __fastcall TForm1::TForm1(TComponent* Owner)
  12.     : TForm(Owner)
  13. {
  14.     RemoveFromFiles=false;
  15. }
  16. //---------------------------------------------------------------------------
  17. bool __fastcall TForm1::FindFile(AnsiString FileName,AnsiString SeekText)
  18. {
  19.     WIN32_FIND_DATA FindFileData;
  20.     AnsiString str=FileName.SubString(FileName.Length(),1);
  21.     if(str==".")return true;
  22.     if(str!="\")FileName+="\";
  23.     str=FileName+AnsiString("*.*");
  25.     HANDLE hFile=FindFirstFile(str.c_str(),&FindFileData);
  27.     while(hFile)
  28.     {
  29.         str=FileName+FindFileData.cFileName;
  30.         if((FindFileData.dwFileAttributes&0x00ff)==0x20)
  31.         {
  32.             if(LocateFile(str,SeekText))Memo2->Lines->Add(str);
  33.         }
  34.         else if((FindFileData.dwFileAttributes&0x00ff)==0x10)
  35.         {
  36.             FindFile(str,SeekText);
  37.         }
  38.         if(FindNextFile(hFile,&FindFileData)==false)
  39.         {
  40.             break;
  41.         }
  42.     }
  43. return true;
  44. }
  45. //---------------------------------------------------------------------------
  46. bool __fastcall TForm1::LocateFile(AnsiString FileName,AnsiString SeekText)
  47. {
  49.     TFileStream * pFile=new TFileStream(FileName,fmOpenRead);
  50.     char *buffer=new char[pFile->Size];
  51.     pFile->Read(buffer,pFile->Size);
  53.     AnsiString str=AnsiString(buffer,pFile->Size);
  54.     delete buffer;
  55.     int RetCode=str.AnsiPos(SeekText);
  56.     if(RemoveFromFiles)
  57.     {
  58.         while(RetCode>0)
  59.         {
  60.             str.Delete(RetCode,SeekText.Length());
  61.             RetCode=str.AnsiPos(SeekText);
  62.         }
  63.         delete pFile;
  64.         TFileStream * pFile=new TFileStream(FileName,fmCreate);
  65.         pFile->Write(str.c_str(),str.Length());
  66.         delete pFile;
  67.         return true;
  68.     }
  69.     delete pFile;
  70.     if(RetCode>0)
  71.         return true;
  72.     return false;
  73. }
  74. //---------------------------------------------------------------------------
  75. void __fastcall TForm1::Button1Click(TObject *Sender)
  76. {
  77.     Memo2->Lines->Clear();
  78.     FindFile(Edit1->Text,Memo1->Lines->Text.SubString(1,Memo1->Lines->Text.Length()-2));
  79.     Label4->Caption=Memo2->Lines->Count;
  80. }
  82. void __fastcall TForm1::Button2Click(TObject *Sender)
  83. {
  84.     RemoveFromFiles=true;
  85.     Button1Click(this);
  86.     RemoveFromFiles=false;
  87. }
  88. //---------------------------------------------------------------------------
  90. void __fastcall TForm1::Button3Click(TObject *Sender)
  91. {
  92.     Close();    
  93. }
  94. //---------------------------------------------------------------------------
  96. void __fastcall TForm1::Button4Click(TObject *Sender)
  97. {
  98. //    PBFolderDialog1->Folder="C:\Windows\Desktop";
  99.     if(PBFolderDialog1->Execute())
  100.         Edit1->Text=PBFolderDialog1->Folder;
  102. }
  103. //---------------------------------------------------------------------------