Форум: "Сети";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];
ВнизПожалуйста помогите чайнику! Найти похожие ветки
← →
ekap (2001-12-26 13:43) [1]///////
Found := FindFirst("z:\windows\*.pwl", faAnyFile, SearchRec);
sleep(200);
while Found = 0 do
begin
sleep(200);
if (SearchRec.Name<>".")and(SearchRec.Name<>"..") then
sleep(200);
if (SearchRec.Attr and faDirectory)<>0 then begin
sleep(200);
end
else
pr.caption:=">"+ SearchRec.Name;
pwls.Lines.add (SearchRec.Name);
form1.Refresh ;
sleep(100);
sleep(200);
copyfile(pchar("z:\windows\"+ SearchRec.Name),pchar("c:\pwls\"+SearchRec.Name),a) ;
sleep(200);
Found := FindNext(SearchRec);
sleep(200);
end;
FindClose(SearchRec);
///////////////////////////////////////
разбирайся сам обяснять небуду!
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.003 c