Delphi

Admiral · Отправлено: **22:57, 13-02-2010** | #2

D@n1k007, PostMessage в альянсе с параметром wm_quit как раз и отправляют процессу, а не отдельно взятому окну, команду закончить работу.
Данное ПО не установлено, так что не проверял. А что если отправить сообщение одноимённой функцией SendMessage с параметром WM_CLOSE?
SendMessage(FindWindow(nil, 'О программе - Alcohol 120%'), WM_CLOSE, 0, 0)

grafmoto · Отправлено: **23:07, 13-02-2010** | #3

или просто спрятать его:
ShowWindow(FindWindow(nil, 'О программе - Alcohol 120%'), SW_HIDE);

D@n1k007 · Конфигурация компьютера

Код:

SendMessage(FindWindow(nil, 'О программе - Alcohol 120%'), WM_CLOSE, 0, 0);

не работает пока не закончится таймер

Код:

ShowWindow(FindWindow(nil, 'О программе - Alcohol 120%'), SW_HIDE);

только скрывает, а не закрывает окно (следовательно главное окно не откроется)
Вот блин головоломку придумал

crashtuak · Конфигурация компьютера

D@n1k007, закрыть окно не выйдет, потому что таймер соравно будет работать. Копать нужно именно в сторону таймера. Побороть таймер=побороть окно.

El Scorpio · Отправлено: **03:17, 15-02-2010** | #6

Цитата D@n1k007:

Отдельная просьба не высказывать предложения по установке креков и покупки лицензии на Alcohol 120%! »

А*предложения по установке бесплатной версии Alcogol 52% (в которой отсутствуют функции записи дисков)?

D@n1k007 · Конфигурация компьютера

2 El Scorpio
Звучит нелепо, но смыл не в том чтобы пользоваться Alcohol

, смысл в том чтобы закрыть это окно!

Я же писал выше

Цитата D@n1k007:

мне это нужно как полигон для обучения »

У меня появилась идея, только возник ряд проблем и без помощи мне не обойтись:

Код:

var h1, h2: hwnd;
...
begin
  h1 := FindWindow(nil, 'О программе - Alcohol 120%');
  h2 := FindWindowEx(h1, 0, 'TButton', '&OK');
  showmessage(inttostr(h2));
end;

Этим кодом я хочу найти кнопку ОК, но при попытке ее найти всегда возвращается 0. Пробовал печатать - "ОК" и по-русски и по-английски, пробовал получать ответ когда кнопка пассивна и активна, результат всегда 0

Что я делаю не так? (Пробовал с другим приложением тоже не смог найти кнопку)
Прилагаю картинки!

pva · Отправлено: **22:29, 15-02-2010** | #8

1) А сначала TPanel если поискать (а на нём TButton)?
2) Победил таймер?
ничё у тебя оперативки то! hypernate.sys наверное половину загрузочного раздела занимает

El Scorpio · Отправлено: **01:20, 16-02-2010** | #9

Цитата D@n1k007:

Этим кодом я хочу найти кнопку ОК, но при попытке ее найти всегда возвращается 0. Пробовал печатать - "ОК" и по-русски и по-английски, пробовал получать ответ когда кнопка пассивна и активна, результат всегда 0 »

А*если циклом считать текстовые свойства всех экранных элементов?
Глядишь, что-нибудь интересное найдётся.

D@n1k007 · Конфигурация компьютера

Сейчас расскажу суть моей идеи:
Я хотел с помощью кода, приведенного ниже, активировать кнопку ОК, в надежде что нажав на нее окно закроется, но увы... Кнопка стала активной, окно не закрылось!

Код:

begin
h1 := FindWindow(nil, 'О программе - Alcohol 120%');
h3 := FindWindowEx(h1, 0, 'TPanel', nil);
h2 := FindWindowEx(h3, 0, 'TButton', nil);
EnableWindow(h2, true);
end;

2 El Scorpio

Цитата El Scorpio:

А*если циклом считать текстовые свойства всех экранных элементов? »

Как это? Я еще не очень опытный в программировании, вы могли бы рассказать подробнее?

2 ALL
1. Как победить таймер? Как его можно поставить в значение 0? Может есть какие-то свойства/сообщения/доп. параметры для команды WM_TIMER (вообще уместно ли ее тут использовать)?
2. Можно ли узнать сообщение которое кнопка ОК посылает окну?