binatexto.~dpr

来自「Fontes e exemplos CALLER ID DELPHI」· ~DPR 代码 · 共 33 行

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.