Zugriff auf Netzwerkpfad per User-Anmeldung

[Harry Stahl]

Danke Uwe, das waren die richtigen Stichworte.

Hab es jetzt so gelöst:

Delphi-Quellcode:

function ConnectWithNetPath (netpath: string): boolean;
var
  BufferSize, ResultFlag: DWORD; NetResource: TNetResource;
begin
  Result := True;

  if not directoryexists (netpath) then begin
    NetResource.dwType := RESOURCETYPE_DISK;
    NetResource.lpLocalName := nil;
    NetResource.lpRemoteName := PChar (netpath);
    NetResource.lpProvider := nil;

    Result := WNetUseConnection(Application.MainForm.handle, NetResource, nil, nil, CONNECT_INTERACTIVE or
      CONNECT_PROMPT, nil, BufferSize, ResultFlag) = NO_ERROR;
  end;

end;

procedure TForm23.bnConncetClick(Sender: TObject);
begin
  if ConnectWithNetPath (edNetpath.Text) then begin
    // do whatever needed
  end;
end;

Zwar muss ich einige Sekunden warten, bis "DirectoryExists" aufgibt, aber das ist Ok.