mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-01 23:06:05 +02:00
15 lines
299 B
ObjectPascal
15 lines
299 B
ObjectPascal
{ %target=win32,wince }
|
|
|
|
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.
|