| 1234567891011121314 |
- { %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.
|