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

* add GetDateFormatEx, from bug #35118 by 440bx

Browse Source 
(cherry picked from commit db9375d23f)
This commit is contained in:
marcoonthegit 2022-05-22 12:37:58 +02:00
parent f289275932
commit 2aa8da16c5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1314,7 +1314,6 @@ function CONSOLE_REAL_OUTPUT_HANDLE : HANDLE;
function AttachConsole(dwProcessId:DWORD):BOOL;stdcall;external 'kernel32' name 'AttachConsole';
function ATTACH_PARENT_PROCESS : DWORD;
function GetConsoleDisplayMode(lpModeFlags:LPDWORD):BOOL;stdcall;external 'kernel32' name 'GetConsoleDisplayMode';
function SetConsoleDisplayMode(hConsoleOutput:HANDLE; dwFlags:DWORD; lpNewScreenBufferDimensions:PCOORD):BOOL;stdcall;external 'kernel32' name 'SetConsoleDisplayMode';
function GetConsoleWindow:HWND;stdcall;external 'kernel32' name 'GetConsoleWindow';
@ -1331,6 +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';
// only in widechar variant.
function GetDateFormatEx(LocaleName : pwidechar;Flags : DWORD;Date : PSYSTEMTIME; Format : pwidechar; DateBuffer : pwidechar; BufferLen : longint; Calendar : pwidechar) : BOOL; stdcall; external 'kernel32';
{$endif read_interface}