Mega Code Archive

 

Categories / Delphi / System

 

Devx - açıkdaki başka bir uygulamaya karakter gönderme

******************************************************** ******************************************************** *** 'ARKADAŞLAR LÜTFEN KODBANK"TAN YARDIM İSTEMEYİN' *** ************* 'FORUMLARDAN YARDIM İSTEYİN' ************* ******************************************************** ******************************************************** procedure TForm1.Button2Click(Sender: TObject); var g,d:integer; begin {Find the main window of the Application} g:=FindWindow('Notepad',nil) ; {Find the window of the application's text box} d:=ChildWindowFromPoint(g,point(50,50)) ; {Now send it a character!!} SendMessage(d,WM_CHAR,Ord('A'),0) ; end;