![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Уважаемые, почему не срабатывает следующий код?
Код:
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
|
|||
|
|||
![]() Всем спасибо, было вкусно и полезно
![]() |