Xakep CD DataSaver
cайт программы


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

Copyright(C) DotFix Software