fpc/tests/webtbs/tw1398.pp
yury f96b571e38 * skip some tests for wince.
git-svn-id: trunk@4110 -
2006-07-06 19:08:23 +00:00

15 lines
293 B
ObjectPascal

{ %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(nil));
end.