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

← →
Толик (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]

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

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

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