vdfsplat / AppSrc / cOCXReader.pkg
History | View | Annotate | Download (2.03 KB)
1 | 19 | wil | //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 |