Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.31;
Скачать: CL | DM;

Вниз

Application.Handle других процессов   Найти похожие ветки 

 
Super ©   (2002-09-19 22:51) [0]

Помогите кто знает. Нужно получить хандл кнопочки (формы) другова приложения на панели задач. В своей программе из под делфи к ней можно дабраться так Application.Handle(Это для большей понятности что конкретно меня интересует).


 
Ученик ©   (2002-09-19 22:55) [1]

EnumWindows, проверка стиля WS_EX_APPWINDOW


 
Super ©   (2002-09-19 23:12) [2]

А можно мне неучу по подробнее объяснить?


 
MBo ©   (2002-09-19 23:15) [3]

>Super
В кладовке (готовые программы ) пример Игоря Шевченко, там, кажется, есть то, что тебе нужно


 
Ученик ©   (2002-09-19 23:52) [4]

С проверкой 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;


 
Super ©   (2002-09-20 09:38) [5]

Огромное вам спасобо за проявленное беспокойство.



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

Текущий архив: 2002.10.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
1-101239
Граф
2002-10-21 22:15
2002.10.31
совсем немного вроде осталось, и - на тебе...


7-101530
nv-vetal
2002-08-24 12:23
2002.10.31
Как пересчитать все папки (файлы) в определенной папке?


8-101380
kaif
2002-07-03 13:27
2002.10.31
OpenGL. Как восстановить 3D сцену из срезов?


1-101236
Прохожий
2002-10-21 21:53
2002.10.31
Lib-файлы


1-101345
Orions
2002-10-20 23:36
2002.10.31
Работа с каталогами