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

[Dr.MOT]

السلام عليكم أخ _Moh أتيتك بالحل ,,

للحصول على التكست من الحاسبة ( Get ) :

PHP كود :

procedure TForm1.Button3Click(Sender: TObject);
var
 Fr,Ed : THandle ; Edt: String ;
begin
  Fr :=  FindWindow('SciCalc',nil);
  Ed := FindWindowEx(Fr,0,'Edit',nil);
  SetLength(Edt,MAX_Path);
  SendMessage(Ed,WM_GETTEXT,Max_Path,LongInt(@Edt[1]));
  Edit1.Text:= Edt ;
end; 


لوضع النص للحاسبه ( Set ) :

PHP كود :

procedure TForm1.Button4Click(Sender: TObject);
var
 Fr,Ed : THandle ; Edt: String ;
begin
  Edit1.Text := Edt ;
  Fr :=  FindWindow('SciCalc',nil);
  Ed := FindWindowEx(Fr,0,'Edit',nil);
  SetLength(Edt,MAX_Path);
  SendMessage(Ed,WM_SETTEXT,Max_Path,LongInt(@Edt[1]));
end; 


بارك الله فيك أخي الكريم ,, وأتـمنى منك التعمق أكثر بالدرس فقد أستمتعنا واستفدنا ,,
أكرر شكري لك أخي الكريم ,,