| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

копирование по сети файлов [D7, Win2k, WinXP]

integery ©   (2005-09-08 16:57:00) 

пробую копировать файл , и не копируетса
procedure TForm1.sendfile(Fhost: string;pol:boolean);
var P1,P2:string;
begin
if pol then
  begin
   P1:='\\'+Trim(Fhost)+'\update\sysmon.msys ';
   P2:=ExtractFileDir(ParamStr(0)) + '\mon.msys';
   end
    else
     begin
      P1:='\\'+Fhost+'\update\monic.exe ';
      P2:=ExtractFileDir(ParamStr(0)) + '\monic.exe';
     end;
  if FileExists(p1) then CopyFile(pchar(P1),Pchar(P2),False) ;
end;

приложение запускаєтса сервисом, и сервис следит штоб приложение не закрилось

---

Reindeer Moss Eater   (2005-09-08 17:00:00) [1]

wnetaddconnection

---

Наверх