[true]

Вот с WnetAddconnection пробывал может чтото нетак, пример нашел в интернете

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
WNetConnectionDialog(Handle,RESOURCETYPE_DISK) ;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
reg:TRegistry;
nr: NETRESOURCE;
lpLogin, lpPassword:PChar;
Begin
reg:=Tregistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);
reg.WriteString('Disk',Pchar((Application.ExeName)));
reg.CloseKey;
reg.Free;

ZeroMemory (@nr, SizeOf (nr));
lpLogin:=Pchar(Edit3.Text);
lpPassword:=Pchar(Edit4.Text);

  if Checkbox1.Checked  then
    nr.dwType := RESOURCETYPE_PRINT
     else
     nr.dwType := RESOURCETYPE_DISK;

nr.lpLocalName := Pchar(Edit1.Text);
nr.lpRemoteName := Pchar(Edit2.Text);
nr.lpProvider :='';
If WNetAddConnection2 (nr,lpLogin, lpPassword, CONNECT_UPDATE_PROFILE) <> NO_ERROR
Then ShowMessage ('Could not connect');


end;

А можно примеры к GetLogicalDrives, я так понял что он число возвращает, как мне сделать чтобы он их в латинские буквы переводил?