Вывод на экран состояния клавиш

[Seafulf]

Уважаемые программисты.
Можете помочь вот в таком вопросе. Я больше разбираюсь в "железе" и не очень хорошо разбираюсь в ассемблере.

Можете помочь написать программу, непрерывно выводящую на экран состояние клавиш Caps Lock, Num Lock и Scroll Lock. Её надо написать как-то при помощи резидента.

Большое спасибо!

[rpy3uH]

на чём надо написать? вот пример на Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  k:TKeyboardState;
begin
  GetKeyboardState(k);
  if BOOL(k[VK_NUMLOCK]) then ShowMessage('NUM LOCK включён');
  if BOOL(k[VK_SCROLL]) then ShowMessage('SCROLL LOCK включён');
  if BOOL(k[VK_CAPITAL]) then ShowMessage('CAPS LOCK включён');
end;

FASM

format PE GUI 4.0
entry start

include 'win32a.inc'

section '.code' code readable writeable executable

  message db 'Hello world!',0

  caps db 'caps lock',0
   num db 'num lock',0
   scroll db 'scroll lock',0

   buff db 256 dup (?)

 start:
                
          invoke GetKeyboardState, buff
          
          mov edi, buff
          add edi, VK_CAPITAL
          
          cmp byte [edi], 0
          jz  @f
          
          stdcall [MessageBox],0,caps,caps,0
          
         @@:

          mov edi, buff
          add edi, VK_NUMLOCK
          
          cmp byte [edi], 0
          jz  @f
          
          stdcall [MessageBox],0,num,num,0
          
         @@:

          mov edi, buff
          add edi, VK_SCROLL
          
          cmp byte [edi], 0
          jz  @f
          
          stdcall [MessageBox],0,scroll,scroll,0
          
         @@:

           invoke  ExitProcess,0

section '.idata' import data readable writeable

  library kernel,'KERNEL32.DLL',\
          user,'USER32.DLL'

  import kernel,\  
         ExitProcess,'ExitProcess'


  import user,\
         GetKeyboardState, 'GetKeyboardState',\
         MessageBox,'MessageBoxA'

[Seafulf]

Большое спасибо за помощь. А вот эту самую штуку можно написать на ассемблере через tasm.exe?

format PE GUI 4.0
entry start

include 'win32a.inc'

section '.code' code readable writeable executable

  message db 'Hello world!',0

  caps db 'caps lock',0
   num db 'num lock',0
   scroll db 'scroll lock',0

   buff db 256 dup (?)

 start:
                
          invoke GetKeyboardState, buff
          
          mov edi, buff
          add edi, VK_CAPITAL
          
          cmp byte [edi], 0
          jz  @f
          
          stdcall [MessageBox],0,caps,caps,0
          
         @@:

          mov edi, buff
          add edi, VK_NUMLOCK
          
          cmp byte [edi], 0
          jz  @f
          
          stdcall [MessageBox],0,num,num,0
          
         @@:

          mov edi, buff
          add edi, VK_SCROLL
          
          cmp byte [edi], 0
          jz  @f
          
          stdcall [MessageBox],0,scroll,scroll,0
          
         @@:

           invoke  ExitProcess,0

section '.idata' import data readable writeable

  library kernel,'KERNEL32.DLL',\
          user,'USER32.DLL'

  import kernel,\  
         ExitProcess,'ExitProcess'


  import user,\
         GetKeyboardState, 'GetKeyboardState',\
         MessageBox,'MessageBoxA'

[rpy3uH]

да всё можно

.386                                
.model  flat, stdcall

extrn MessageBoxA:PROC
extrn GetKeyboardState:PROC
extrn ExitProcess:PROC

VK_CAPITAL equ 20
VK_NUMLOCK equ 144
VK_SCROLL equ 145
.data    

  message db 'Hello world!',0

  caps db 'caps lock',0
   num db 'num lock',0
   scroll db 'scroll lock',0

   buff db 256 dup (?)

.code
 start:
		
	  call GetKeyboardState,offset buff
	  
	  mov edi, offset buff
	  add edi, VK_CAPITAL
	  
	  cmp byte ptr [edi], 0
	  jz  next1
	  
	  call MessageBoxA,0,offset caps,offset caps,0
	  
      next1:

	  mov edi, offset buff
	  add edi,  VK_NUMLOCK
	  
	  cmp byte ptr [edi], 0
	  jz  next2
	  
	  call MessageBoxA,0,offset num,offset num,0
	  
         next2:

	  mov edi, offset buff
	  add edi, VK_SCROLL
	  
	  cmp byte ptr [edi], 0
	  jz  next3
	  
	  call MessageBoxA,0,offset scroll, offset scroll,0
	  
         next3:

	  call  ExitProcess,0

end start

[Seafulf]

Всё работает! Большое спасибо! Весьма и весьма благодарен!

[Seafulf]

Я конечно извиняюсь, чуток поторопился.
А не могли ли вы ещё выложить файл, где описаны подпрограммы.
extrn MessageBoxA:PROC
extrn GetKeyboardState:PROC
extrn ExitProcess:PROC

[rpy3uH]

это API функции, они описаны в системных библиотеках kernel32.dll и user32.dll