fpc/tests/webtbs/tw1398.pp

{ %target=win32 }

uses Windows;

function Enum_FindTaskWindow (hWindow:HWND; lpar:LPARAM) : boolean; export; stdcall;
begin
  Enum_FindTaskWindow := FALSE;
end;

var dwThread:DWORD;
begin
  dwThread := GetCurrentThreadId;
  EnumTaskWindows (dwThread, @Enum_FindTaskWindow, LPARAM(NULL));
end.