mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 16:47:53 +02:00
15 lines
293 B
ObjectPascal
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.
|