Скачать: CL | DM;

копирование по сети файлов   Найти похожие ветки 

← →
integery   (2005-09-08 16:57) [0]

пробую копировать файл , и не копируетса
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) [1]

wnetaddconnection

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.023 c