Einzelnen Beitrag anzeigen

terminator1000

Registriert seit: 2. Feb 2007
26 Beiträge
 
#1

Remote Desktop Verbindung erfolgreich?

  Alt 11. Sep 2007, 15:48
Hi,

ich habe bereits so einiges probiert mit Delphi per Remotedesktop auf einen anderen pc zu connecten..

Delphi-Quellcode:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    MsRdpClient: TMsRdpClient;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  MsRdpClient := TMsRdpClient.Create(Self);
  with MsRdpClient do
  begin
    Name := 'MsRdpClient';
    Parent := Self;
    Left := 0;
    Top := 0;
    Width := 800;
    Height := 600;
    TabOrder := 0;
    ControlData := {0003000008000200000000000B000000030000000000};
  end;
  Button1.BringToFront;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   MsRdpClient.Server := edit1.text;
   MsRdpClient.UserName :=edit2.text;
   MsRdpClient.AdvancedSettings.ClearTextPassword := edit3.text;
   MsRdpClient.Connect;
end;

end.

nur irgendwie geht die Zeile
ControlData := {0003000008000200000000000B000000030000000000};
nicht ..
MSTSCLib_TLB ist importiert..

So wenn dann mal das connecten funktioniert, möchte ich eine Ausgabe die mir zeigt, ob die Anmeldung erfolgreich war oder fehlgeschalgen war..

Schonmal vielen Dank für die Hilfe!
  Mit Zitat antworten Zitat