paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 18:30:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* give pthread_start_routine a proper Delphi compat prototype.

Browse Source 
* add Delphi alias for callback.
 * add queueuserworkitem
 * add name clause GetDateFormatEx

closes #39852

(cherry picked from commit fd179a61f9)
This commit is contained in:
marcoonthegit 2022-08-09 09:59:19 +02:00
parent 298f443aa5
commit 90050adcfe
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/win/wininc/base.inc
View File

@ -623,9 +623,10 @@
LPCFHOOKPROC = function (_para1:HWND; _para2:UINT; _para3:WPARAM; _para4:LPARAM):UINT_PTR;stdcall;
PTHREAD_START_ROUTINE = Pointer;
PTHREAD_START_ROUTINE = function(p:pointer):integer; stdcall;
LPTHREAD_START_ROUTINE = PTHREAD_START_ROUTINE;
TThreadStartRoutine = PTHREAD_START_ROUTINE;
EDITSTREAMCALLBACK = function (_para1:DWORD_PTR; _para2:LPBYTE; _para3:LONG; _para4:PLONG):DWORD;stdcall;

3
rtl/win/wininc/func.inc
View File

@ -1330,9 +1330,10 @@ function CONSOLE_REAL_OUTPUT_HANDLE : HANDLE;
function RealChildWindowFromPoint(Parent : HWND; Pt : TPOINT): HWND; stdcall; external 'user32.dll' name 'RealChildWindowFromPoint';
function GetGuiResources(ProcessHandle : THANDLE; ResourceType : DWORD): DWORD; stdcall; external 'user32.dll' name 'GetGuiResources';
function SendInput(InputsCount : UINT; InputsPtr : PINPUT; Size : WINT) : UINT; stdcall; external 'user32.dll' name 'SendInput';
function QueueUserWorkItem(func: LPTHREAD_START_ROUTINE; Context: pointer; Flags: ULONG): BOOL; stdcall; external 'kernel32' name 'QueueUserWorkItem';
// only in widechar variant.
function GetDateFormatEx(LocaleName : pwidechar;Flags : DWORD;Date : PSYSTEMTIME; Format : pwidechar; DateBuffer : pwidechar; BufferLen : longint; Calendar : pwidechar) : BOOL; stdcall; external 'kernel32';
function GetDateFormatEx(LocaleName : pwidechar;Flags : DWORD;Date : PSYSTEMTIME; Format : pwidechar; DateBuffer : pwidechar; BufferLen : longint; Calendar : pwidechar) : BOOL; stdcall; external 'kernel32' name 'GetDateFormatEx';
{$endif read_interface}