mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
23 lines
319 B
ObjectPascal
23 lines
319 B
ObjectPascal
{ %target=win32,win64,wince }
|
|
{ %norun }
|
|
program Project1;
|
|
|
|
uses
|
|
Classes;
|
|
|
|
const
|
|
kernel32 = 'kernel32.dll';
|
|
|
|
type
|
|
BOOL = Boolean;
|
|
HANDLE = THandle;
|
|
|
|
function OpenThread(
|
|
{_In_} dwDesiredAccess: DWORD;
|
|
{_In_} bInheritHandle: BOOL;
|
|
{_In_} dwThreadId: DWORD
|
|
): HANDLE; WINAPI; external kernel32;
|
|
|
|
begin
|
|
end.
|