vdfsplat / AppSrc / cOCXReader.pkg @ 67
History | View | Annotate | Download (2.03 KB)
| 1 |
//TH-Header |
|---|---|
| 2 |
//***************************************************************************************** |
| 3 |
// Copyright (c) 2015 Antwise Solutions |
| 4 |
// All rights reserved. |
| 5 |
// |
| 6 |
// $FileName : .\VdfSplat\AppSrc\cOCXReader.pkg |
| 7 |
// $ProjectName : VdfSplat DataFlex Debugger |
| 8 |
// $Authors : Wil van Antwerpen |
| 9 |
// $Created : 09.08.2015 14:47 |
| 10 |
// $Type : GPL v2 |
| 11 |
// |
| 12 |
// Contents: |
| 13 |
// |
| 14 |
//***************************************************************************************** |
| 15 |
//TH-RevisionStart |
| 16 |
//TH-RevisionEnd |
| 17 |
|
| 18 |
|
| 19 |
|
| 20 |
|
| 21 |
|
| 22 |
Struct tOCX |
| 23 |
String sProgID |
| 24 |
String sDefaultName |
| 25 |
String sName |
| 26 |
String sToolboxBitmap |
| 27 |
End_Struct |
| 28 |
|
| 29 |
Class cOCXReader is a cRegistry |
| 30 |
|
| 31 |
Function ReadControlByProgID String sProgID Returns tOCX |
| 32 |
Boolean bOpened |
| 33 |
Boolean bExists |
| 34 |
String sDefaultName |
| 35 |
String sName |
| 36 |
String sBitmap |
| 37 |
String sKey |
| 38 |
tOCX OCX |
| 39 |
|
| 40 |
Move "" To sDefaultName |
| 41 |
Set phRootKey to HKEY_LOCAL_MACHINE |
| 42 |
Set pfAccessRights to Key_Read |
| 43 |
Move ("Software\Classes\CLSID\"+sProgID) To sKey
|
| 44 |
Get KeyExists sKey to bExists |
| 45 |
If bExists Begin |
| 46 |
Get OpenKey sKey to bOpened |
| 47 |
If bOpened Begin |
| 48 |
// Get ValueExists of hoRegistry "(Default)" To bExists |
| 49 |
Get ValueExists "" to bExists |
| 50 |
If (bExists) Begin |
| 51 |
Get ReadString "" to sDefaultName |
| 52 |
End |
| 53 |
Send CloseKey |
| 54 |
End |
| 55 |
Get OpenKey (sKey+"\ProgID") to bOpened |
| 56 |
If bOpened Begin |
| 57 |
Get ValueExists "" to bExists |
| 58 |
If (bExists) Begin |
| 59 |
Get ReadString "" to sName |
| 60 |
End |
| 61 |
Send CloseKey |
| 62 |
End |
| 63 |
Get OpenKey (sKey+"\ToolboxBitmap32") to bOpened |
| 64 |
If bOpened Begin |
| 65 |
Get ValueExists "" to bExists |
| 66 |
If (bExists) Begin |
| 67 |
Get ReadString "" to sBitmap |
| 68 |
End |
| 69 |
Send CloseKey |
| 70 |
End |
| 71 |
End |
| 72 |
Move sProgID To OCX.sProgID |
| 73 |
Move sDefaultName to OCX.sDefaultName |
| 74 |
Move sName to OCX.sName |
| 75 |
Move sBitmap to OCX.sToolboxBitmap |
| 76 |
Function_Return OCX |
| 77 |
End_Function |
| 78 |
|
| 79 |
End_Class |