PostMessage problem

[k4ni]

Joar zudem ist das ja ziehmlich harmlos den in dem spiel hacken sowieso 40% der spieler. Das ist ein Auto-Chatter nix dagegen .

Nur hab ich jetzt rausgefunden das ich die PostMessage function einfach anderst benützen muss den das geht auch nicht:

Delphi-Quellcode:

procedure SendText(Handle: HWND; AText: String);
var lCount, Ky : Integer;
    lScanCode  : Smallint;
    h          : HWND;
    lWithShift : Boolean;
begin
for lCount := 1 To Length(AText) Do
  begin
    lScanCode := VkKeyScan(AText[lCount]);
    lWithShift := lScanCode and (1 shl 8)  <> 0;

    if lWithShift then
      keybd_event(VK_SHIFT, 0, 0, 0); 

    PostMessage(Handle, WM_KeyDown, lScanCode, 0);

    if lWithShift then
      keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
end;
end;

Doch wie kann ich ermitteln ob iScanCode ein großbuchstabe ist?

Edit:
Also ich hab zumbeispiel auch rausgefunden das 1 = 49 ist und ! = 305 .
Aber ob 49 oder 305 beides sendet eine 1.