ProcessMessages; // 加這行即時回應stop end; // while end finally FindClose(SRec); end; //--- 找子目錄層if subYes then begin Status := FindFirst(sDir + '*.
確定！ 回上一頁
