создание rdp

[crom]

Доброе утро софорумчане
срочно нужна ваша помощь
пытаюсь в своей программе получить доступ к удаленному рабочему столу на сервере и взять управление
но заковыка в том что мне нужно чтоб был конкретный rdp порт
я зарегистрировал через regserv mstscax.dll который взял из c windows system 32
в делфи нажал component->import active X control->Microsoft terminal active client (который почему то ссылается на файл mstscax.dll находящийся в c\windows\system32
среди инструментов у меня все появилось
однако
при попытке ввести такой код
MSrdpclient1-2-3-4-5-6-7.AdvancedSettings1-2-3-4-5-6-7.RDPPort:=3333;
получаю 1 из 2 ошибок
или Интерфейс не поддерживается
или
access violation

может кто помочь? или поделиться сырцами?
очень и очень прошу помощи

[Баламут]

У меня так работает

MSrdpclient1.AdvancedSettings2.RDPPort := 3564

[crom]

Баламут,уважаемый,можете поподробнее рассказать как вы это все сделали(вместе с добавлением компонента)
и на какой винде пробовали

[Баламут]

Ну компонент насколько я помню именно так и добавлял. И работает это сейчас на Win7. В ХР тоже работало. И, кстати, компонет на форму кидал TMsRdpClientNotSafeForScripting. Иначе программа не на каждой версии винды работает.

[crom]

баламут а можешь откомпиленный проект скинуть?
с экзешником вместе?

вот мой код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, MSTSCLib_TLB;

type
  TForm1 = class(TForm)
    MsRdpClientNotSafeForScripting1: TMsRdpClientNotSafeForScripting;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
MsRdpClientNotSafeForScripting1.AdvancedSettings2.RDPPort:=3333;
end;

end.

все просто. нов се равно ошибку выдает.

[Баламут]

Увы, только завтра по местному времени . На этом компе нет Делфи сейчас

[crom]

ок.
буду вас очень и очень ждать\
на вас все недежды

[Баламут]

Ну собственно вот. Из проекта только сам exe-шник убрал. Компилил в XE2, Win7

[crom]

спасибо а можно все же экзешник попросить?
а то по определенным причинам я в делфи 7 весь свой проект компилю
(+ может знаешь можно ли перевести проект из делфи 7 в более новую версию?)

[Баламут]

Ну вот с экзешником. Не очень понимаю правда чем это может помочь..
http://rusfolder.com/39571225