mirror of
https://github.com/UzixLS/KernelEx.git
synced 2025-07-18 23:11:19 +03:00
135 lines
4.1 KiB
C
Executable File
135 lines
4.1 KiB
C
Executable File
/*
|
|
* KernelEx
|
|
*
|
|
* Copyright 1993 Alexandre Julliard
|
|
* 1997 Alex Korobka
|
|
* Copyright 2002,2003 Shachar Shemesh
|
|
* Copyright 2003 CodeWeavers Inc. (Ulrich Czekalla)
|
|
*
|
|
* Copyright (C) 2008, Tihiy
|
|
* This file is part of KernelEx source code.
|
|
*
|
|
* KernelEx is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published
|
|
* by the Free Software Foundation; version 2 of the License.
|
|
*
|
|
* KernelEx is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with GNU Make; see the file COPYING. If not, write to
|
|
* the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
*
|
|
*/
|
|
|
|
#include <windows.h>
|
|
|
|
static const char c_szUnicows[]="unicows.dll";
|
|
static const char c_szUnicowsProp[]="GodotMemoryBlock";
|
|
|
|
static int WINAPI GetCPFromLocale(LCID Locale)
|
|
{
|
|
int cp;
|
|
Locale = Locale & 0xFFFF; //we can assume that HKL == LCID in 9x... i hope :)
|
|
if (GetLocaleInfoA(Locale,LOCALE_IDEFAULTANSICODEPAGE | LOCALE_RETURN_NUMBER,(LPSTR)&cp,sizeof(int)))
|
|
return cp;
|
|
else
|
|
return CP_ACP;
|
|
}
|
|
|
|
/* MAKE_EXPORT ToUnicodeEx_new=ToUnicodeEx */
|
|
int WINAPI ToUnicodeEx_new(
|
|
UINT wVirtKey,
|
|
UINT wScanCode,
|
|
const PBYTE lpKeyState,
|
|
LPWSTR pwszBuff,
|
|
int cchBuff,
|
|
UINT wFlags,
|
|
HKL dwhkl
|
|
)
|
|
{
|
|
int result;
|
|
WORD asciibuf[4];
|
|
char ansibuf[4];
|
|
if (!lpKeyState || !pwszBuff)
|
|
{
|
|
SetLastError(ERROR_INVALID_PARAMETER);
|
|
return FALSE;
|
|
}
|
|
result = ToAsciiEx(wVirtKey,wScanCode,lpKeyState,asciibuf,wFlags,dwhkl);
|
|
if (result && cchBuff)
|
|
{
|
|
int i;
|
|
for (i = 0; i < result; i++) ansibuf[i]=(char)asciibuf[i];
|
|
MultiByteToWideChar(GetCPFromLocale((LCID)dwhkl),0,ansibuf,result,pwszBuff,cchBuff);
|
|
}
|
|
return result;
|
|
}
|
|
|
|
/* MAKE_EXPORT ToUnicode_new=ToUnicode */
|
|
int WINAPI ToUnicode_new(
|
|
UINT wVirtKey,
|
|
UINT wScanCode,
|
|
const PBYTE lpKeyState,
|
|
LPWSTR pwszBuff,
|
|
int cchBuff,
|
|
UINT wFlags
|
|
)
|
|
{
|
|
return ToUnicodeEx_new(wVirtKey,wScanCode,lpKeyState,pwszBuff,cchBuff,wFlags,GetKeyboardLayout(GetCurrentThreadId()));
|
|
}
|
|
|
|
/* MAKE_EXPORT GetLastInputInfo_new=GetLastInputInfo */
|
|
BOOL WINAPI GetLastInputInfo_new(
|
|
PLASTINPUTINFO plii // last input event
|
|
)
|
|
{
|
|
if ( !plii ) return FALSE;
|
|
plii->dwTime = GetTickCount() - 123;
|
|
return TRUE;
|
|
}
|
|
|
|
/* MAKE_EXPORT GetMessageW_new=GetMessageW */
|
|
BOOL WINAPI GetMessageW_new(
|
|
LPMSG lpMsg, // message information
|
|
HWND hWnd, // handle to window
|
|
UINT wMsgFilterMin, // first message
|
|
UINT wMsgFilterMax // last message
|
|
)
|
|
{
|
|
BOOL result;
|
|
/* HACKHACK ALERT: don't bother calling MSLU. We know how it works already. Win speed instead! */
|
|
result = GetMessageA(lpMsg,hWnd,wMsgFilterMin,wMsgFilterMax);
|
|
if (lpMsg && lpMsg->message == WM_CHAR && lpMsg->wParam > 0x7Fu && lpMsg->wParam <= 0xFFu && IsWindow(lpMsg->hwnd) && GetPropA(lpMsg->hwnd,c_szUnicowsProp))
|
|
{
|
|
WORD unichar;
|
|
char ansichar = lpMsg->wParam;
|
|
MultiByteToWideChar(GetCPFromLocale((LCID)GetKeyboardLayout(GetCurrentThreadId())),0,&ansichar,1,&unichar,1);
|
|
lpMsg->wParam = unichar;
|
|
}
|
|
return result;
|
|
}
|
|
|
|
/* This fix is mainly for Winamp. Proper fix would be to hook SetWindowLongA too, but it's too hard and still,
|
|
MSLU would fail to deliver right ANSI functions. Forget it!
|
|
*/
|
|
|
|
/* MAKE_EXPORT GetWindowLongA_new=GetWindowLongA */
|
|
LONG WINAPI GetWindowLongA_new(HWND hWnd, int nIndex)
|
|
{
|
|
LONG ret = GetWindowLongA( hWnd, nIndex );
|
|
if ( nIndex == GWL_WNDPROC && ret & 0x80000000 && GetPropA(hWnd, c_szUnicowsProp) )
|
|
{
|
|
typedef HRESULT (WINAPI *GWLU) (HWND hWnd, int nIndex);
|
|
GWLU GetWindowLongAU = (GWLU)GetProcAddress( GetModuleHandleA(c_szUnicows), "GetWindowLongA" );
|
|
if ( GetWindowLongAU )
|
|
{
|
|
LONG retU = GetWindowLongAU( hWnd, nIndex );
|
|
if ( retU ) return retU;
|
|
}
|
|
}
|
|
return ret;
|
|
}
|