paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 10:30:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

* disable the VESA features by default if running under MS WinNT and above

Browse Source 
git-svn-id: trunk@27798 -
This commit is contained in:
Tomas Hajny 2014-05-17 16:30:52 +00:00
parent 7e1c370c17
commit 9f56c6ec11
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ide/vesa.pas
View File

@ -743,4 +743,23 @@ BEGIN
SetVESAVideoDriver:=true; SetVESAVideoDriver:=true;
END; END;
function ChkWinNT: boolean;
var
R: Registers;
begin
ChkWinNT := false;
R.AX := $3306;
RealIntr ($21, R);
if (R.AL = 255) or (R.BX <> 50 * 256 + 5) then
Exit;
R.AX := $3000;
RealIntr ($21, R);
if (R.AX = 5) and (R.BH = 255) then
ChkWinNT := true;
end;
begin
(* Let's disable VESA functions by default if running under MS Windows NT+ *)
if ChkWinNT then
DisableVESA := true;
END. END.