RemoteApp starten, RDPSession

[DelTurbo]

Hi,
ich möchte mir ein kleines Programm schreiben was mich automatisch von jedem PC aus an eine RemoteApp anmeldet. Da man das Password nicht mehr in der .rdp hinterlegen kann, bin ich auf dieses Idee gekommen.
Die eigentlich RDP Anmeldung bekomme ich hin. Mit folgendem Code.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
    rdp:=TMsRdpClient7.Create(Self);
    rdp.Parent:=Panel1;
    rdp.SetBounds(0, 0, Panel1.Width, Panel1.Height);
    rdp.Server:='RAServer';
    rdp.UserName:='user';
    rdp.AdvancedSettings7.ClearTextPassword:='123456';
//    rdp.RemoteProgram2.RemoteProgramMode:=True;
//    rdp.RemoteProgram2.RemoteApplicationName:='||FritzFax';
//    rdp.RemoteProgram2.RemoteApplicationProgram:='FritzFax';
    rdp.Connect;
end;

Damit kann ich eine "einfache" RDPSession aufbauen und sehe das Desktop. Sobald ich aber rdp.RemoteProgram2.RemoteProgramMode auf True setze kommt "Unbekannter Fehler".
Um ehrlich zu sein, möchte ich das Remote Programm auch nicht in einen Panel laufen lasse. Das kleine Tool soll im Grunde nur die Anmeldung mit Password übernehmen. Nun die Frage, was mache ich falsch?

Danke im Voraus

[DelTurbo]

Topic geändert. Ich glaube es war etwas schlecht ausgedrückt.

[TiGü]

rdp.RemoteProgram2 ist nil.
Dadurch erfolgt ein Zugriff auf eine ungültige Adresse => Zugriffsverletzung und darum erhälst du "Unbekannter Fehler".

Du kannst als Parent anstatt des Panels auch deine Form nehmen oder ein beliebiges TWinControl.
Ohne Zuweisung des Parent siehst du den Remote Desktop nicht.

[DelTurbo]

Erst mal danke für die Antwort. Aber ich möchte ja nicht das Desktop sehen, sondern eine RemoteApp Starten.

Musst man da noch irgendwas erstellen damit RemoteProgram2 nicht Nil ist? Ich habe dazu leider nix gefunden.

[TiGü]

Ersetze mal TMsRdpClient7 mit der Klasse TMsRdpClient7NotSafeForScripting.
Da ist die Instanz der Property RemoteProgramm2 gültig.

Siehe auch: http://stackoverflow.com/a/17136171

[DelTurbo]

Vielen dank. "Unbekannter Fehler" kommt nun nicht mehr. Allerdings ist das Panel schwarz. Er startet das Programm nicht. Lasse ich die Zuweisung auf das Panel weg, passiert auch nichts.

Hier mein Code:

Delphi-Quellcode:

    rdp:=TMsRdpClient7NotSafeForScripting.Create(Self);
    rdp.Parent:=Panel1;
    rdp.SetBounds(0, 0, Panel1.Width, Panel1.Height);
    rdp.Server:='RAServer';
    rdp.UserName:='user';
    rdp.AdvancedSettings7.ClearTextPassword:='123456';
    rdp.RemoteProgram2.RemoteProgramMode:=True;
    rdp.RemoteProgram2.RemoteApplicationName:='FritzFax';
    rdp.RemoteProgram2.RemoteApplicationProgram:='||FritzFax';
    rdp.Connect;

Irgendwas ist wohl noch falsch. Das ||FritzFax habe ich aus der .rdp. Aber auch wenn ich die || weglasse klappt es leider nicht.
Hast du vielleicht noch eine Idee wie es klappen könnte?

Gruß und danke im Voraus