Tastendruck von Strg, Shift, Alt usw. feststellen in Pascal

[Drakes]

Danke! Ich werde mich mal durcharbeiten und gucken, ob ich etwas brauchbares finde.

...

Ich hab es doch schon geschrieben, wie die Lösung ist, der Rest ist genau der gleiche, einfach das zurückgeben des Wertes anders.

Code:

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

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

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

(kleiner Unterschied bei Shift am Schluss)
Wobei man das ganze wahrscheinlich anders machen sollte, damit man die Funktionen nicht 3 mal aufrufen muss.

Edit: Okay, sry. ^^"

[RPG Hacker]

Ich hab es doch schon geschrieben, wie die Lösung ist, der Rest ist genau der gleiche, einfach das zurückgeben des Wertes anders.

...

Das sollte soviel heißen wie "Danke, ich gucke ob das klappt"

EDIT:
Und das tut es natürlich