Se connecter à un lecteur réseau

procedure TForm1.Button1Click(Sender: TObject);
begin
//affiche la boite de dialogue
if WNetConnectionDialog(Handle, RESOURCETYPE_DISK) = NO_ERROR then
begin
ShowMessage('New connection successful set.');
end;
end;