delphi 判断系统, 判断操作系统版本

Delphi 判断系统版本与配置的实用技巧

在Delphi编程中，了解和判断运行程序的操作系统版本以及配置信息对于开发出兼容性和性能俱佳的应用程序至关重要。本文将详细介绍如何在Delphi中判断系统版本、操作系统配置以及一些实用技巧。

判断操作系统版本

方法一：使用GetVersionEx函数

Delphi提供了`GetVersionEx`函数，可以获取操作系统的版本信息。以下是一个简单的示例代码：

```delphi

procedure TForm1.Button1Click(Sender: TObject);

OSVI: OSVERSIONINFO;

str: string;

begin

OSVI.dwOSversioninfoSize := SizeOf(OSVERSIONINFO);

GetVersionEx(OSVI);

str := IntToStr(OSVI.dwMajorVersion) + '.' + IntToStr(OSVI.dwMinorVersion);

ShowMessage('操作系统版本: ' + str);

end;

方法二：通过FWMIService查询系统表Win32OperatingSystem

这种方法可以读取系统版本信息，包括Windows 8、Windows 8.1和Windows 10。以下是一个示例函数：

```delphi

function GetWindowsVersion: string;

FWMIService: ISWbemLocator;

SWbemServices: ISWbemServices;

SWbemObjectSet: ISWbemObjectSet;

SWbemObject: ISWbemObject;

OSVersion: string;

begin

Result := '';

CoCreateInstance(CLSID_SWbemLocator, 0, CLSCTX_INPROC_SERVER, IID_ISWbemLocator, FWMIService);

FWMIService.ConnectServer('', '', '', '', 0, 0, 0, FWMIService);

FWMIService.ConnectNamespace('WMI', '', '', 0, 0, 0, FWMIService);

SWbemServices := FWMIService as ISWbemServices;

SWbemServices.ExecQuery('SELECT FROM Win32_OperatingSystem', '', wbemFlagForwardOnly or wbemFlagReturnImmediately, nil, SWbemObjectSet);

if SWbemObjectSet.Count > 0 then

begin

SWbemObject := SWbemObjectSet.Items.Item[0] as ISWbemObject;

OSVersion := SWbemObject.Get('Version').ToString;

Result := OSVersion;

end;

end;

判断Delphi版本

在Delphi中，可以使用预编译指令来判断当前使用的Delphi版本。以下是一个示例：

```delphi

{$IF DEFINED(HDPI)}

// 高DPI支持代码

{$ELSEIF DEFINED(VER280)}

// Delphi XE7版本代码

{$ENDIF}

判断SQL Server服务器是否安装与开启

方法一：通过异常信息判断

在连接数据库时，如果出现异常，可以通过异常信息来判断服务器是否开启或未安装。

```delphi

procedure TForm1.btn1Click(Sender: TObject);

begin

try

adocon1.Connected := True;

except

on E: Exception do

ShowMessage(E.Message);

end;

end;

方法二：通过注册表判断

可以使用注册表来判断系统是否安装了SQL Server数据库。

```delphi

uses

Registry;

procedure TForm1.btn2Click(Sender: TObject);

Reg: TRegistry;

begin

Reg := TRegistry.Create;

try

Reg.RootKey := HKEY_LOCAL_MACHINE;

if Reg.OpenKey('SOFTWAREMicrosoftMicrosoft SQL Server', False) then

begin

ShowMessage('SQL Server已安装');

end

else

ShowMessage('SQL Server未安装');

finally

Reg.Free;

end;

end;

判断文件或文件夹是否存在

在Delphi中，可以使用`FileExists`和`DirectoryExists`函数来判断文件或文件夹是否存在。

```delphi

procedure TForm1.Button3Click(Sender: TObject);

begin

if FileExists('e:test.xls') then

ShowMessage('文件存在。')

else

ShowMessage('文件不存在。');

if DirectoryExists('E:2017年其他') then

ShowMessage('是文件夹。')

else

ShowMessage('文件夹不存在或不是文件夹。');

end;

在Delphi编程中