Скачать: 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 вся ветка

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



Память: 0.45 MB
Время: 0.014 c