Вниз
Скачать: 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.025 c
14-1128150125
Старшеклассник
2005-10-01 11:02
2005.10.23
Чего ждет ослик?


1-1128086320
nikolas
2005-09-30 17:18
2005.10.23
Модуль не доступен для отладки


2-1127745802
Spinu Oleg
2005-09-26 18:43
2005.10.23
TListBox


3-1126478574
DimonS
2005-09-12 02:42
2005.10.23
Почему не происходит кэширование в UpdateSQL?


2-1128240507
kami
2005-10-02 12:08
2005.10.23
Свой Hint файла в Explorer-e




   Наверх