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