unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, ComCtrls, Grids,
DirOutln, Buttons, DdeMan,shlobj,comobj,activex;
type
TForm1 = class(TForm)
Image1: TImage;
Label1: TLabel;
Image2: TImage;
Label3: TLabel;
Label2: TLabel;
Image3: TImage;
Label4: TLabel;
DdeClientConv1: TDdeClientConv;
Label5: TLabel;
procedure Fo...[ 查看全文 ]