| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Application.Handle других процессов [D6, Win95/98]
Super © (2002-09-19 22:51:00)Помогите кто знает. Нужно получить хандл кнопочки (формы) другова приложения на панели задач. В своей программе из под делфи к ней можно дабраться так
Application.Handle(Это для большей понятности что конкретно меня интересует).
Super (2002-09-20 09:38:00) [1]Огромное вам спасобо за проявленное беспокойство.
Ученик (2002-09-19 23:52:00) [2]С проверкой WS_EX_APPWINDOW не получилось (не все окна попадают)
Другой вариант
function EnumWindowsProc(Window : HWnd; Param : lParam) : Bool; stdcall;
var
WindowText : array[0..512] of char;
begin
Result := True;
if IsWindowVisible(Window) and
((GetWindowLong(Window, GWL_HWNDPARENT) = 0) or
((GetWindowLong(Window, GWL_EXSTYLE) and WS_EX_APPWINDOW) <> 0)) then begin
GetWindowText(Window, WindowText, 512);
if WindowText[0] <> #0 then
Form1.ListBox1.Items.Add(StrPas(WindowText) + " - " + IntToHex(Window, 8));
end
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows(@EnumWindowsProc, 0)
end;
MBo (2002-09-19 23:15:00) [3]>Super
В кладовке (готовые программы ) пример Игоря Шевченко, там, кажется, есть то, что тебе нужно
Super (2002-09-19 23:12:00) [4]А можно мне неучу по подробнее объяснить?
Ученик (2002-09-19 22:55:00) [5]EnumWindows, проверка стиля WS_EX_APPWINDOW
| |
