t_closeregistform.pas

OPC Client本软件是一个利用OPC协议通讯的实例。其中用到的驱动是非注册版

unit T_CloseRegistForm;

interface

uses
  Classes, U_Public, Windows, Messages;

type
  CloseRegistForm = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation

{ Important: Methods and properties of objects in VCL or CLX can only be used
  in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure CloseRegistForm.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ CloseRegistForm }

procedure CloseRegistForm.Execute;
begin
  { Place thread code here }
  While My_Handle<=0 do
    My_Handle:=FindWindow(Nil,'Unregistred Copy!');
  SendMessage(My_Handle, WM_CLOSE, 0, 0);
  Self.Free;
end;

end.