keysend olayı yine ama harf göndermek istiyorum

[nitro]

merhaba

forumda çok arama yaptım ama bulamadım.
programım tuşlara bassın sitiyorum. yukarı, aşağı, numpad0-1-2.., enter, f1-f2... gibi tuşlar tamam ama harf göndermek istiyorum. mesela programım otomotik olarak ekrana bişey yazsın istiyorum.
mesela ben gta oynarken programım arka planda oyun hilelerini girsin istiyorum. N-U-T-T-E-R-T-O-Y-S gibi.

[karflake]

Buraya bir bakın.

[Master_Yoda]

keybd_event fonksiyonu tuş basma ve bırakma işlemlerini simule eder. ilk parametre virtual key code dur. karakterlerin virtual key code karşılıklarını ise VkKeyScan fonksiyonu bu işi yapar. Scan code a gerek yok. ben deneme için şöyle bir şey yazdım:

Kod: Tümünü seç

Procedure StrToKeyb(s:String);
Var i,j : Integer;
Begin
  for i:=1 To Length(s) do Begin
     j:=VkKeyScan(s[i]);
     keybd_event(j,0,0,0);
     keybd_event(j,0,2,0);
  End;
End;

procedure TForm1.Button2Click(Sender: TObject);

begin
 edit11.SetFocus;
 StrToKeyb('Deneme');
end;

test edersen büyük harf lerinde küçük (yada capslock açıksa küçüklerin büyük) çıktığı nı göreceksin. Bu önemli ise capslock tuşu kontrol edilip ayrıca shift / capslock tuş eventleri de gönderilerek büyük/ küçük harflerde doğru şekilde gönderilebilir.

Kolay gelsin

[tuanna]

Arkadaşlar yeni başlık açmadım sorumu direk buraya soruyorum

aktif bir programda enter tutşuna bastırmak istedim bir türlü olmadı forumda kodlar var....

yardımcı olurmusunuz....

[karflake]

Buradaki son mesaja bir bakın.