Как сделать левый клик мыши

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
      TPoint cPt; TRect rect;//--структуры для хранения координат
      int zLinesCount=0;//--Добавлять по четыре <<<<<<<<<<<<<<<<<<<<<<<<<<<<<
      BOOL Find_Yes=false;//--нашёл окно
     int z_Liter=0;//-- счётчик количества проходов для ожидания окна
  int CurX; int CurY;    
     //---глобальные переменные
HWND GetMainWindow(HWND hWnd)
{//==========Хитрая функция читать название окна
    while(true) {
        if(GetWindowLong(hWnd, GWL_STYLE) & WS_CAPTION)
            return hWnd;
        if(HWND w = GetParent(hWnd)) {
            hWnd = w;
        } else {
            return hWnd;
        }}}
   //==========находит координаты левого верхнего угла найденной формы,
 //====== прибавляет туда координаты из текста и вызывает нажимать на кнопку
   void trindec(int zLine) { //<< --- zLine строка Memo с названием формы
 char buf[128];
   HWND h = WindowFromPoint(cPt); // получить handle окна по позиции курсора
       GetWindowRect(h,&rect); // получить его координат
 int Hcur = rect.Left+StrToInt(Form1->Memo1->Lines->Strings[zLine+1].Trim());
 int Vcur = rect.Top+StrToInt(Form1->Memo1->Lines->Strings[zLine+2].Trim());
  //------------------
 
  //---------
  if(Form1->Memo1->Lines->Strings[zLine+3]=="right"){ //правое НАЖАТИЕ МЫШЬ
         SetCursorPos(Hcur,Vcur);
mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, GetMessageExtraInfo());
       mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, GetMessageExtraInfo());
         } else{                                       //левое НАЖАТИЕ МЫШЬ
         SetCursorPos(Hcur,Vcur);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo());
         mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo());
 if(Form1->Memo1->Lines->Strings[zLine+3]=="double"){
       Sleep(120);                                   // второе НАЖАТИЕ МЫШЬ
        SetCursorPos(Hcur,Vcur);
 mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo());
         mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo());
             }}
     zLinesCount=zLinesCount+4;// Sleep(200);//----(Sleep(200) для отладки)
      }
//-----------------------------------------------------------------------
//-----------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Form1->Left=0; Form1->Top=0;
Form1->BorderStyle=bsNone;
 Form1->Width = 0; Form1->Height = 0;
 SetWindowLong(Application->Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
 GetCursorPos(&cPt); // получить текущую позицию курсора
   CurX=cPt.x;CurY=cPt.y;//Запомнил положение курсора
if(FileExists("WinText.txt")){
Memo1->Lines->LoadFromFile("WinText.txt");}
else Application->Terminate();
Timer1->Interval=2000;
}
//------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
String Name_zx = Memo1->Lines->Strings[zLinesCount];
//<<<-----Читает название окна из текста
  //==================
  Find_Yes=false;//---не найдено окно 
      cPt.x=0;
             while(cPt.x < Screen->Width){
 for(cPt.y=0; cPt.y < Screen->Height; cPt.y=cPt.y+30){//<<---шаг вниз
     //----------
     char buf[128];
   HWND h = WindowFromPoint(cPt); // получить handle окна по позиции курсора
                     h = GetMainWindow(h);//======>> Вызов хитрой функции
    GetWindowText(h, buf, 128); // получить текст заголовка окна
    if(String(buf)==""){ZeroMemory(buf,128);buf[0]='_';}//===================
    //---------
                 if(String(buf)==Name_zx){
                          Find_Yes=true;//<<===== нашёл окно
                  //-------
while(String(buf)==Memo1->Lines->Strings[zLinesCount]){//<--ищем верхний край
                    cPt.y--;
     HWND h = WindowFromPoint(cPt); //handle окна по позиции курсора
                    h = GetMainWindow(h);//======>> Вызов хитрой функции
   GetWindowText(h, buf, 128);//  текст заголовка окна
    if(String(buf)==""){ZeroMemory(buf,128);buf[0]='_';}//===================
                    }
                 //-------
                  cPt.y = cPt.y+4;//---четыре точки с верху
       trindec(zLinesCount);//======>> вызов
             cPt.x = Screen->Width;//<<===== (выход из первого цикла while)
           }}
       cPt.x=cPt.x+30; //<<---шаг в право
            }
 //==================
         z_Liter++;//--Количество проходов для ожидания окна
  if(Find_Yes==false && z_Liter==15)//--(15 - пол минуты ожидания)
 {zLinesCount=zLinesCount+4;z_Liter=0;}//<<--если не нашёл ЧИТАЕМ ДАЛЕЕ
 if(Memo1->Lines->Strings[zLinesCount]==""){
    cPt.x=CurX;cPt.y=CurY;//--восстановим положение курсора
     SetCursorPos(cPt.x,cPt.y);
 Application->Terminate();}
}
//--------------------

#include "windows.h"
 
int _tmain()
{
    while (true){
        mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, GetMessageExtraInfo());
        mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, GetMessageExtraInfo());
    Sleep(10000);
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo());
        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo());
    }
    return 0;
    }