Вниз
Скачать: CL | DM;

Как закрыть другое окно?   Найти похожие ветки 

← →
Cosmic   (2002-11-10 00:31) [0]

Фишка: нужна прога, которая в таймере каждые пять сек. будет опрашивать активное окно и, в зависимости от его заколовка, будет его закрывать или сворачивать.
getactivewindow почему-то не срабатывает. Как ещё получить активное окно? Я в таймере писал примерно так:

hd:=getactivewindow; // hd - handle
getwindowtext(hd,stt,0); //stt - строка PChar
if stt = "Калькулятор" then
sendmessage(hd,WM_CLOSE,0,0);

Активное окно в этом случае не отлавливается. Что делать?


← →
SottNick ©   (2002-11-10 07:40) [1]

GetForegroundWindow;


← →
Василий2 ©   (2002-11-10 08:13) [2]

Хватит заниматься онанизмом!


← →
Song ©   (2002-11-10 08:58) [3]

GetActiveWindow только для окон своего процесса. Чтобы работало, надо прикреплять процесс к своему.


← →
icWasya ©   (2002-11-10 10:23) [4]

function GetWindowText(Wnd: HWnd; Str: PChar; MaxCount: Integer): Integer;

Копиpует в Str заголовок окна или текст оpгана упpавления.

Паpаметpы:
Wnd: Идентификатоp окна или оpгана упpавления.
Str: Буфеp, пpинимающий стpоку.
MaxCount: Размеp буфеpа Str.!!!!!!!!!!!!!!!!!

Возвpащаемое значение:
Фактическое число скопиpованных байт или 0, если текст отсутствует.

------
у тебя MaxCount = 0


← →
Cosmic   (2002-11-10 16:32) [5]

ОК. Вот только GetFforegroundWindow намертво вешает машину (под 95 виндой). Может, ещё какие способы есть?


← →
Song ©   (2002-11-10 16:41) [6]

Вешает?...
Хм.. ну попробуй тогда GetTopWindow()


← →
Cosmic   (2002-11-10 18:43) [7]

ОК. Так явно лучше... Спасибо.


← →
SottNick ©   (2002-11-11 07:04) [8]

вешает, значит не так используешь



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.016 c
1-74673
Svin
2002-12-09 14:40
2002.12.23
МАТЕМАТИКА


14-74987
AlexZ
2002-11-28 08:22
2002.12.23
Утечка памяти, или..?


3-74626
XM-AD
2002-12-05 14:40
2002.12.23
В FireBird не срабатывают External вызовы!?


3-74587
@andrew
2002-11-19 17:32
2002.12.23
SQL. Замучился искать в доках!!! Хелп!!! Можно ли в переменную...


3-74622
newe
2002-12-05 14:28
2002.12.23
Delphi + Access




   Наверх