تعلم معي كيف تتعامل مع البرامج الخارجيّة

[abualmonther]

السلام عليكم هذا هو الحل ،ارسال المعلومة الى editالالة الحاسبة ...وشكرا

PHP كود :

procedure TForm1.Button6Click(Sender: TObject);
var
  cal,edi  : THandle;
  Tex: string;
begin
   cal:= FindWindow('SciCalc',nil);
   edi:= FindWindowEx(cal,0,'edit',nil);
   SetLength(Tex,Max_Path);
   Tex:= edit4.Text;
   SendMessage(edi,WM_SETTEXT,Max_Path,LongInt(@Tex[1]));


end;