سوال در مورد كد اسكي توليد شده كيبرد

با سلام

من ميخوام با تابع GetAsyncKeyState ورودي كيبرد رو ركورد كنم . چند تا سوال داشتم


1. درحين ركورد چطوري بفهمم كليد هاي shift, Ctr , Alt فشرده شده هستن يا نه
يا كليد capsLock يا NumLock روشنه يانه ؟؟؟

2.چه طوري بفهمم زبان سيستم الان روي چه زباني فوكوس كرده . (يعني در پنجره فعال)

3.به فرض اگه بدونم زبان فوكوس شده سيستم ، فارسي هستش ، با چه الگوريتمي كد اسكي 2 بايتي كليد فشرده شده رو به 4 بايتي تبديل كنم . ميدونم با UTF8 هستش . ولي چه جوري رونميدونم

4.زماني كه كليد شيفت فشرده شده ، كد اسكي با چه عددي جمع تفريق ميشه ؟؟؟

از دوستان كه كسي نبود كمك كنه . رفتم دنبال رفرنس انگليسي

در مورد هر كدام از سوالام اگه جواب پيدا كردم ،ميزارم اينجا بقيه هم استفاده كنن.

نقل قول:

---

.چه طوري بفهمم زبان سيستم الان روي چه زباني فوكوس كرده . (يعني در پنجره فعال)

---

[PHP]
procedure TForm1.Timer1Timer(Sender: TObject);
var HWND1:HWND;
i:Cardinal;
kbd: array[0..2] of Char;
begin
HWND1:=GetForegroundWindow;
i:=GetWindowThreadProcessId(HWND1);
i:=GetKeyboardLayout(i);
GetLocaleInfo(loword(i), LOCALE_SENGLANGUAGE, kbd, 2);
Caption:=kbd;
end;
[/PHP]