Ist doch auch logisch das der Code nicht funktioniert, oder?
Versuche es doch mal so, vielleicht fällt dir was auf!
Delphi-Quellcode:
procedure NetzlaufwerkVerbinden;
var
NetResource: TNetResource;
dwFlags: DWORD;
Laufwerk, Pfad, Username, Password : String;
Verbunden : Boolean;
begin
Laufwerk := 'x:';
//Pfad := '\\Rechnername\FreigabeOrdner';
Pfad := '\\127.0.0.1\C$';
Username := 'administrator';
Password := ********';
NetResource.dwType := RESOURCETYPE_DISK;
NetResource.lpLocalName := PChar(Laufwerk);
NetResource.lpRemoteName := PChar(Pfad);
NetResource.lpProvider := nil;
dwFlags := 0;
Verbunden := WNetAddConnection2(NetResource, PChar(Password),
PChar(Username),dwFlags) = NO_ERROR;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
NetzlaufwerkVerbinden;
end;