11-06-2009, 04:05 PM
كيف اجعله يبحث في جميع الاماكن
كود :
var
searchResult : TSearchRec;
begin
if FindFirst(edit1.txt, faAnyFile, searchResult) = 0 then
begin
repeat
ShowMessage('File name = '+searchResult.Name);
ShowMessage('File size = '+IntToStr(searchResult.Size));
until FindNext(searchResult) <> 0;
FindClose(searchResult);
end;
end;