VBA Programming
LSM 510
DuoScan
Carl Zeiss
Access to Windows API Function and external DLLs LSM 510 META
DuoScan
5-6
B 45-0021 e
03/06
Function FServerFromDescription(strName As String, strPath As String) As Boolean
Dim lngResult As Long
Dim strTmp As String
Dim hKeyServer As Long
Dim strBuffer As String
Dim cb As Long
Dim i As Integer
FServerFromDescription = False
strTmp = VBA.Space(255)
strTmp = s "\CLSID"
lngResult = RegOpenKeyEx(HKEY_CLASSES_ROOT, strTmp, 0&, KEY_READ, hKeyServer)
If (Not lngResult = ERROR_SUCCESS) Then GoTo error_exit
strBuffer = VBA.Space(255)
cb = Len(strBuffer)
lngResult = RegQueryValueEx(hKeyServer, "", 0&, REG_SZ, ByVal strBuffer, cb)
If (Not lngResult = ERROR_SUCCESS) Then GoTo error_exit
lngResult = RegCloseKey(hKeyServer)
strTmp = VBA.Space(255)
strTmp = "CLSID\" + Left(strBuffer, cb - 1) + "\LocalServer32"
strBuffer = VBA.Space(255)
cb = Len(strBuffer)
lngResult = RegOpenKeyEx(HKEY_CLASSES_ROOT, strTmp, 0&, KEY_READ, hKeyServer)
If (Not lngResult = ERROR_SUCCESS) Then GoTo error_exit
lngResult = RegQueryValueEx(hKeyServer, "", 0&, REG_SZ, ByVal strBuffer, cb)
If (Not lngResult = ERROR_SUCCESS) Then GoTo error_exit
strPath = Left(strBuffer, cb - 1)
Содержание LSM 510
Страница 1: ...LSM 510 LSM 510 DuoScan LSM 510 META LSM 510 META DuoScan Release 4 0 March 2006...
Страница 62: ...IMPORTANT NOTES FOR CHAPTER 4 LSM 510 DuoScan Carl Zeiss LSM 510 META Duo Scan 4 II B 45 0021 e 03 06...
Страница 442: ...Programming for LSM LSM 510 DuoScan Carl Zeiss Events LSM 510 META DuoScan 5 18 B 45 0021 e 03 06...
Страница 526: ...3D FOR LSM LSM 510 DuoScan Carl Zeiss Functions LSM 510 META DuoScan 7 60 B 45 0021 e 03 06...
Страница 564: ......
Страница 566: ...MULTIPHOTON LASER SCANNING MICROSCOPY Carl Zeiss Contents LSM 510 META NLO 9 4 B 45 0021 e 03 06...
Страница 591: ...LSM 510 and LSM 510 META Laser Scanning Microscopes Brief Operating Manual Release 4 0 March 2006...
Страница 606: ......