unit test;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, XPMan, ShellAPI, StdCtrls, TlHelp32, CommCtrl;

type
 TForm1 = class(TForm)
   btn1: TButton;
   btn2: TButton;
   btn3: TButton;
   procedure btn1Click(Sender: TObject);
   procedure btn2Click(Sender: TObject);
   procedure btn3Click(Sender: TObject);
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
 hForm, hTBar, hOpenEdit, hTmp, hOpenOpen, hOpenMain: HWND;
 hFormRect: TRect;
 CurPoint: TPoint;
 xyz: PAnsiChar;
 x: Cardinal;
 a: Integer;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
 ShellExecute(0,nil,'STBLinkEditor_03.00_1.exe',nil,PAnsiChar(ExtractFilePath(App lication.ExeName)),SW_SHOW);
 Sleep(500);
 hForm:=FindWindow(0, 'Untitled - STBLink Editor 03.00');
 GetWindowRect(hForm,hFormRect);
 CurPoint.X:=hFormRect.Left+11;
 CurPoint.Y:=hFormRect.Top+55;
 hTBar:=WindowFromPoint(CurPoint);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
 if hForm<>0 then
   SendMessage(hForm,wm_close,0,0);
 Close;
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
 SendMessage(hTBar,WM_LBUTTONDOWN,MK_LBUTTON,MAKELONG(30, 10));
 SendMessage(hTBar,WM_LBUTTONUP,MK_LBUTTON,MAKELONG(30, 10));
 //вот тут встает и ждет!!!!
 hOpenEdit:=FindWindow(0, 'UserDataBase');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if hForm<>0 then
   SendMessage(hForm,wm_close,0,0);
 Application.Terminate;
end;

end.

ShellExecute(0,nil,'STBLinkEditor_03.00_1.exe ' + MyFileName,....

idHook:=SetWindowsHookEx(WH_GETMESSAGE, @PressButtonHook, hInstance, GetWindowThreadProcessId(hFrm,nil))

function PressButtonHook(CODE, WParam, LParam: DWORD): DWORD; stdcall;
begin
 if CODE=HC_ACTION then
 begin
   if (TMsg(Pointer(lParam)^).wParam=32840) then
     begin
     ShowMessage('OK');
     Result:=CallNextHookEx(idHook, CODE, WParam, LParam);
     end
   else
     Result:=CallNextHookEx(idHook, CODE, WParam, LParam);
 end
   else
     Result := CallNextHookEx(idHook, CODE, WParam, LParam);
end;

function PressButtonHook(CODE, WParam, LParam: DWORD): DWORD; stdcall;
begin
 if CODE=HC_ACTION then
 begin
   CallNextHookEx(idHook, CODE, WParam, LParam);
   if TMsg(Pointer(lParam)^).message=WM_COMMAND then
     begin
     ShowMessage('OK    '+IntToStr(TMsg(Pointer(lParam)^).wParam));
     end
 end
   else
     Result := CallNextHookEx(idHook, CODE, WParam, LParam);
end;

SetWindowsHookEx(WH_GETMESSAGE, @PressButtonHook, hInstance, GetWindowThreadProcessId(hFrm,nil))

var
 hW, hEdit, hBtn: HWND;
 path: AnsiString;
 idBtn: integer;
begin
 hW := FindWindow(nil, 'Открыть);
 if hW <> 0 then
 begin
   hEdit := FindWindowEx(hW, 0, 'ComboBoxEx32', '');
   if hEdit <> 0 then
   begin
     path := 'C:\base\MyUserDataBase.udb';
     SendMessage(hEdit, WM_SETTEXT, 0, integer(path));

     hBtn := FindWindowEx(hW, 0, 'Button', '&Открыть');
     if hBtn <> 0 then
     begin
       IdBtn:=GetDlgCtrlID(hBtn);
       SendMessage(hW, WM_COMMAND, MakeWParam(IdBtn, BN_CLICKED), hBtn);
     end;
   end;
 end;
end;

function FindDialog(Wd: HWnd; Param: LongInt): Boolean; stdcall;
var
 ClassName: array [0..254] of Char;
begin
 FindDialog:=True;
 GetClassName(Wd, ClassName, SizeOf(ClassName));
 if ClassName='#32770' then
   if GetWindowThreadProcessId(Wd,nil) = idFrm then
     begin
       //hDialog:=Wd;
       FindDialog:=False;
       showmessage('íàøåë');
     end;
end;

EnumWindows(@FindDialog,0);