Index: freexp/xp-d.rq =================================================================== RCS file: /server/cvs/freexp/xp-d.rq,v retrieving revision 1.68 retrieving revision 1.69 diff -u -r1.68 -r1.69 --- freexp/xp-d.rq 2 Jan 2006 12:28:52 -0000 1.68 +++ freexp/xp-d.rq 17 Jan 2006 09:57:15 -0000 1.69 @@ -3,7 +3,7 @@ K (c) 1993-1999 Peter Mandrella K (c) 2000-2001 OpenXP-Team K (c) 2002-2006 FreeXP, http://www.freexp.de -# $Id: xp-d.rq,v 1.68 2006/01/02 12:28:52 mw Exp $ +# $Id: xp-d.rq,v 1.69 2006/01/17 09:57:15 mw Exp $ # Online-Hilfe, Tastenmakros 1 XP.HLP @@ -3525,6 +3525,8 @@ 1 Windows NT 5 Windows 2000 6 Windows XP +7 Windows Server 2003 +8 Windows Vista - +20201 Index: freexp/xp-e.rq =================================================================== RCS file: /server/cvs/freexp/xp-e.rq,v retrieving revision 1.107 retrieving revision 1.108 diff -u -r1.107 -r1.108 --- freexp/xp-e.rq 2 Jan 2006 12:28:52 -0000 1.107 +++ freexp/xp-e.rq 17 Jan 2006 09:57:15 -0000 1.108 @@ -3,7 +3,7 @@ K (c) 1993-1999 Peter Mandrella K (c) 2000-2001 OpenXP-Team K (c) 2002-2006 FreeXP, http://www.freexp.de -# $Id: xp-e.rq,v 1.107 2006/01/02 12:28:52 mw Exp $ +# $Id: xp-e.rq,v 1.108 2006/01/17 09:57:15 mw Exp $ # Online Help File, Key Macros 1 XP-E.HLP @@ -3484,6 +3484,8 @@ 1 Windows NT 5 Windows 2000 6 Windows XP +7 Windows Server 2003 +8 Windows Vista - +20201 Index: freexp/xp5.pas =================================================================== RCS file: /server/cvs/freexp/xp5.pas,v retrieving revision 1.61 retrieving revision 1.62 diff -u -r1.61 -r1.62 --- freexp/xp5.pas 2 Jan 2006 12:28:51 -0000 1.61 +++ freexp/xp5.pas 17 Jan 2006 09:57:15 -0000 1.62 @@ -8,7 +8,7 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: xp5.pas,v 1.61 2006/01/02 12:28:51 mw Exp $ } +{ $Id: xp5.pas,v 1.62 2006/01/17 09:57:15 mw Exp $ } { CrossPoint - Utilities } @@ -452,29 +452,40 @@ end; 4: if Lo(WinNTVersion) = 0 then begin - Write(GetRes2(20201,WinNTVersion shr 16)); + Write(GetRes2(20201,1)); attrtxt(col.colmboxhigh); - gotoxy(x+24,y+1); + gotoxy(x-18,y+2); Write('XP_NTVDM.DLL'); attrtxt(col.colmbox); + gotoxy(x,y+2); Write(' not found.'); end else begin - if lo(WinNTVersion) in [5,6] then - begin - if Hi(WinNTVersion) = 0 then - Write(GetRes2(20200,5)) { 'Windows 2000' } - else - Write(GetRes2(20200,6)) { 'Windows XP' } - end else - Write(GetRes2(20200,1)); { 'Windows NT' } + case lo(WinNTVersion) of + 5: begin + case Hi(WinNTVersion) of + 0: Write(GetRes2(20200,5)); { 'Windows 2000' } + 1: Write(GetRes2(20200,6)); { 'Windows XP' } + 2: Write(GetRes2(20200,7)); { 'Windows Server 2003' } + else Write(GetRes2(20200,1)) { 'Windows NT' } + end; + end; + 6: begin + case Hi(WinNTVersion) of + 0: Write(GetRes2(20200,8)); { 'Windows Vista' } + else Write(GetRes2(20200,1)) { 'Windows NT' } + end; + end; + else Write(GetRes2(20200,1)) { 'Windows NT' } + end; Write(' [',lo(WinNTversion),'.', hi(WinNTversion),'.',Winntversion shr 16,']'); attrtxt(col.colmboxhigh); - gotoxy(x+24,y+1); + gotoxy(x-18,y+2); Write('XP_NTVDM.DLL Rev. '); attrtxt(col.colmbox); + gotoxy(x,y+2); Write(xp_ntvdm_ver:2) end; end; @@ -499,7 +510,7 @@ ntdk : longint; begin win:=(WinVersion>0); - msgbox(70,iif(win,17,16),getres2(rnr,1),x,y); + msgbox(70,iif(win,18,17),getres2(rnr,1),x,y); attrtxt(col.colmboxhigh); moff; wrt(x+4,y+2,xp_xp+' '+verstr+betastr); @@ -577,14 +588,14 @@ write(diskfree_string(0)); WriteVer(os2,win,lnx,x+22,y+11); attrtxt(col.colmboxhigh); - wrt(x+4,y+iif(win,14,13),'Overlay'); + wrt(x+4,y+iif(win,15,14),'Overlay'); attrtxt(col.colmbox); - gotoxy(x+23,y+iif(win,14,13)); + gotoxy(x+23,y+iif(win,15,14)); if ((xmsovrbuf=true) and (emsovrbuf=false)) then write('XMS') else if ((xmsovrbuf=false) and (emsovrbuf=true)) then write('EMS') else if ((xmsovrbuf=false) and (emsovrbuf=false)) then write('Disk') else if ((xmsovrbuf=true) and (emsovrbuf=true)) then write('ERROR'); - wrt(x+62-length(getres2(rnr,9)),y+iif(win,14,13),getres2(rnr,9)+'...'); + wrt(x+62-length(getres2(rnr,9)),y+iif(win,15,14),getres2(rnr,9)+'...'); mon; freeres; wait(curon); @@ -1156,6 +1167,14 @@ { $Log: xp5.pas,v $ + Revision 1.62 2006/01/17 09:57:15 mw + MW: - Betriebsystemerkennung in X/S/S überarbeitet und verbessert. + Es wird jetzt auch Windows Server 2003 und Windows Vista als + solche erkannt. Bisher wurde in so einem Falle immer Windows XP + ausgegeben. + Jede nicht explizit bekannte Version von Windows NT wird jetzt + generisch als Windows NT erkannt. + Revision 1.61 2006/01/02 12:28:51 mw MW: - Frohes neues Jahr 2006
------------------------------------------------------------------------ FreeXP CVS-Mailingliste CVS-List@freexp.de http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list