Problem mit Funktion WNetAddConnection2

[Mackhack]

Hallo DPler,

ich habe folgenden Code:

Delphi-Quellcode:

function TfoMain.RegLoginAndConnectRegistry(lpMachineName: String; hKey: HKEY;
           var phkResult: HKEY; User, Password: String): LongInt;
var
  lpNetResource: TNetResource;
begin
  with lpNetResource do
  begin
    dwType := RESOURCETYPE_ANY;
    lpLocalName := nil;
    lpProvider := nil;
    lpRemoteName:= PChar(lpMachineName + '\IPC$');
  end;
  Result := WNetAddConnection2(lpNetResource, PChar(Password), PChar(User), 0);
  if ( Result = NO_ERROR ) then
  begin
    Result := RegConnectRegistry(PChar(lpMachineName), hKey, phkResult);
  end
  else
  begin
    ShowMessage(SysErrorMessage(GetLastError));
  end;
end;

Wenn ich ihn ausfuehre hat Result 67 und somit OK! Ich bekomme aber die ShowMessage angezeigt und sobald ich sie mit OK wegklicke bekomme ihc mein richtiges Ergebnis.

Weis jemand warum?