M
mofaser
Unregistered / Unconfirmed
GUEST, unregistred user!
我想实现的效果是在加载bpl(LoadPackage(bplName))时能获取bpl的DESCRIPTION属性值。<br><br>一个bpl的project代码:<br><br>package GlobleDM;<br><br>{$R *.res}<br>{$ALIGN 8}<br>{$ASSERTIONS ON}<br>{$BOOLEVAL OFF}<br>{$DEBUGINFO ON}<br>{$EXTENDEDSYNTAX ON}<br>{$IMPORTEDDATA ON}<br>{$IOCHECKS ON}<br>{$LOCALSYMBOLS ON}<br>{$LONGSTRINGS ON}<br>{$OPENSTRINGS ON}<br>{$OPTIMIZATION ON}<br>{$OVERFLOWCHECKS OFF}<br>{$RANGECHECKS OFF}<br>{$REFERENCEINFO ON}<br>{$SAFEDIVIDE OFF}<br>{$STACKFRAMES OFF}<br>{$TYPEDADDRESS OFF}<br>{$VARSTRINGCHECKS ON}<br>{$WRITEABLECONST ON}<br>{$MINENUMSIZE 1}<br>{$IMAGEBASE $400000}<br>{$DESCRIPTION '公用数据库连接模块'} /////////////有什么函数可以获取这个信息么?<br>{$IMPLICITBUILD OFF}<br><br>requires<br> vcl,<br> vcldb,<br> bdertl,<br> adortl,<br> CodeSiteLoggingVcl,<br> Common,<br> rtl,<br> dbrtl;<br><br>contains<br> GlobleDMUtils in 'GlobleDMUtils.pas' {DM: TDataModule},<br> DBConnUtil in 'DBConnUtil.pas',<br> frmDeBugDlg in 'frmDeBugDlg.pas' {FmDeBugDlg},<br> frmDBProcess in 'frmDBProcess.pas';<br><br>end.