{$ifdef 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));

{$else}
begin
{$endif}
end.
