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

И снова про копирование файлов, правда теперь по сетке.   Найти похожие ветки 

 
Толик ©   (2002-05-07 14:19) [0]

Уважаемые мастера. Проблема в следующем:
исходный файл имеет путь, типа
const
Source: pchar = "\\server\host$\folder\file.exe",с доступом только для пользователей ADMIN, для доступа к этому пользователем USER файлу используется:
hSource := CreateFile(Source, GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
в результате чего получается
hSource = INVALID_HANDLE_VALUE.
Подскажите пожалуйста, как обойти эту проблему без перелогинивания или подмапливания диска. Возможно ли такое вообще?


 
Song ©   (2002-05-07 14:33) [1]

Надо программно расшаривать диск. Пароль известен программе?


 
Толик ©   (2002-05-07 14:57) [2]

Да, пароль известен, но подмаппивать диск не хотелось бы. А есть какие-нибудь варианты без подмаппивания диска?


 
Reindeer Moss Eater   (2002-05-07 15:14) [3]

WnetAddConnection(PChar(RemoteName),PChar(Password),nil);


 
panov ©   (2002-05-07 15:15) [4]

var
fHandle: Integer;
fName: String;
begin
fName := "\\Panov\i\out.log";
fHandle := FileOpen(fName,fmOpenRead);
if fHandle = -1 then ShowMessage("Error")
else
begin
ShowMessage("Ok");
FileClose(fHandle);
end;


 
Reindeer Moss Eater   (2002-05-07 15:21) [5]

> panov ©
Если логон на ресурс уже был, этот код сработает, иначе надо делать логон


 
Толик ©   (2002-05-07 16:40) [6]

to Reindeer Moss Eater:
Не хотелось бы, чтобы пользователь USER имел доступ к ресурсу ADMIN"а даже на время копирования файлов. Никак иначе?

to panov ©:
как и ожидалось fHandle = -1

Вопрос скорее всего в использовании дескрипторов безопасности. Кто-нибудь с этими зверями работал?


 
Reindeer Moss Eater   (2002-05-07 16:46) [7]

Хочется файл, лежащий на админском ресурсе, но не хочется отдавать права на него.

Ну тогда отдавай юзеру этот файл не используя "клиента для сетей Майкрософт"



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

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



Память: 0.46 MB
Время: 0.009 c
14-64826
J_S
2002-04-10 15:23
2002.05.20
Помогите идентифицировать вирус


1-64671
anod
2002-05-05 20:16
2002.05.20
DragDrop в ListView


1-64605
3asys
2002-05-07 16:42
2002.05.20
Изменение размеров компонент в run-time


3-64511
Гаврик
2002-04-23 12:38
2002.05.20
Работа с Interbase базами напрямую без IBServer и BDE.


14-64784
Pete
2002-04-09 08:43
2002.05.20
Оптимизация...




   Наверх