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======
============================================================
|