Thema: Delphi PostMessage problem

Einzelnen Beitrag anzeigen

k4ni

Registriert seit: 17. Jul 2007
Ort: Ulm
258 Beiträge
 
Delphi 7 Enterprise
 
#10

Re: PostMessage problem

  Alt 30. Jan 2008, 14:25
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.
  Mit Zitat antworten Zitat