Sql Server Varmı

[pasa_yasar]

İyi çalışmalar.

Program Kurulumunda SQL Server vamı yok mu bunu öğrenmem Gerekiyor. Bilgisayarımda SQL Server varmı varsa hangi sürümü var. Server Adını Öğrenebiliyorum Ama Sürümünü Öğrenemiyorum.

[sabanakman]

İyi günler, inno setup için değişik linkler başlıklı yazımda bir yardım dosyası linki vardı ama şimdi bu link çalışmıyor galiba. Bu dosyada şöyle bir örnek var.

Kod: Tümünü seç

;
; ISX 3.0.2
;
[Setup]
AppName=SQL_MSDEVersion
AppVerName=SQL_MSDEVersion
DefaultDirName={pf}\SQL_MSDEVersion
DisableStartupPrompt=true
Uninstallable=false
OutputBaseFilename=SQL_MSDEVersion
DisableDirPage=true
AdminPrivilegesRequired=true

(Code) //<-[] olacak. Yapıyı bozduğu için () içinde Code yazdım.

function GetSQLMSDEVersion(): String;
var
  sVersion:  String;
begin
  sVersion := '';
  // it is necessary to be an Admin to read this registry key
  if IsAdminLoggedOn then
  	RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\MSSQLServer\MSSQLServer\CurrentVersion', 'CurrentVersion', sVersion );

  Result := sVersion;
end;


function InitializeSetup(): Boolean;
var sqlver: String;
begin
  sqlver := GetSQLMSDEVersion();
  if Length( sqlver ) > 0 then
  begin

  	MsgBox( 'Version ('+ sqlver +') of SQL Server/MSDE is installed.',
  	  mbInformation, MB_OK );

	// go on with setup
	Result := true;

  end
  else begin
  	MsgBox( 'SQL Server/MSDE is not installed.', mbInformation, MB_OK );

  	// cannot go with setup anyway
  	Result := false;
  end;

end;

Bu örneğe göre gerekli çıkarımları yapabilirsiniz herhalde. İyi çalışmalar.

Not:(Code) //<-[] olacak. Yapıyı bozduğu için () içinde Code yazdım.