DirectoryExists im Netzwerk will nicht wie ich

[roga]

Wie Bernhard bereits schrieb, über den Windows Explorer erfolgt das Login automatisch. Ich habe auch eine Weile nach einer Lösung gesucht:

Delphi-Quellcode:

function ConnectToNetwork(NetPath: WideString): DWORD;
var
  NetResource: TNetResourceW;
begin
  // Abschließendes "\" aus NetPath entfernen!
  if NetPath[Length(NetPath)] = '\' then Delete(NetPath, Length(NetPath), 1);
  ZeroMemory(@NetResource, SizeOf(TNetResource));
  with NetResource do
  begin
    dwType := RESOURCETYPE_ANY;
    lpLocalName := nil;
    lpRemoteName := PWideChar(NetPath);
    lpProvider := nil;
  end;
  Result := WNetAddConnection2W(NetResource, nil, nil, CONNECT_INTERACTIVE);
end;

Vorher wird noch geprüft, ob es sich um ein Netzwerkverzeichnis handelt:

Delphi-Quellcode:

if Copy(DBPath, 1, 2) = '\\' then
begin
  if ConnectToNetwork(DBPath) <> 0 then
    // keine Verbindung zum Netzwerkordner
  ...
end;

Ich hoffe, ich konnte Dir weiterhelfen.

roga