Erkennung, Netzlaufwerk nicht korrekt verbunden

[hhcm]

Hallo,

das Problem hat sicherlich schon jeder mal gehabt.
Wie man ein "kaputtes" Netzlaufwerk erkennen kann weiß ich leider nicht.
Ich bügel einfach vor dem Zugriff eine erneute Anmeldung drüber.
Seit dem habe ich keinen ärger mehr.

Delphi-Quellcode:

function ConnectNetworkDrive(const ADrive: String;
  const ADirectory, AUsername, APassword: String;
  const ARestoreAtLogon: Boolean): Boolean;
var
  NetResource: TNetResource;
  dwFlags: DWORD;
  lPwd, lUser: PChar;
begin
  NetResource.dwType := RESOURCETYPE_DISK;
  NetResource.lpLocalName := PChar(ADrive);
  NetResource.lpRemoteName := PChar(ADirectory);
  NetResource.lpProvider := nil;

  if ARestoreAtLogon then
    dwFlags := CONNECT_UPDATE_PROFILE
  else
    dwFlags := 0;

  if AUsername <> '' then
    lUser := PChar(AUsername)
  else
    lUser := nil;

  if APassword <> '' then
    lPwd := PChar(APassword)
  else
    lPwd := nil;

  Result := WNetAddConnection2(NetResource,
    lPwd,
    lUser,
    dwFlags) = NO_ERROR;
end;