Capslock Ve Delphi 7

[kaan_karabey]

Bu konuyu nereye açaçağımı bilemedim o yüzden buraya açmaya karar verdim. programlamayla ilgili diye.yanlış yere açtıysam affola

 

Arkadaslar ben proje ödevi için delphi 7 de program yazdım program açıldıgında capslock tusunu da aktif etmesini istiyorum.CapsLocku Açma Ayarını nasıl yapacam acaba yardım edebilecek biri var mı?

Edited April 21, 2013 by kaan_karabey

[pairs]

Sorunu yazılım bolumune acmalisin

[reyiz]

SendKeys"{CAPSLOCK}"

Dener misiniz?

[reyiz]

Bir de böyle bir kod buldum kendinize göre uyarlayabilirsiniz.

Eğer capslock kapalı ise açılmasını sağlayabilirsiniz:
 

 procedure ToggleNumLock;
 var
    KeyState: TKeyboardState;
 begin
    //note: Use VK_CAPITAL for Caps Lock
 
    GetKeyboardState(KeyState) ;
 
    //simulate key events (down + up)
    if (KeyState[VK_NUMLOCK] = 0) then
    begin
      Keybd_Event(VK_NUMLOCK, 1, KEYEVENTF_EXTENDEDKEY or 0, 0) ;
      Keybd_Event(VK_NUMLOCK, 1, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0) ;
    end
    else
    begin
      Keybd_Event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY or 0, 0) ;
      Keybd_Event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0) ;
    end;
 end; 

[NoobAccountant]

Bu konu "AutoPlay Media Studio" forumundan "Yazılım" forumuna taşınmıştır.

[kaan_karabey]

 

Bir de böyle bir kod buldum kendinize göre uyarlayabilirsiniz.

Eğer capslock kapalı ise açılmasını sağlayabilirsiniz:
 

 procedure ToggleNumLock;
 var
    KeyState: TKeyboardState;
 begin
    //note: Use VK_CAPITAL for Caps Lock
 
    GetKeyboardState(KeyState) ;
 
    //simulate key events (down + up)
    if (KeyState[VK_NUMLOCK] = 0) then
    begin
      Keybd_Event(VK_NUMLOCK, 1, KEYEVENTF_EXTENDEDKEY or 0, 0) ;
      Keybd_Event(VK_NUMLOCK, 1, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0) ;
    end
    else
    begin
      Keybd_Event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY or 0, 0) ;
      Keybd_Event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0) ;
    end;
 end; 

bunu neresine yazacam anlamadım :(

[SimpsoN_Bart]

Orası sana kalmış bir durum ister load olayına ister buton koyun onun olayına yazabilirsin.Buton için.

procedure TForm1.Button1Click(Sender: TObject) ;
 begin
   ...
 end; 

[kaan_karabey]

 

Orası sana kalmış bir durum ister load olayına ister buton koyun onun olayına yazabilirsin.Buton için.

procedure TForm1.Button1Click(Sender: TObject) ;
 begin
   ...
 end; 

öyle diyorsunda ben program çalıstıgı anda otomatik olarak capslock kapalı ise acmasını istiyorum.butonla falan değil.

[pairs]

Forum un On Create Eventi ne

[SimpsoN_Bart]

E o zaman dediğim gibi yapacaksın reyizin kodlarını on create (load) eventine yazacaksın bu kadar.

Edited April 21, 2013 by SimpsoN_Bart