Remotedesktop

[SaFu]

Das Programm auf PC2 wird ja nicht beendet sondern es wird auf das Anmelde Fenster zurück gesetzt

Delphi-Quellcode:

procedure TForm2.Button5Click(Sender: TObject);
var pt: TPoint;
begin
  if MessageDlgPos('Wollen sie sich wirklich Abmelden? ',mtInformation,[mbYes,mbNo],0,300,200) = mrYes then
    begin
      Form1.Show;
      Form2.Close;
       begin
          pt := Point( Width + 300, Top + 100);
          Mouse.CursorPos := ClientToScreen(pt)
        end;
     end;
end;

hier müsste jetzt noch was rein um die Remoteverbindung zu beenden.