diff options
author | sergei <sergei@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-02-01 13:10:15 +0000 |
---|---|---|
committer | sergei <sergei@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-02-01 13:10:15 +0000 |
commit | 04ea9301b64ee116947d5ecc555ebf5a3ded24aa (patch) | |
tree | df4dc7fa8ae0eac079c15ac65da61a04b52dbeb3 /rtl/win/wininc/redef.inc | |
parent | 991be808d371087f465707a25986e61a9d0d9866 (diff) | |
download | fpc-04ea9301b64ee116947d5ecc555ebf5a3ded24aa.tar.gz |
+ Windows unit: add GetCPInfoEx function and related definitions, patch from G.Fink, Mantis #18654
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16862 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/win/wininc/redef.inc')
-rw-r--r-- | rtl/win/wininc/redef.inc | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/rtl/win/wininc/redef.inc b/rtl/win/wininc/redef.inc index b67584dd79..943669c0de 100644 --- a/rtl/win/wininc/redef.inc +++ b/rtl/win/wininc/redef.inc @@ -483,6 +483,13 @@ function GetConsoleCursorInfo(hConsoleOutput: THandle; var lpConsoleCursorInfo: function GetConsoleMode(hConsoleHandle: THandle; var lpMode: DWORD): BOOL; external 'kernel32' name 'GetConsoleMode'; function GetConsoleScreenBufferInfo(hConsoleOutput: THandle; var lpConsoleScreenBufferInfo: TConsoleScreenBufferInfo): BOOL; external 'kernel32' name 'GetConsoleScreenBufferInfo'; function GetCPInfo(CodePage: UINT; var lpCPInfo: TCPInfo): BOOL;external 'kernel32' name 'GetCPInfo'; +function GetCPInfoExA(Codepage:UINT; dwFlags:DWORD; var CPInfoEx:TCPINFOEXA):WINBOOL; external 'kernel32' name 'GetCPInfoExA'; +function GetCPInfoExW(Codepage:UINT; dwFlags:DWORD; var CPinfoEx:TCPINFOEXW):WINBOOL; external 'kernel32' name 'GetCPInfoExW'; +{$ifndef UNICODE} +function GetCPInfoEx(Codepage:UINT; dwFlags:DWORD; var CPInfoEx:TCPINFOEX):WINBOOL; external 'kernel32' name 'GetCPInfoExA'; +{$ELSE} +function GetCPInfoEx(Codepage:UINT; dwFlags:DWORD; var CPinfoEx:TCPINFOEX):WINBOOL; external 'kernel32' name 'GetCPInfoExW'; +{$ENDIF} //function GetCurrentHwProfile(var lpHwProfileInfo: THWProfileInfo): BOOL;external 'advapi32' name 'GetCurrentHwProfileA'; //function GetCurrentHwProfileA(var lpHwProfileInfo: THWProfileInfoA): BOOL;external 'advapi32' name 'GetCurrentHwProfileA'; //function GetCurrentHwProfileW(var lpHwProfileInfo: THWProfileInfoW): BOOL;external 'advapi32' name 'GetCurrentHwProfileW'; |