SendMessage

[Damien4Damien]

Доброго времени суток.
Вопрос наверное глупый, но:
В функции SendMessage первый параметр задается каким типом данных? Можно ли например указать его как некоторую функцию нахождения Handle?

[DomiNick]

Ну на ней же написано:

function SendMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;

[Damien4Damien]

А могу ли я при задании SendMessage первый параметр ввести как некотрую переменную данного типа?
Мне необходимо банально щелкнуть в окне приложения левой клавишей мыши, хэндл приложения я нахожу следующим образом:

procedure TForm2.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 50;
end;

function TForm2.HandleFind(cp : TPoint): THandle;
begin
  Result := WindowFromPoint(cp);
  Label1.Caption := 'Handle = ' + IntToStr(Result);
end;

procedure TForm2.Timer1Timer(Sender: TObject);
var
p : TPoint;
begin
  if boolean(GetCursorPos(p)) then HandleFind(p);
end;

Ищу по курсору грубо говоря. Как мне теперь этот хэндл использовать в SendMessage?

[Олвин]

А могу ли я при задании SendMessage первый параметр ввести как некотрую переменную данного типа?

Можно. Переменная будет хранить дескриптор окна.