|
Contents
Создание ActiveX DLL плагина
Cоздайте ActiveX DLL пользуясь примером из папки Plugins SDK.
≈сли это простой плагин - создавайте функцию ShowPlugin, если вы его собираетесь кидать в меню, появляющееся по нажатию правой кнопки по программам в списке, то функция должна называться ShowPrPlugin.
Функция PluginName должна возвращать имя вашего плагина.
Функция Rescan должна возвращать единицу, если плагин изменяет базу.
Класс модуль должен всегда иметь имя Data.
ѕример:
Public Function PluginName() As String
PluginName = "$PR$имя плагина"
End Function
Public Function Rescan() As Ineger
Rescan = 1
End Function
Public Sub ShowPlugin(ByVal strPath As String, ByVal strBackColor As String, ByVal strForeColor As String, ByVal strCtlColor As String)
MsgBox "This Plugin only for Program popup Menu"
End Sub
Public Sub ShowPrPlugin(ByVal strPath As String, ByVal strProgramID As Integer, ByVal strCDID As Integer, ByVal strBackColor As String, ByVal strForeColor As String, ByVal strCtlColor As String)
On Error Resume Next
LoadFile (strPath)
frmMainCaption = Xakep(strCDID).sProgram(strProgramID).sProgram
frmMain.Text1.Text = Left$(frmMainCaption, InStr(1, frmMainCaption, ",") - 2)
frmMain.Show vbModal
End Sub
|