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