كليد هاي num و capslock در نوار وضعيت رو چجوري روشن و خاموش ميكنن؟؟

ميخوام با فشاردادن num و caps در يك نوار وضعيت اونا رو فعال و غير فعال كنم لطفا كمك كنيد

سلام
اينطوري :

کد:

---

procedure SimulateKeystroke(Key: byte; extra: DWORD);
begin
  keybd_event(Key, extra, 0, 0);
  keybd_event(Key, extra, KEYEVENTF_KEYUP, 0);
end;

---

کد:

---

procedure ToggleCapsLock;
begin
  SimulateKeystroke(VK_CAPITAL, 0);
end;

procedure ToggleNumLock;
begin
  SimulateKeystroke(VK_NUMLOCK, 0);
end;

---

سلام آقاي نون فورس
ممنون كه راهنمايي كردي
ميخواستم كاملتر توضيح بدين چون من در برنامه يه statusbar گذاشتم كه شامل 2 پانل يكي NUM و ديگري Capslockهستش ؛ با فشار دادن كليد ها ميخوام فعال يا غير فعال(كم رنگ) بشن
با تشكر

كسي نبود كمكم كنه !!!!!!!!!!!!!!!!!!!!!!

برای چک کردن وضعیت وضعیت دو دکمه CapsLock و NumLock
می توان از تابع API ویندوز GetKeyState استفاده کرد.

برای نشان دادن وضعیت روشن یا خاموش بودن CapsLock:

کد:

---

  if GetKeyState(VK_CAPITAL)>0 then
    label1.Caption:='CAPS ON'
  else
    label1.Caption:='CAPS OFF';

---

برای نشان دادن وضعیت روشن یا خاموش بودن NumLock:

کد:

---

  if GetKeyState(VK_NUMLOCK)>0 then
    label2.Caption:='NUM ON'
  else
    label2.Caption:='NUM OFF';

---

به نظرم برای اینکه به محض فشرده شدن دو کلید فوق برنامه فوری عکس العمل
نشون بده (حتی اگر برنامه شما Active هم نباشه) دو کد بالا رو داخل OnTimer
یک Timer بنویس.