Очень прошу помочь. Пишу на XE6. Есть код под VCL, который ищет все заголовки окон WINDOWS. решил интегрировать в FM. В результате ошибка:
[dcc32 Error] Unit3.pas(76): E2003 Undeclared identifier: 'Handle'.
Вот код:
procedure TForm3.SpeedButton1Click(Sender: TObject);
var
hwin:hwnd;
buff: array [0..127] OF Char;
s :string;
begin
hwin := GetWindow(application.Handle, gw_HWndFirst);
while hwin <> 0 do
begin
GetWindowText(hwin, buff, sizeof(buff));
s := StrPas(buff);
if s <> '' then
begin
if Pos('Watch 3 Alarms :',s )<>0 then
begin
showwindow(PAnsiChar(application.Handle),sw_hide);
hwin:=FindWindow(nil, Pchar(s));
ShowWindow(hwin,SW_SHOWMAXIMIZED);
keybd_event(VK_LCONTROL, 0, 0, 0); //Нажатие левого Ctrl.
if label2.text='Комната 01' then
keybd_event(Ord('2'), 0, 0, 0) else //Нажатие '1'.
keybd_event(Ord('1'), 0, 0, 0); //Нажатие '1'.
keybd_event(VK_LCONTROL, 0, KEYEVENTF_KEYUP, 0); //Отпускание левого Ctrl.
ShowWindow(hwin,SW_HIDE);
fdquery1.Active:=false;
fdquery1.Active:=true;
end;