Kod: Tümünü seç
memo2.Lines.Add(inttostr(key)); //memo 2 ye key kodlarını atıyor
Kod: Tümünü seç
var
Pt : TPoint;
winhand:hwnd;
begin
WinHand := GetActiveWindow;
SetForegroundWindow(WinHand);
for i:=0 to memo2.Lines.Count-1 do
begin
keybd_event(strtoint(memo2.Lines[i]), 0, 0, 0); //memo2 den karakterleri alıp yolluyor...
keybd_event(strtoint(memo2.Lines[i]), 0, KEYEVENTF_KEYUP, 0);
end;
Sendkey32tr unitini inceledim ama Ctrl+V tuş kombinasyonunu bir türlü aynı anda gönderemedim..
Yapmak istediğim TwebBrowser üzerinde mausu konumlandırıp sol tıklattıktan sonra kopyaladığım dosya yolunu buraya yapıştırmak.
Type file olan kutucuğa dışarıdan yazmaya çalışıyorum.
Ctrl+V tuş kombinasyonunun bu unitteki integer karşılığını paylaşabilirseniz sevinirim.
Teşekkür ederim..