* give pthread_start_routine a proper Delphi compat prototype.

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

closes #39852

(cherry picked from commit fd179a61f9fd68759262ed42772955583191d2c1)

rtl/win/wininc/base.inc

@@ -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;
 

rtl/win/wininc/func.inc

@@ -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}