использование функции WinAPI ChildWindowFromPoint

[ujif]

на форме одна кнопка ,в Редакторе такой код

Код: Выделить всё

type
.......
   public
procedure SendChar;
........
implementation

procedure TForm1.Button2Click(Sender: TObject);
begin
SendChar;
end;

procedure TForm1.SendChar(Sender: TObject);
var
  wnd: HWND;
  child: integer;
begin
  { Находим дескриптор открытого окно приложения "Блокнот" }
  wnd:= FindWindow('Notepad', nil);
  { Находим поле ввода текста }
  child:= ChildWindowFromPoint(wnd, point(50, 50));
  { Посылаем символ в поле ввода (букву А) }
  SendMessage(child, WM_CHAR, Ord('A'), 0);
end;


пытаюсь в окно блокнота записать букву 'A' , в Delphi все нормально, но в
Lazarus указываем на место после первого параметра Point и пишет
ожидается ")" ,но найдена запятая
вот и вопрос конкретный,
Как с помощью функции WinAPI из программы ,послать символ
в открытое окно блокнота?

Добавлено спустя 41 минуту 14 секунд:
подсказали добрые люди ,что нужно так написать
Classes.Point(50,50) ..теперь компилируется все ,но
буква в Блокнот все равно не приходит

[Ism]

Лучше не использовать win api в lazarus, теряется смысл его использования. Также при использовании виндовского api проблемы с кодировкой и преобразованиями картинок

Найдите замену этой функции штатными средствами lazarus

[eastorwest]

Проверил ваш код с учетом добавления Classes.Point(50,50) на Windows 8.0. Заработало все и сразу.

[ujif]

Найдите замену этой функции штатными средствами lazarus

Вы правы Уважаемые Ism ,спасибо за поддержку
все же нашлось решение

Код: Выделить всё


procedure TForm1.Button2Click(Sender: TObject);
begin
SendChar;
end; 

rocedure TForm1.SendChar;
var Wnd: hWnd;
      child: integer;
           s: string;
begin
    s:= 'Hello';

//находим главное окно приложения
  WinExec('Notepad', SW_Restore);// открываем новый блокнот
  Wnd:= FindWindow('notepad',nil);// находим дескриптор окна   
 
//находим поле ввода текста
  child:= ChildWindowFromPoint(Wnd,Classes.Point(0,0));

  SendMessage(Child, WM_CHAR, ord('A'), 0);//посылаем символ в поле ввода(букву А)
  SendMessage(Child, EM_REPlacesel, 0, lparam(PChar(S)));//посылаем слово 'Hello'

end;