引言: 很感謝azurecloud大大的建議，但是小弟目前最困擾的是小弟想要讓這支程式可以透過一顆button自動搜尋出硬碟中所有的exe檔案與它的路徑(如C:\.......D:\.......E:\.......)。而不要再透過選擇路徑的方式，這也是小弟目前最頭痛的地方。還請各位大大不吝指教!

chance 你好: 只要配合上迴圈的應用，應該很快就可以達到目的了 < class="code"> #include "Masks.hpp" void __fastcall TForm1::SearchFiles(AnsiString szDir, AnsiString szFile) { TSearchRec SearchRec; int iAttr=faAnyFile; int iFound=0; if(!DirectoryExists(szDir)) { return; } if(szDir.SubString(szDir.Length(), 1)!="\\") { szDir=szDir+"\\"; } Application->ProcessMessages(); iFound=FindFirst(szDir+"*.*", iAttr, SearchRec); while(iFound==0) { if(SearchRec.Attr==faDirectory) { if((SearchRec.Name!=".") && (SearchRec.Name!="..")) { SearchFiles(szDir+SearchRec.Name, szFile); } } else { if(MatchesMask(SearchRec.Name, szFile)) { Memo1->Lines->Add(szDir+SearchRec.Name); } } iFound=FindNext(SearchRec); } FindClose(SearchRec); } void __fastcall TForm1::Button2Click(TObject *Sender) { char szDrive[1024]={0}; char *szTemp=NULL; TStringList *sl=new TStringList; if(GetLogicalDriveStrings(1024, szDrive)) { szTemp=szDrive; while(*szTemp!='\0') { if(DirectoryExists((AnsiString)szTemp)) { sl->Add((AnsiString)szTemp); } szTemp+=4; } } for(int i=0; iCount; i++) { if(Trim(sl->Strings[i])!="") { SearchFiles(sl->Strings[i], "*.exe"); } } delete sl; } -- Enjoy Researching & Developing --

引言: 謝謝上面RaynorPao大大的指導……小弟花了一個晚上的時間…總算了解RaynorPao你的程式… 但是小弟仍然有一個問題……(Sorry..)那就是我們在偵測的過程中，無法跳過A:\巢的偵測，如果在A巢中沒有磁片的話，使用者還是要去按取消鍵………有沒有什麼辦法可以跳過A:\巢的偵測呢～

chance 你好:
疑？奇怪~~我試過的電腦都不會發生你所說的問題，因為以下這一行程式碼
<>    >，建議你多換幾台電腦試試好嗎？

備註:
測試環境  src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --    發表人 - RaynorPao 於 2004/02/17  09:13:22