void __fastcall TForm1::SearchFiles(AnsiString Dir,AnsiString File)
{
 TSearchRec SearchRec;
 int iAttr=faAnyFile;
 int FileFound=0;
 int FileNumber=0;
 if(!DirectoryExists(Dir))
 {
  return;
 }
 if(Dir.SubString(Dir.Length(),1)!="\\")
 {
  Dir=Dir "\\";
 }
 Application->ProcessMessages();
 FileFound=FindFirst(Dir "*.*",iAttr,SearchRec);
  while(FileFound==0)
  {
   if(SearchRec.Attr==faDirectory)
   {
     if((SearchRec.Name!=".")&&(SearchRec.Name!=".."))
     {
      SearchFiles(Dir SearchRec.Name,File);
     }
   }
   else
   {
     if(MatchesMask(SearchRec.Name,File))
     {
      Memo1->Lines->Add(Dir SearchRec.Name);
      FileNumber  ;
     }
   }
   FileFound=FindNext(SearchRec);
  }
 FindClose(SearchRec);
}

引言:那你們知道如果開啟資料夾內的所有檔案嗎？

是[如果]還是[如何]? 我想您用< class="code">ShellExecute();應該就可以達到您要的效果 其使用方式站上有很多資料供您參考 順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～