Arkadaşlar cok kısa bir şekilde anlatıcam. Bu yaptığım şeyin Sinirojen v01 oyununda orneği var zaten.

Once alttaki kodu forma ekleyin.
Kod:
function SendKeys(ClassOrCaption:PChar;Keys:array of Integer):Boolean; var hW:HWND; Ix:Integer; begin hW:=FindWindow(ClassOrCaption,nil); if hW0; if Result then begin Result:=SetForeGroundWindow(hW); if not Result then Exit; for Ix:=0 to High(Keys) do KeyBd_Event(Keys[Ix], 0, 0, 0); for Ix:=High(Keys) downto 0 do Keybd_Event(Keys[Ix], 0, KEYEVENTF_KEYUP, 0); end; end;

Sonrada Mesela bir butona tıkladığınızda birşey yazmasını istiyorsunuz.

Kod:
procedure TForm1.YazBtn1Click (Sender: TObject) var a: pchar; begin a:='Notepad'; SendKeys(a,[82,82,82,75,75,75,56,56,56]); end;
Boyle yaparsanız not defteri acıp tuşa bastığınızda. Not defterine şunu yazar.

rrrkkk888

sadece bu 3 unun sayısını biliyorum ama kafadan atarakta bulabilirsiniz.



Soracağım soruda şu

Bunun gibi mesela klavyeden yukarı ok tuşuna bastığımda edit1 icindeki sayı 1 artsın. Aşağıya bastığımdada 1 azalsın. Bunun gibi işte. Ama klavyeden basınca.... Lutfen yardım
__________________