|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
WinAPI минимизация окна
Уважаемые, почему не срабатывает следующий код?
Код:
var h: cardinal; begin h := FindWindow(Edit1.Text, nil); ShowWindow(h, SW_MINIMIZE); end; |
#2
|
|||
|
|||
Вместо cardinal пиши HWND
Код:
var h: HWND; begin h := FindWindow(Edit1.Text, nil); ShowWindow(h, SW_MINIMIZE); end; |
#3
|
|||
|
|||
Ситуация та же. Компилируется, но результата нет.
|
#4
|
|||
|
|||
Код:
var h: HWND; begin h := FindWindow(nil, 'Form1'); ShowWindow(h, SW_MINIMIZE); end; вот попробуй , Form1 это заголовок окна , ставишь там нужная окна , ищи в инете уроки про работы с окнами или если найду время сделаю для тебя урок ;-) |
#5
|
|||
|
|||
Работает, благодарю.
|
#6
|
||||
|
||||
Не работает потому, что в Win используется PChar, в TEdit находится String. Перепиши так:
Код:
var h: HWND; begin h := FindWindow(PChar(Edit1.Text), nil); ShowWindow(h, SW_MINIMIZE); end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#7
|
|||
|
|||
Все-равно не найдет
findChildWindow. |
#8
|
||||
|
||||
А при чём тут дочернее окно? Судя по его коду , ТС ищет другую прогу, ну к примеру "Калькулятор".
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#9
|
|||
|
|||
Цитата:
А, ну да, сорри, просмотрел |
#10
|
|||
|
|||
Imikle прав, не компилится даже с PChar()
|
#11
|
|||
|
|||
Цитата:
Вот так работает: Код:
procedure TForm1.Button1Click(Sender: TObject); var h: cardinal; begin h := FindWindow(nil, PChar('7-Zip File Manager')); if h > 0 Then ShowWindow(h, SW_MINIMIZE) Else ShowMessage('Not found!'); end; но это по заголовку, который может меняться. |
#12
|
|||
|
|||
поиск по части заголовка и имени exe:
FindWindow777('opera') ; FindWindow777('torrent', 'utorrent.exe') ; PHP код:
|
#13
|
|||
|
|||
Всем спасибо, было вкусно и полезно
|