Расшарить диски на удаленном рабочем столе

[_ZixeL_]

Всем привет. Использую MSTSCLib_TLB для подключения.

Кусок кода основного

uses Registry;
const
  SPI_SETSCREENSAVERRUNNING = $0061;

procedure TForm1.FormCreate(Sender: TObject);
begin
SystemParametersInfo(SPI_SETSCREENSAVERRUNNING, cardinal(true), nil, 0);
MsRdpClient21.AdvancedSettings.BitmapPeristence:=1;
MsRdpClient21.AdvancedSettings.Compress := 1;
MsRdpClient21.AdvancedSettings.allowBackgroundInput:=1;
MsRdpClient21.AdvancedSettings.DisableRdpdr:=1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MsRdpClient21.Server :=Edit1.Text;
MsRdpClient21.UserName := Edit2.Text;
MsRdpClient21.Connect;
end;

Если прописываю перед коннектом

 MsRdpClient21.AdvancedSettings2.RedirectDrives := true;

То при нажатии на кнопку коннекта вылазит ошибка



В общем, выручайте, ребят. Запарился уже.