unit1.pas

DELPHI 编写的远程桌面显示的程序 简单软件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Registry, ExtCtrls, jpeg, Buttons;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button3: TButton;
    Image1: TImage;
    Image2: TImage;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if
  ComboBox1.Text='' then ShowMessage('请输入远程计算机地址!')
else
  winexec (pchar('mstsc /console /v:'+ComboBox1.Text+''),1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ShowMessage('程序制作:石巍');
end;

procedure TForm1.FormCreate(Sender: TObject);
   var
   Aregistry : Tregistry;
   i : integer;
begin

ARegistry := TRegistry.Create;//建立一个TRegistry实例
with Aregistry do

begin
RootKey := HKEY_CURRENT_USER;//指定根键为HKEY_CURRENT_USER
if OpenKey('software\Microsoft\Terminal Server Client\Default',false) then
for i:=0 to 9 do
  combobox1.Items.Add( ReadString('MRU'+inttostr(i)));
//combobox1.Items.Add(ReadString('MRU0'));
//combobox1.Items.Add(ReadString('MRU1'));
//combobox1.Items.Add(ReadString('MRU2'));
Closekey;//关闭主键
Destroy;//释放内存
end;

end;
end.