1,593
社区成员
发帖
与我相关
我的任务
分享
var
searchRec:TsearchRec;
while (FindNext(SearchRec) = 0) do
begin
if IsValidDir(SearchRec) then
showmessage(SearchRec.Name);
// subdir1.Add(SearchRec.Name);
end;
FindClose(SearchRec);