Сетевые диски

← →
cypher © (2002-06-26 00:06) [0]

Функция WNetConnectionDialog вызывает диалог подключения сетевого диска, а как подключить диск, имя нужный путь? Т.е.как вызвать эту функцию, с уже заполненым путем?! (как если в сетевом окпужении на папке удаленной кликнуть "Подключить...")

← →
jedi © (2002-06-26 00:10) [1]

WNetAddConnection
WNetAddConnection2
WNetAddConnection3
WNetCancelConnection
WNetCancelConnection2

← →
RV (2002-06-26 15:18) [2]

procedure FileCopy( Const sourcefilename, targetfilename: String );
var
S, T: TFileStream;
begin
S:=TFileStream.Create( sourcefilename, fmOpenRead );
try
T := TFileStream.Create( targetfilename, fmOpenWrite or fmCreate );
try
T.CopyFrom(S, S.Size ) ;
finally
T.Free;
end;
finally
S.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
NetResource: TNetResource;
begin
{ заполняем структуру TNetResource }
NetResource.dwType := RESOURCETYPE_DISK;
NetResource.lpLocalName := "S:";
NetResource.lpRemoteName := "\\RV\temp";
NetResource.lpProvider := "";
{ подключаем сетевой ресурс, используя структуру TNetResource }
If ( WNetAddConnection2(NetResource, "", {Password (if needed) or empty}
"RV", {User name (if needed) or empty}
CONNECT_UPDATE_PROFILE)<>NO_ERROR)
Then ;
//Raise Excepcion.Create("unable to map drive")
//так же существуют другие константы для определения возникшей ошибки
//ERROR_ACCESS_DENIED, ERROR_ALREADY_ASSIGNED, и т.д.
// end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if WNetCancelConnection2("S:",CONNECT_UPDATE_PROFILE,TRUE) <> NO_ERROR
then ;
// Raise Exception.create("Error disconnecting map drive");
//соответственно можно использовать другие константы для определения ошибки
//ERROR_DEVICE_IN_USE, ERROR_NOT_CONNECTED, и т.д.
// end;
end;

procedure TForm1.Button3Click(Sender: TObject);
function IsDriveReady(DriveLetter : char) : bool;
var
OldErrorMode : Word; OldDirectory : string;
begin
OldErrorMode := SetErrorMode(SEM_NOOPENFILEERRORBOX);
GetDir(0, OldDirectory);
{$I-}
ChDir(DriveLetter + ":\");
{$I+}
if IoResult <> 0 then Result := False
else Result := True;
ChDir(OldDirectory);
SetErrorMode(OldErrorMode);
end;
begin
if IsDriveReady("S") then FileCopy("file.txt","s:\copy.txt");
end;

Сэнькс!

Сетевые диски Найти похожие ветки