Форум АНТИЧАТ - Помогите с findwindow в Delphi

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

Помогите с findwindow в Delphi

21.02.2007, 14:21

fen

Познающий

Регистрация: 23.09.2006

Сообщений: 45

Провел на форуме:
308259

Репутация: 20

Отправить сообщение для fen с помощью ICQ

Помогите с findwindow в Delphi

Захотел написать программку, каторая бы скрывала все окна, заголовки каторых начинаются на ==
Приведу пример, того что сейчас есть:

Код HTML:

procedure TForm1.Button1Click(Sender: TObject);
 var
 h: HWND;
 begin
 h := findwindow(nil,'== любой текст');
 if h <> 0 then
  SetWindowPos(h, SW_HIDE, 1, 1, 20, 20, SWP_HIDEWINDOW);
 end;

По примеру видно, что по нажатию кнопки, все окна, заголовки каторых == любой текст скроются, но нужно чтобы только по первым двум символам == заголовка скрывалось окно. Как это реализовать, подскажите кто знает...