Netzwerkverbindung XP

[Harry M.]

da ist der code der nicht funzt

Code:

procedure NetzlaufwerkVerbinden;
var
   NetResource: TNetResource;
   dwFlags:     DWORD;
   Laufwerk, Pfad, Username, Password : String;
   Verbunden : Boolean;

begin
     NetResource.dwType := RESOURCETYPE_DISK;
     NetResource.lpLocalName := PChar(Laufwerk);
     NetResource.lpRemoteName := PChar(Pfad);
     NetResource.lpProvider := nil;
     dwFlags := 0;

     Laufwerk := 'x:';
     //Pfad := '\\Rechnername\FreigabeOrdner';
     Pfad := '\\127.0.0.1\C$';
     Username := 'administrator';
     Password := ********';

     Verbunden := WNetAddConnection2(NetResource, PChar(Password),
                  PChar(Username),dwFlags) = NO_ERROR;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  NetzlaufwerkVerbinden;
end;

und es passiert eben nichts, jedenfalls nichts sichtbares, und der debugger meldet sich auch nicht