Вниз
Скачать: CL | DM;

расшаренные папки   Найти похожие ветки 

 
Sash ©   (2005-09-29 07:28) [0]

Здравствуйте! как то нашел здесь пример с помощью которого можно копировать с расшаренных ресурсов нужный файл:

FillChar(frombuf,Sizeof(frombuf),0);
FillChar(tobuf,Sizeof(tobuf),0);
StrPCopy(frombuf,"\\"+ipnumber+"\roplog\zoc"+DataEdit.Text+".doc");
StrPCopy(tobuf,"e:\5ESS");
with OpStruc do
begin
Wnd:=Handle;
wFunc:=FO_COPY;
pFrom:=@frombuf;
pTo:=@tobuf;
fFlags:=FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:=False;
hNameMappings:=nil;
lpszProgressTitle:=nil;
end;
ShFileOperation(OpStruc);

расшаренная папка открыта на чтение без пароля. Сейчас возникла потребность поставить пароль на чтение. Скажите пожалуйста, есть ли возможность копировать файл? т.е. что надо добавить в код чтобы программка как то подставляла пароль и копировала нужный файл? Заранее благодарен!


 
BiN ©   (2005-09-29 09:57) [1]

The WNetAddConnection2 function makes a connection to a network resource. The function can redirect a local device to the network resource.
(С) MSDN


 
Sash ©   (2005-09-29 11:04) [2]

я не использую никаких компонентов, а WNetAddConnection2 как я понял это компонент.
можно поконкретней пожалуйста


 
BiN ©   (2005-09-29 11:07) [3]

Sash ©   (29.09.05 11:04) [2]

я не использую никаких компонентов, а WNetAddConnection2 как я понял это компонент.


неправильно понял. это функция.

можно поконкретней пожалуйста

msdn.com - там есть поиск


 
Sash ©   (2005-09-29 12:14) [4]

СПАСИБО


 
Sash ©   (2005-09-29 14:09) [5]

почитал и разобрался, спасибо BiN!



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

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



Память: 0.46 MB
Время: 0.024 c
2-1127846953
vvh
2005-09-27 22:49
2005.10.23
Базы данных и Интернет


3-1125980122
novikova
2005-09-06 08:15
2005.10.23
Не редактируется поле с LOOKUP


1-1128111902
Dot
2005-10-01 00:25
2005.10.23
StrToInt


1-1128327918
Yuri Btr
2005-10-03 12:25
2005.10.23
Текущая версия Delphi 2005


14-1128185779
BerkeleyMan
2005-10-01 20:56
2005.10.23
Полезная программа (информация о классе)




   Наверх