sndkey32tr Sorun!

[d4erth]

Merhaba abilerim bu konu forumumuzda açılmıştı malesef ama benm sorunum farklı biraz diğer konu burda : viewtopic.php?t=1587

şimdi karflake abimin kodu

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  keybd_event(VK_LWIN, 0, 0, 0);
  keybd_event(Ord('L'), 0, 0, 0);
  keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);
end;

normal de çok başarılı yani sadece delphi açıkken ben bi uygulama açıom kod çalışmıo yani durduruo uygulama bu kodu bu sorunu nası çözebiliriz teşekkür ederim.

[depresif]

yapmak istediğini ve sorununu tam anlayamadım ama sndkey32tr yi kullanman için

Kod: Tümünü seç

sendKeys('metin',true)

şeklinde yazman gerekir

[d4erth]

ya çok doğru sendkey le bu kod bağımsız gecenin bi yarıusında yazdığım için kusura bakmayın nese bu

Kod: Tümünü seç

  keybd_event(VK_LWIN, 0, 0, 0);
  keybd_event(Ord('L'), 0, 0, 0);
  keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);

kodu yazıorum dediğim gibi normalde bir şey yok ama bi uygulama açıorum bu kodu çalışmıyor yani uygulamaya engelliyor çalışmasını umarım anlatabilmişimdir.