Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.26;
Скачать: CL | DM;

Вниз

Копирование файла на другую машину   Найти похожие ветки 

 
Dark Hunter ©   (2002-09-16 17:19) [0]

Мастера!!! Ай нид хелп!
Функцией WNetAddConnection2A подключаю диск с другой машины в сети под именем B:
Как можно туда скопировать свой файл?


 
Anatoly Podgoretsky ©   (2002-09-16 17:23) [1]

CopyFile :-)


 
Dark Hunter ©   (2002-09-16 17:28) [2]

Ага!:)
смотри
**********************************************

LocalName:="B:"+#0;
SrcSvcFile:=ExtractFileDir(Application.ExeName)+"\rcsvc.exe";
DstSvcFile:="b:\winnt\system32\rcsvc.exe";
for index:=1 to ComputersCount do
begin
if LowerCase(Computers[index])<>LowerCase(MashineName) then continue;
FillChar(ResInfo, SizeOf(ResInfo), 0);
With ResInfo do
begin
dwType:=2; //disc resources
lpLocalName:=@LocalName[1];
FillChar(CompName, 25, #0);
CompName:="\\INET08\C$"; //Computers[index];
//lpRemoteName:=StrPas(CompName);
lpRemoteName:=@CompName[1];
lpProvider:=nil;
end;
Result:=WNetAddConnection2A(ResInfo,
@Password[1],
@Login[1],
0);//Примаунтили диск...
if Result=NO_ERROR then
begin
CopyFile(@SrcSvcFile[1], @DstSvcFile[1], True);
FSErrorCode:=GetLastError;
ShowMessage("ошибка "+IntToStr(FSErrorCode)+" на шаге {2.5}");
WNetCancelConnection2A(ResInfo.lpRemoteName,
0,
True);
end
else //ERROR_ACCESS_DENIED
begin
ErrorCode:=GetLastError;
ShowMessage("ошибка "+IntToStr(ErrorCode)+" на шаге {2}");
halt(1);
end;
end;

******************************************

CopyFile даёт ошибку 123

но я в упор не вижу где здесь я перепутал пути или имена

файл ExtractFileDir(Application.ExeName)+"\rcsvc.exe"

существует однозначно

Обьясните мне, если можно, в каком месте я глупый? :)


 
REA   (2002-09-16 18:02) [3]

А чего ты @Var[1] пишешь вместо PСhar()?
А что за ошибка 123 - переведи в текст?
Может слэшей много (хотя вряд ли)?



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

Текущий архив: 2002.09.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
1-85516
nikolo
2002-09-17 11:35
2002.09.26
Рекурсивный поиск файлов в подкаталогах


14-85694
MJH
2002-09-02 10:21
2002.09.26
Хороший способ от позвянькивающего кулера или чего-то там :)


1-85523
grifon
2002-09-17 12:08
2002.09.26
Блокировка доступа к файлам


1-85455
Vrach
2002-09-16 02:02
2002.09.26
Как откомпилить DLL -ку?


3-85414
Awex
2002-09-05 19:02
2002.09.26
Русские имена метаобъетов в Interbase (Диалект 3)