HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Помогите с findwindow в Delphi
  #1  
Старый 21.02.2007, 14:21
fen
Познающий
Регистрация: 23.09.2006
Сообщений: 45
С нами: 10333009

Репутация: 20
По умолчанию Помогите с 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;
По примеру видно, что по нажатию кнопки, все окна, заголовки каторых == любой текст скроются, но нужно чтобы только по первым двум символам == заголовка скрывалось окно. Как это реализовать, подскажите кто знает...
 
Ответить с цитированием

  #2  
Старый 21.02.2007, 14:36
_Great_
Флудер
Регистрация: 27.12.2005
Сообщений: 2,372
С нами: 10721066

Репутация: 4360


По умолчанию

юзай EnumWindows / lstrncmpi

зы. ЙА МАЛЕНЬКИЙ ПАКИМОН а-а-а-а--а-а-аа--аа-
 
Ответить с цитированием

  #3  
Старый 23.02.2007, 21:33
W!z@rD
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
С нами: 10653446

Репутация: 836


По умолчанию

Код HTML:
  SetWindowPos(h, SW_HIDE, 1, 1, 20, 20,
1. а ShowWindows(WindowHandle, SW_HIDE) не подходит?
2. Тебе надо перечислить все окна. затем функцией pos, парсить заголовки, лосить все с '==' и скрывать выше указанным кодом
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ПомогитЕ !!! подалуста найти кряк гейлордфакерЪ Болталка 2 30.08.2007 14:48
ПоМоГиТе! ПЛЗ!!! farik.aka Уязвимости Mail-сервис 1 17.09.2006 13:00



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.

×

Внести депозит

Введите сумму USDT:

Принимается только USDT TRC20. Fake/Flash USDT не засчитывается.

×

Вывести депозит

Сумма USDT:

Ваш USDT TRC20 кошелек:

Заявка будет отправлена администратору.