1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) DIGITEO - 2010 - Allan CORNET
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
//=============================================================================
function SDKpath = dlwGetSdkPath()
SDKpath = [];
entries = ["Software\Microsoft\Microsoft SDKs\Windows" "CurrentInstallFolder" ; .. // Vista & Seven SDK
"Software\Microsoft\MicrosoftSDK\InstalledSDKs\D2FF9F89-8AA2-4373-8A31-C838BF4DBBE1" "Install Dir" ; .. // Windows 2003 R2 SDK
"Software\Microsoft\MicrosoftSDK\InstalledSDKs\8F9E5EF3-A9A5-491B-A889-C58EFFECE8B3" "Install Dir"]; // Windows 2003 SDK
for i = 1:size(entries(:,1),"*")
try
SDKpath = winqueryreg("HKEY_LOCAL_MACHINE", entries(i,1), entries(i,2));
// remove last file separator if it exists
if SDKpath <> [] then
SDKpath = pathconvert(SDKpath, %f, %t);
// We check that returned path exists
// case: install and uninstall sdk, uninstaller does not remove registry key
if isdir(SDKpath) then
break;
else
SDKpath = [];
end
end
catch
end
end
endfunction
//=============================================================================
|
