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

← →
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

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