firebird/firebird-mirror
firebird/firebird-mirror
8
0
Fork 1
mirror of https://github.com/FirebirdSQL/firebird.git synced 2025-01-23 06:03:02 +01:00
Code Issues

Add some generic functions to test for host O/S

Browse Source
This commit is contained in:
paul_reeves 2007-12-19 14:07:13 +00:00
parent 2c05479547
commit bf99212d84
1 changed files with 77 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

87
builds/install/arch-specific/win32/FirebirdInstallSupportFunctions.inc
View File

@ -25,8 +25,14 @@
Function Prototypes Function Prototypes
function UsingWin2k: boolean; function IsVista: boolean;
function UsingWinXP: boolean; function IsWin2k3: boolean;
function IsWinXP: boolean;
function IsWin2K: boolean;
function IsWinNT: boolean;
function IsWinME: boolean;
function IsWin98: boolean;
function IsWin95: boolean;
function CheckWinsock2(): Boolean; function CheckWinsock2(): Boolean;
function GetAppPath: String; function GetAppPath: String;
function GetSysPath: String; function GetSysPath: String;
@ -56,20 +62,81 @@ Windows NT versions:
5.2.3790 Windows 2003 Standard 5.2.3790 Windows 2003 Standard
*) *)
function UsingWin2k: boolean; function IsVista: boolean;
//return true if using Win2k OR later var
Version: TWindowsVersion;
begin begin
Result := (InstallOnThisVersion('0,5.0', '0,0') = irInstall); GetWindowsVersionEx(Version);
if (Version.Major = 6) and (Version.Minor = 0) then
result:=true;
end; end;
function IsWin2k3: boolean;
function UsingWinXP: boolean; var
// return true if using WinXP OR later. Version: TWindowsVersion;
// Currently not used in this script.
begin begin
Result := (InstallOnThisVersion('0,5.01', '0,0') = irInstall); GetWindowsVersionEx(Version);
if (Version.Major = 5) and (Version.Minor = 2) then
result:=true;
end; end;
function IsWinXP: boolean;
var
Version: TWindowsVersion;
begin
GetWindowsVersionEx(Version);
if (Version.Major = 5) and (Version.Minor = 1) then
result:=true;
end;
function IsWin2K: boolean;
var
Version: TWindowsVersion;
begin
GetWindowsVersionEx(Version);
if (Version.Major = 5) and (Version.Minor = 0) then
result:=true;
end;
function IsWinNT: boolean;
var
Version: TWindowsVersion;
begin
GetWindowsVersionEx(Version);
if (Version.Major = 4) and (Version.Minor = 0) then
if Version.NTPlatform then
result:=true;
end;
function IsWinME: boolean;
var
Version: TWindowsVersion;
begin
GetWindowsVersionEx(Version);
if (Version.Major = 4) and (Version.Minor = 9) then
// if Version.NTPlatform then
result:=true;
end;
function IsWin98: boolean;
var
Version: TWindowsVersion;
begin
GetWindowsVersionEx(Version);
if (Version.Major = 4) and (Version.Minor = 1) then
// if Version.NTPlatform then
result:=true;
end;
function IsWin95: boolean;
var
Version: TWindowsVersion;
begin
GetWindowsVersionEx(Version);
if (Version.Major = 4) and (Version.Minor = 0) then
if not Version.NTPlatform then
result:=true;
end;
const const
sWinSock2 = 'ws2_32.dll'; sWinSock2 = 'ws2_32.dll';