Remotedesktop

[SaFu]

Ok öffnen das Klappt wunderbar.

Aber wie kann ich die bestehende Verbinung abbrechen??

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
begin
 if ShellExecute(Application.Handle,'Open',PChar('mstsc.exe'),Nil, Nil, SW_NORMAL) >= 31 then
  else
    begin
     MessageDlgPos(#9 + '  Es ist ein fehler aufgetreten',mtInformation,[mbOk],0,215,200);
    end;
end;
end;

[edit=Matze]Delphi-Tags gesetzt. Mfg, Matze[/edit]