VPF::ScreenShotSaver Plugins - Форум программистов

dvamaster

Дата 8.9.2004, 15:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

Ранее рассматривалась моя программа ScreenShotSaver.

Тема про ScreenShotSaver (Снять прикольные моменты)

Многим показалось, что мало плагинов.

Теперь предлагаю вашему вниманию SDK для плагинов.

Код

library SSSPlugin;

uses
  Windows,
  Messages;

{$E pss}

type
// Плагин отправляет данные
  PInitData_v1 = ^TInitData_v1;
  TInitData_v1 = record
    Version: DWord;                      // Версия плагина, всегда 0
    PluginName: array [0..1023] of Char; // Имя плагина (лучше длину строки (не массива) подобрать так, чтоб влезла в одну строку в диалоге настроек)
  end;

// Плагин получает данные
  PSaveData_v1 = ^TSaveData_v1;
  TSaveData_v1 = record
    FileName: array [0..1283] of Char; // Имя файла сохраняемых данных БЕЗ РАСШИРЕНИЯ И ТОЧКИ
    Data: HBITMAP;                     // Данные для сохранения
    Wnd: HWND;                         // Дескриптор основного диалога
  end;


{Обязательная функция}
function InitProc(InitData: PInitData_v1): Bool; stdcall;
begin
{  InitData^.Version := 0;
  InitData^.PluginName[0] := 'P';
  ...
  InitData^.PluginName[k] := #0;}
  Result := true
end;

{Обязательная функция}
function SaveProc(SaveData: PSaveData_v1): Bool; stdcall;
begin
  Result := true
end;

{Не обязательная функция}
// Wnd - Родительское окно
function OptionsProc(Wnd: HWND): Bool; stdcall;
begin
  Result := true
end;

{Не обязательная функция}
function DoneProc: Bool; stdcall;
begin
  Result := true
end;

exports
{Обязательная функция}
  InitProc,
{Обязательная функция}
  SaveProc,
{Не обязательная функция}
  DoneProc,
{Не обязательная функция}
  OptionsProc;

begin
end.

Жду вопросов.

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »