Советы по Delphi. Версия 1.4.3 от 1.1.2001

 AA_ERR_PARSESPEED = $602;      { 1538 – Плохая скорость в скрипте }

 AA_ERR_BADRPTSOUND = $603;     { 1539 – Плохое повторение звука в скрипте }

 AA_ERR_PARSEPAUSE = $604;      { 1540 – Плохая пауза в скрипте }

 AA_ERR_PARSETRANS = $605;      { 1541 – Плохой переход в скрипте }

 AA_ERR_PARSEDELAYSND = $606;   { 1542 – Плохая задержка звука в скрипте }

 AA_ERR_TOOMANYLINKS = $607;    { 1543 – Слишком много ссылок }

 {

  dwFlags: integer; может быть любым из нижеперечисленных

  Используется в aaGetFile.

 }

 AA_GETFILE_MUSTEXIST = $1;

 AA_GETFILE_NOSHOWSPEC = $2;

 AA_GETFILE_SAVE = $4;

 AA_GETFILE_OPEN = $8;

 AA_GETFILE_USEDIR = $10;

 AA_GETFILE_USEFILE = $20;

 AA_GETFILE_SOUND = $40;

 AA_GETFILE_SCRIPT = $80;

 AA_GETFILE_ANIMATION = $100;

 {

  wMode: integer; Значения

  Используется в aaSave

 }

 AA_SAVE_IFMODIFIED = $1;

 AA_SAVE_AS = $2;

 AA_SAVE_CANCEL = $4;

 {

  Возможности

  Используется в aaGetCaps

 }

 AA_CAP_TIMER = 1;

 AA_CAP_SOUND = 2;

 AA_CAP_SCRIPT = 3;

 {

  Статусные сообщения анимации

  Используйте RegisterWindowMessage для получения номеров реальных сообщений.

 }

 AA_NOTIFY = 'AAPLAY Уведомление'; { Сообщение-уведомление }

 AA_STOP = 'AAPLAY Стоп';          { Стоп-сообщение }

 {

  Это посылается в первом слове lParam с сообщением AA_ERROR.

  Это указывает на возникшую ошибку

 }

 AA_BADPLAY = 1;   { Ошибка при попытке воспроизведения }

 AA_BADNOTIFY = 2; { Ошибка при попытке послать уведомление }

 AA_BADSCRIPT = 3; { Ошибка в сценарии при попытке }

                   { воспроизведения }

{ ========================================================================== }

unit TMediaPlayer)

procedure OpenAA;

private

 { Private declarations }

protected

 { Protected declarations }

public

 { Public declarations }

 AAParameters: AAPARMS;

 FlicHandle: AAHandle;

 PlayWinHandle: THandle;

 StatusWinHandle: THandle;

 CallbackWinHandle: THandle;

published

 { Published declarations }

end;

procedure Register;

{ Внешние вызовы AAPLAY.DLL }

function aaOpen : boolean;

procedure aaClose;

function aaGetCaps(wType: word) : word;

function aaLoad(lpzFileName: PChar; WinHnd: HWnd; wMode: word; x, y, wid, hght, orgx, orgy: integer): AAHandle;

function aaReLoad(hAa: AAHandle; lpzFileName: PChar; wMode, wMask: word) : boolean;

function aaUnload(hAa: AAHandle): boolean;

function aaPlay(hAa: AAHandle) : boolean;

function aaNotify(hAa: AAHandle; lPosition, lParam: longint) : boolean;

function aaCancel(hAa: AAHandle; lLoPos, lHiPos: longint) : word;

function aaStop(hAa: AAHandle) : boolean;

function aaPause(hAa: AAHandle) : boolean;

function aaPrompt(hAa: AAHandle; lpName: PChar) : boolean;

function aaGetParm(hAa: AAHandle; wType: word) : longint;