FindFirstでリソース不足に陥る (ID:39215)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Delphi2010pro、WinXP環境 FindFirstを使用し該当するファイル情報を取得する処理ですが 処理量が多いと「システムリソースが足りません」と表示されます。 FindFirstに関していろいろ情報がありますが、この動作は未解決のままなのでしょうか var sr : TSerchRec; FileAttrs : Integer; begin if FindFirst(P, FileAttrs, sr) = 0 then begin repeat : until FindNext(sr) <> 0; end; //if FindClose(sr);