SendKey32tr de Ctrl+V Kombinasyonu Nedir ?

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Necatiozbek
Üye
Mesajlar: 24
Kayıt: 23 Eki 2006 06:33

SendKey32tr de Ctrl+V Kombinasyonu Nedir ?

Mesaj gönderen Necatiozbek »

Kod: Tümünü seç

memo2.Lines.Add(inttostr(key)); //memo 2 ye key kodlarını atıyor
Yukarıdaki kod memo1 e girilen tuş değerlerini memo2 ye integer değerlerini 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;
Yukarıdaki kod da aktif pencereyi alıp memo 2 deki key karşılıklarını alıp keyleri gönderiyor.

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..
Cevapla