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

[himitsu]

Delphi-Quellcode:

rdp.RemoteProgram.RemoteProgramMode := True;
rdp.RemoteProgram2.RemoteApplicationName := 'Calculator';
rdp.RemoteProgram2.RemoteApplicationProgram := 'C:\Windows\System32\Calc.exe';

Das Programm "FritzFax" ist auf dem Remote-PC auch bekannt?
Wenn es nicht läuft/gestartet werden kann, dann kann man dieses Programm natürlich auch nicht sehn -> nichts = schwarz

[DelTurbo]

Ja, FritzFax ist bekannt. Ich habe das ja aus der .rpd Datei. Ich habe deine Änderung nun gerade getestet. Nun sehe ich das Hintergrundbild und sonst passiert nix weiter, leider.

Also eine RDPSession aufbauen scheint einfach zu sein, aber eine RemoteApp zu starten ist wohl nicht so einfach. Zumal die RemoteApp garnicht im Panel laufen soll. Ich denke mal man müsste bei rdp.Parent das Desktop angeben, oder?

[himitsu]

Wenn du die MSTSC.exe startest, dann hat die ihr Fenster und da drin wird der Remote-Desktop angezeigt.

Hier hast du ein Fenster und mußt darin oder in einer Unterkomponente (z.B. Panel) den Remote-Desktop anzeigen.

[DelTurbo]

Das ist im Moment nur zum Testen. Wie ich schon schrieb soll, wenn es mal klappt, die RemotApp "frei" sein.