Пожалуйста помогите чайнику! [D3, D5, Win95/98]
daosv © (2001-12-26 13:23:00)
Как сделать так, чтоб приложение, находящееся на одном сетевом
диске скидывало данные в фаил на другом (буквы дисков могут при
подклячении меняться-то f,то g, или другие). А еще надо так чтоб
эта программа запускалась с задержкой на каждом компьюторе от
последнего запуска(1-сразу, 2-й через 5мин., 3-й через 5 мин. после
2-го). Подскажите как это сделать и где об этом можног посмотреть(в
сетях я чайник);
ekap (2001-12-26 13:43:00) [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);
///////////////////////////////////////
разбирайся сам обяснять небуду!
Наверх 
ЧАТ |
Орешник |
|
