Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

16th
Ноя

Как послать текст в Блокнот?

Posted by Chas under Delphi

mihali4

procedure TForm1.Button1Click(Sender: TObject);

 var

   wnd: HWND;

   i: Integer;

   s: string;

 begin

   wnd := FindWindow('notepad', nil);

   if wnd <> 0 then

   begin

     wnd := FindWindowEx(wnd, 0, 'Edit', nil);

    s := 'Hello';

     for i := 1 to Length(s) do

       SendMessage(wnd, WM_CHAR, Word(s), 0);

     // Simulate Return Key.

    PostMessage(wnd, WM_KEYDOWN, VK_RETURN, 0);

     // Simulate Space.

    PostMessage(wnd, WM_KEYDOWN, VK_SPACE, 0);

   end;

 end;