سلام به همه عزیزان
چون بحث تقریبا مرتبط بود دیگه تاپیک جدید نزدم .
من از تو برنامه دلفی خودم با کد زیر تونستم یک دکمه رو در برنامه دیگه ای کلیک کنم ، تا اینجا مشکلی ندارم اما بعد از کلیک یه دیالوگ باکس باز میشه که فقط یه دکمه ok داره .... می خوام رو اونم کلیک کنم
از دوستان اگر کسی تونست ممنون میشم راهنمایی کنه .
ممنون !
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
edt_1: TEdit;
btn_1: TButton;
procedure btn_1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn_1Click(Sender: TObject);
var
hdl_1 : integer ;
hdl_2 : integer ;
hdl_3 : integer ;
begin
hdl_1 := FindWindow(nil,PAnsiChar('__MY APPLICATION TITLE__')) ;
hdl_2 := FindWindowEX(hdl_1,0,nil,PAnsiChar('__MY BUTTON TITLE__'));
SendMessage(hdl_2,BM_CLICK,0,0);
l
end;
end.