'Detecting SHIFT in Virtual Pascal Win32?' Thread RSS Feed

Detecting SHIFT in Virtual Pascal Win32?

Sat, 08 Jul 2006 09:44:40 -0700

I'm currently porting a DOS textmode game to Win32 using Virtual Pascal. I've used the below code to detect whether or not SHIFT is pressed, but it doesn't work when I try to compile in Virtual Pascal. I get "Error 3: Unknown identifier 'registers'".

function SHIFTDOWN : boolean;
var regs : registers;
begin
   FillChar (regs, SizeOf(regs), 0);
   regs.ah := $02;
   Intr ($16, regs);
   shiftdown := (regs.al and $02) = $02;
end;

Any advice on how to detect SHIFT in Virtual Pascal Win32?

Re: Detecting SHIFT in Virtual Pascal Win32?

Sat, 08 Jul 2006 13:57:44 -0700

This message was edited by Alcatiz at 2006-7-8 13:58:6

: I'm currently porting a DOS textmode game to Win32 using Virtual Pascal. I've used the below code to detect whether or not SHIFT is pressed, but it doesn't work when I try to compile in Virtual Pascal. I get "Error 3: Unknown identifier 'registers'".
:
:

: function SHIFTDOWN : boolean;
: var regs : registers;
: begin
:    FillChar (regs, SizeOf(regs), 0);
:    regs.ah := $02;
:    Intr ($16, regs);
:    shiftdown := (regs.al and $02) = $02;
: end;
:

:
: Any advice on how to detect SHIFT in Virtual Pascal Win32?
:

Hi !

First of all you can include some assembler in a Virtual Pascal source code using the asm directive.

If you have a look at the DOS unit in the \source\rtl folder you'll see that some Turbo pascal types (like Registers), procedures and functions (like Intr) are not implemented. The reason is that interrupt and direct port handling don't work in protected mode.

Re: Detecting SHIFT in Virtual Pascal Win32?

Sun, 09 Jul 2006 01:34:00 -0700

:
: Hi !
:
: First of all you can include some assembler in a Virtual Pascal source code using the asm directive.
:
: If you have a look at the DOS unit in the \source\rtl folder you'll see that some Turbo pascal types (like Registers), procedures and functions (like Intr) are not implemented. The reason is that interrupt and direct port handling don't work in protected mode.
:
:

So, I can't modify the code to make it work in protected mode? Bummer. Do you know of any other way to detect whether or not SHIFT is down in protected mode?

Re: Detecting SHIFT in Virtual Pascal Win32?

Sun, 09 Jul 2006 06:32:40 -0700

: :
: : Hi !
: :
: : First of all you can include some assembler in a Virtual Pascal source code using the asm directive.
: :
: : If you have a look at the DOS unit in the \source\rtl folder you'll see that some Turbo pascal types (like Registers), procedures and functions (like Intr) are not implemented. The reason is that interrupt and direct port handling don't work in protected mode.
: :
: :
:
: So, I can't modify the code to make it work in protected mode? Bummer. Do you know of any other way to detect whether or not SHIFT is down in protected mode?
:
To detect if the SHIFT key is pressed you can use the GetKeyboardState function of then VPUtils unit as follows :

if GetKeyboardState( kbd_Shift ) then 
   ...

Re: Detecting SHIFT in Virtual Pascal Win32?

Sun, 09 Jul 2006 09:44:32 -0700

: To detect if the SHIFT key is pressed you can use the GetKeyboardState function of then VPUtils unit as follows :
:

if GetKeyboardState( kbd_Shift ) then 
:    ...

:

I tried to test this in the below code, but it doesn't seem to work. It always writes "SHIFT NOT PRESSED!".

PROGRAM TEST;

USES Crt, VPUTILS;

VAR PressedKey : Word;

BEGIN
   PressedKey := 0;
   ClrScr;
   REPEAT
      REPEAT UNTIL KeyPressed;
      PressedKey := Ord(ReadKey);
      GotoXY(1,1);
      IF GetKeyboardState(kbd_Shift) THEN Write('SHIFT PRESSED!    ')
      ELSE Write('SHIFT NOT PRESSED!');
   UNTIL PressedKey = 27;
END.

Re: Detecting SHIFT in Virtual Pascal Win32?

Sun, 09 Jul 2006 14:32:05 -0700

: : To detect if the SHIFT key is pressed you can use the GetKeyboardState function of then VPUtils unit as follows :
: :

if GetKeyboardState( kbd_Shift ) then 
: :    ...

: :
:
: I tried to test this in the below code, but it doesn't seem to work. It always writes "SHIFT NOT PRESSED!".
:
:

: PROGRAM TEST;
: 
: USES Crt, VPUTILS;
: 
: VAR PressedKey : Word;
: 
: BEGIN
:    PressedKey := 0;
:    ClrScr;
:    REPEAT
:       REPEAT UNTIL KeyPressed;
:       PressedKey := Ord(ReadKey);
:       GotoXY(1,1);
:       IF GetKeyboardState(kbd_Shift) THEN Write('SHIFT PRESSED!    ')
:       ELSE Write('SHIFT NOT PRESSED!');
:    UNTIL PressedKey = 27;
: END.
:

:
Well your code works fine in my Windows 2000 console - but I had to add this compiler directive :

{$PMTYPE VIO}

Re: Detecting SHIFT in Virtual Pascal Win32?

Mon, 10 Jul 2006 00:09:11 -0700

: Well your code works fine in my Windows 2000 console - but I had to add this compiler directive :
:

: {$PMTYPE VIO}
:

:

I tried adding this, but that didn't do anything. I'm running Windows 98 if that something interferes with what I'm trying to do. Also, in the "Linker" options the "Application" is already set to "Compatible with GUI". Isn't that what the {$PMTYPE VIO} does?

Re: Detecting SHIFT in Virtual Pascal Win32?

Mon, 10 Jul 2006 12:21:38 -0700

This message was edited by Alcatiz at 2006-7-10 12:22:6

: : Well your code works fine in my Windows 2000 console - but I had to add this compiler directive :
: :

: : {$PMTYPE VIO}
: :

: :
:
:
: I tried adding this, but that didn't do anything. I'm running Windows 98 if that something interferes with what I'm trying to do. Also, in the "Linker" options the "Application" is already set to "Compatible with GUI". Isn't that what the {$PMTYPE VIO} does?
:
Yes it's right.

I also tried the code on Windows 98 and it doesn't detect the shift key. It seems to work only on Windows NT/2000/XP.
I think that Windows 98 allows you to read ports directly so maybe you can try to read port 60h in your loop ?

Re: Detecting SHIFT in Virtual Pascal Win32?

Tue, 11 Jul 2006 05:20:44 -0700

: This message was edited by Alcatiz at 2006-7-10 12:22:6

: : : Well your code works fine in my Windows 2000 console - but I had to add this compiler directive :
: : :

: : : {$PMTYPE VIO}
: : :

: : :
: :
: :
: : I tried adding this, but that didn't do anything. I'm running Windows 98 if that something interferes with what I'm trying to do. Also, in the "Linker" options the "Application" is already set to "Compatible with GUI". Isn't that what the {$PMTYPE VIO} does?
: :
: Yes it's right.
:
: I also tried the code on Windows 98 and it doesn't detect the shift key. It seems to work only on Windows NT/2000/XP.
: I think that Windows 98 allows you to read ports directly so maybe you can try to read port 60h in your loop ?
:
:
:

Ok, I'll try that. Thanks for your help! :o)