Помогите разобраться. (в USES чего только не было.. Если вместо Handle писать "CONTROL." то такого свойства не видит. "TWinControl." - аналогично)
НАДО ИЗБАВИТЬСЯ ОТ ОШИБКИ. Программа ищет окно с определенными заголовками
Вот код функции:
| Код | uses
Windows, SysUtils, Classes, Controls, Forms,
StdCtrls;
........
function TFind(s: string): boolean;
var
Wnd: hWnd;
buff: array[0..127] of Char;
begin
result := false;
Wnd := GetWindow(handle, gw_HWndFirst); // ТУТА пишет " [Error] Unit2.pas(35): Undeclared //identifier: 'handle'"
while Wnd <> 0 do
begin
if (Wnd <> Application.Handle) and
IsWindowVisible(Wnd) and
(GetWindow(Wnd, gw_Owner) = 0) and
(GetWindowText(Wnd, buff, sizeof(buff)) <> 0) then
begin
GetWindowText(Wnd, buff, sizeof(buff));
if pos(s, StrPas(buff)) > 0 then
begin
result := true;
Break;
end;
end;
Wnd := GetWindow(Wnd, gw_hWndNext);
end; |
|
