Problem mit Funktion WNetAddConnection2

[Mackhack]

Hi,

ich habe nochmal ne Frage hier:

mit meiner jetzigen Funktion die soweit so aussieht

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);
    if ( Result = 0 ) then
    begin
      ShowMessage('Error occurred: ' + SysErrorMessage(GetLastError) +
                   #10#13#10#13 + 'Error Code: 0x' + IntToHex(GetLastError, 8));
      Exit;
    end;
  end;
end;

bekomme ich bei (eigentlich) Erfolgreichem Login- und Verbindungsversuch die letzte ShowMessage um die Ohren gehauen mit dieser Meldung

[QUOTE
---------------------------
Keysearcher
---------------------------
Error occurred: Overlapped I/O operation is in progress


Error Code: 0x000003E5
---------------------------
OK
---------------------------
[/QUOTE]

und anschliessend kommt das richtige Ergebnis. Aufgerufen wird die Function so:

  if ( RegLoginAndConnectRegistry(foNetworkConnection.RemoteComputerName, Key, UsersKey, Username, Password) <> 0 ) then Danke!

[edit=Christian Seehase]Doppelpost gelöscht. Mfg, Christian Seehase[/edit]