Кажется я первый раз попал в тупик.
Не то, чтобы я сильно умный, но и задачка — не "Балтика 9".
Первая часть задачи выглядела вот так:
Что не так с этим кодом?
Приступим.
Не то, чтобы я сильно умный, но и задачка — не "Балтика 9".
Первая часть задачи выглядела вот так:
Что не так с этим кодом?
procedure TForm1.Button1Click(Sender: TObject);
var
Wnd: HWND;
function EnumWindowsProc(const AWnd: HWND; const AParam: LPARAM): BOOL; stdcall;
begin
if AWnd = Wnd then
Caption := 'OK';
Result := True;
end;
begin
Wnd := Handle;
EnumWindows(@EnumWindowsProc, 0);
end;
Приступим.