Текущий архив: 2005.12.18;
Скачать: 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 вся ветка
Текущий архив: 2005.12.18;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.034 c
