Hallo,
ich schlage dir folgende Anpassung zur genaueren Analyse vor:
Delphi-Quellcode:
function ConnectNetworkDrive(const ADrive: string; const ADirectory, AUsername, APassword: string;
const ARestoreAtLogon: Boolean; var ErrCode: Cardinal): Boolean;
begin
// alles gleich wie bei Dir
ErrCode := WNetAddConnection2(NetResource, lPwd, lUser, dwFlags);
result := ErrCode = NO_ERROR;
end;
// ----
if not ConnectNetworkDrive('T:', '\\server-ad\ad','Nutzer','Passwort',false, err) then
begin
showmessage('Verbindungsfehler zum Netzwerk. Bitte wiederholen. Fehlercode: ' + IntToStr(err) + ' Fehlermeldung: ' + SysErrorMessage(err));
exit;
end;
Bei mir funktioniert es übrigens. Allerdings lasse ich Benutzername und Passwort leer, da bereits andere Verbindungen zum Server existieren. (Win7 Ultimate 32Bit / Delphi 2007)
Gruß, Chris