Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];




Вниз

Пожалуйста помогите чайнику! 


daosv   (2001-12-26 13:23) [0]

Как сделать так, чтоб приложение, находящееся на одном сетевом диске скидывало данные в фаил на другом (буквы дисков могут при подклячении меняться-то f,то g, или другие). А еще надо так чтоб эта программа запускалась с задержкой на каждом компьюторе от последнего запуска(1-сразу, 2-й через 5мин., 3-й через 5 мин. после 2-го). Подскажите как это сделать и где об этом можног посмотреть(в сетях я чайник);



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);

///////////////////////////////////////



разбирайся сам обяснять небуду!




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.014 c
1-32466           KiD                   2002-02-21 19:03  2002.03.11  
Как организовать вывод чисел по возрастанию(убыванию)?


7-32584           Nickolaus             2001-12-05 22:03  2002.03.11  
ПОМОГИТЕ! ! ! Кто-нибудь что-нибудь слышал о записи на CD-RW


4-32603           Burmistroff           2002-01-10 23:54  2002.03.11  
Список thread ов в WinNT


6-32525           ShaH                  2001-12-26 10:32  2002.03.11  
Проблема с соединением сокетов


6-32524           Delphimun             2001-12-24 11:03  2002.03.11  
Поиск файлов в локальной сети