Win + L tuşunu simule etmek nasıl yapılır!

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
misterapocalypse
Üye
Mesajlar: 36
Kayıt: 03 Tem 2007 06:27
Konum: Muğla-Dalaman
İletişim:

Win + L tuşunu simule etmek nasıl yapılır!

Mesaj gönderen misterapocalypse »

Arkadaşlar Merhaba! bir konuda yardım istiyorum :roll:

programda belirttiğim süre dolduğunda dolduğunda otomatik parola korumalı pozisyonuna geçmesini (yani Win + L tuşunun simule edilmesini) istiyorum.
aşağıdaki kod işimi görmedi! şimdiden teşekkürler!

Kod: Tümünü seç

Button7Click(TObject *Sender)   
{   
    // This code simulates the Windows + L hotkey for..
    keybd_event(VK_LWIN, 0, 0 ,0);   
    keybd_event('L',     0, 0 ,0);   
    keybd_event('L',     0, KEYEVENTF_KEYUP,0);   
    keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP,0);   
}
sturen
Üye
Mesajlar: 11
Kayıt: 05 Haz 2014 08:27

Re: Win + L tuşunu simule etmek nasıl yapılır!

Mesaj gönderen sturen »

Mrb;

Tuş sümilasyonu yerine login ekranını getiren uygulama veya apiyi çağırmayı denemelisin gibi geliyor bana.
Peki nasıl olacak bu diyorsan bilmiyorum. Mantığı belki yardımcı olur diye düşündüm.

Kolay gelsin.
xxxjedixxx
Üye
Mesajlar: 216
Kayıt: 10 Ara 2013 03:50

Re: Win + L tuşunu simule etmek nasıl yapılır!

Mesaj gönderen xxxjedixxx »

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  LockWorkStation;
end;
Kullanıcı avatarı
misterapocalypse
Üye
Mesajlar: 36
Kayıt: 03 Tem 2007 06:27
Konum: Muğla-Dalaman
İletişim:

Re: Win + L tuşunu simule etmek nasıl yapılır!

Mesaj gönderen misterapocalypse »

xxxjedixxx 'e teşekkür! bu kadar basit olabileceğini düşünemedim bile! kendisine teşekkür ederim verdiği kod çalışıyor!

:bravo:
Cevapla