| Kaf Dağı | 27 Mart 2015 14:57 |
uzak masaüstü (MSTSCa.dll) lerini kullanma
Kod:
Step #1: Install MSTSC ActiveX Control. (componet /import activex control/microsoft
terminal hizmetleri(mstscax.dll)kontrol ekliyoruz.
activex komponentinden TMsRdpClient2 forma sürükleyin
daha sonra bir buton ekleyin ve alttaki kodları yazın
[delphi]
procedure TForm1.Button1Click(Sender: TObject);
begin
rdp.Server := txtComputer.Text; //Set Remote Server
rdp.UserName := txtUserName.Text; //Set UserName
rdp.AdvancedSettings2.ClearTextPassword := txtPassword.Text; //Set Password as a Basic String
rdp.DesktopHeight := 600; //Set Your Height
rdp.DesktopWidth := 800; //Set Your Width
rdp.Connect(); //Connect Client
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
rdp.Disconnect; //DisConnect Client
end;
[/delphi]
| 