Netzwerkverbindung XP

[AppleFan]

So hatte ich es mir gedacht:

Delphi-Quellcode:

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;
     Username := '';
     Password := '';

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

end;

[edit=Luckie]Delphi-Tags ergänzt. Beim nächsten Mal bitte selber machen. Mfg, Luckie[/edit]