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

Contents


Часто задаваемые вопросы


============================================================

Q1: Как добавить диск в базу, если он уже добавлен

A1: Откройте этот диск во встроенном проводнике программы
    и нажмите комбинацию клавиш "Shift" + "F12"

============================================================
   
Q2: При переименовании диска переименовывается только его
    название в списке, идентификатор же продолжает иметь
    старое имя. Как его изменить?
   
A2: При переименовании при вводе нового имени диска в
    начале поставьте знак "$". Пример: если старое имя
    идентификатора - "ИЮЛЬ 2003", а новое - "АВГУСТ 2003"
    то при переименовании необходимо ввести - "$АВГУСТ 2003"
   
============================================================

Q3: Я программист, как мне написать плагин к программе Xakep CD DataSaver

A3: Создайте DLL с функцией "ShowPlugin" и поместите эту библиотеку
    в папку Plugins, которая находится в папке с программой
    Xakep CD DataSaver. Если такой папки не существует - создайте ее.
    Если необходимо, чтобы плагин обрабатывал базу данных, ее
    формат следующий:
    
    '=====Start VB Declarations=====
    Private Type Utiles
     sProgram As String 'Подкатегория и Имя программы (например "SharoWarez: Test")
     sType As String  'Категория программы (например "Soft")
     sPath As String  'Путь к программе без указания имени диска
     sURL As String  'Сайт программы
     sStatus As String  'FreeWare или ShareWare
     sAuthor As String  'Автор программы
     sTextline As String 'Описание программы
     sImage As String  'Скриншот программы
    End Type

    Private Type DB
     sName As String  'Имя диска
     sProgram(999) As Utiles 'Информация об одной из возможных 200 программ диска
     sReserved1(9) As String 'Зарезервированные данные (0-4 используются - не изменяйте их)
    End Type


    Public Xakep(99) As DB 'Всего поддерживается 99 дисков
    '======End VB Declarations======
    
    '=====Start VB Code=====
    'Загрузка базы данных
    Private Sub LoadFile()
If Right$(App.Path, 1) = "\" Then sPath = App.Path Else sPath = App.Path & "\"
Open sPath & "Xakep.dbx" For Binary As #1
Get #1, , Xakep
Close #1
    End Sub

    'Сохранение базы данных
    Private Sub SaveFile()
If Right$(App.Path, 1) = "\" Then sPath = App.Path Else sPath = App.Path & "\"
Open sPath & "Xakep.dbx" For Binary As #1
Put #1, , Xakep
Close #1
    End Sub
    '======End VB Code======

============================================================
Copyright(C) DotFix Software