Pascal/Turbo Pascal - CapsLock en Pascal

   
Vista:

CapsLock en Pascal

Publicado por soulblazer (19 intervenciones) el 18/01/2014 02:01:59
Por ahí vi este código para encender el CapsLock desde Pascal y NO CORRE.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program capslock;
 
uses crt;
 
var
      keyboard : byte absolute $0040:$0017;
      regs : registers;
     encender : boolean;
 
begin
          encender = true;
          if encender then
               keyboard := keyboard or $40
          else
                  keyboard := keyboard and $BF;
           FillChar (regs, SizeOf(regs), 0);
           regs.ah := $01;
           Intr ($16, regs);
end.

Me dice que registers no es un identificador válido.
end.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

CapsLock en Pascal

Publicado por ramon (2072 intervenciones) el 18/01/2014 11:29:19
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
{La causa del error la puedes apreciar comparando tu código con este corregido espero esto te ayude}
 
program capslock;
 
uses crt, dos;
 
var
keyboard : byte absolute $0040:$0017;
regs : registers;
encender : boolean;
 
begin
encender := true;
if encender then
keyboard := keyboard or $40
else
keyboard := keyboard and $BF;
FillChar (regs, SizeOf(regs), 0);
regs.ah := $01;
Intr ($16, regs);
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar