library altgr95;
{$C PRELOAD FIXED PERMANENT}
uses WinDos,WinProcs,WinTypes;
var
OldInt09: Pointer;
KS: TKeyboardState;
procedure NewInt09; interrupt;
const
E0Flag:Boolean=false;
var
B:Byte;
ShiftState: Byte absolute $40:$96; {mte gehen!!}
begin
B:=Port[$60];
if E0Flag then case B of
92: begin
GetKeyboardState(KS);
KS[VK_Control]:=#$80;
KS[VK_Menu]:=#$80;
SetKeyboardState(KS);
end;
220: begin
GetKeyboardState(KS);
KS[VK_Control]:=#$00;
KS[VK_Menu]:=#$00;
SetKeyboardState(KS);
end;
end;
E0Flag:=B=$E0;
asm
pushf
call [OldInt09]
end;
end;
procedure WEP;
begin
SetIntVec(9,OldInt09);
end;
begin
GetIntVec(9,OldInt09);
SetIntVec(9,@NewInt09);
end.
Vorgefundene Kodierung: UTF-8 | 0
|