delphi - 使用 Delphi 通过网络连接到受密码保护的共享文件夹

Question

我有一个多用户Delphi程序，它需要通过网络共享文件夹来存储数据。我希望程序更改该文件夹中的文件，但不更改普通用户(可以看到该文件夹​​)或网络病毒...

我想使用密码保护此文件夹(Windows 7)，但我需要通过我的程序写入新文件或编辑现有文件，但我不知道如何执行此操作。

简单地说，我需要通过这样的代码连接和断开与共享文件夹的连接

ConnectToFolder(\\myServerMachine\mySharedfolder username:me password:myPassword);
disConnectToFolder(\\myServerMachine\mySharedfolder username:me password:myPassword);

这可能吗？

Answer 1

像这样的事情可能会成功

function ConnectShare(Drive, RemotePath, UserName, Password : String):Integer;
var
  NRW : TNetResource;
begin
  with NRW do
  begin
    dwType := RESOURCETYPE_ANY;
    if Drive <> '' then
      lpLocalName := PChar(Drive)
    else
      lpLocalName := nil;
    lpRemoteName := PChar(RemotePath);
    lpProvider := '';
  end;
  Result := WNetAddConnection2(NRW, PChar(Password), PChar(UserName), 0);
end;

function DisconnectShare(Drive : String):Integer;
begin
  Result := WNetCancelConnection2(PChar(Drive), 0, false);
end;