Informationen eines Netzlaufwerks speichern

[ringli]

Hiermit funktioniert das Mounten eines Netzwerklaufwerkes ohne Benutzer / Passwort. Stand gestern vor dem gleichen Problem und hab hier im Forum die Lösung gefunden.

Delphi-Quellcode:

{*** Netzlaufwerk verbinden (ohne Passwort) ***}
function ConnectNetDrive(_locDrive, _netPath: string;
                         RestoreAtLogon: Boolean): DWORD;
var
  nRes: TNetResource;
  dwFlags: DWORD;
begin
  { NetRessource mit #0 füllen => Keine unitialisierte Werte }
  FillChar(NRes, SizeOf(NRes), #0);
  nRes.dwType := RESOURCETYPE_DISK;
  { Laufwerkbuchstabe und Netzwerkpfad setzen }
  nRes.lpLocalName  := PChar(_locDrive);
  nRes.lpRemoteName := PChar(_netPath); { Example: \\Test\C }
  { Überprüfung, ob gespeichert werden soll }
  if RestoreAtLogon then
    dwFlags := CONNECT_UPDATE_PROFILE and CONNECT_INTERACTIVE   
  else
    dwFlags := CONNECT_INTERACTIVE;

  Result := WNetAddConnection3(Application.Handle, nRes,
                               nil, nil, dwFlags);
end;