binatexto.dpr

Fontes e exemplos CALLER ID DELPHI

program BinaTexto;

uses
  Forms,
  messages,
  Windows,
  Unit1 in 'Unit1.pas' {FormTexto},
  Unit2 in 'Unit2.pas' {Form2},
  UnitMestre in 'UnitMestre.pas' {FormMestre};

var
THnd,btHnd:THandle;

{$R *.res}

begin

 THnd := Findwindow('TFormTexto', 'Gera Arquivo Texto');
 if THnd>0 then begin
    btHnd := FindWindowEx(THnd,0,'TButton','Show');
    if btHnd>0 then
        SendMessage(btHnd,BM_CLICK, btHnd,0);
     exit;
 end;


  Application.Initialize;
  Application.CreateForm(TFormMestre, FormMestre);
  Application.CreateForm(TFormTexto, FormTexto);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.