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

 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;
function aaGetParmIndirect(hAa: AAHandle; lpAp: AAPARMSPtr; wSize: word) : boolean;
function aaSetParm(hAa: AAHandle; wType: word; wValue1, lValue2: longint): AAHandle;
function aaSetParmIndirect(hAa: AAHandle; dwType: longint; lpAp: AAPARMSPtr; wMask: word): boolean;
function aaShow(hAa: AAHandle; bShow: boolean) : boolean;
function aaSound(hAa: AAHandle; device, ffile: PChar; wMode: word): boolean;
function aaGetFile(dwFlags: word; lpszPath: PChar; wBufLen: word; lpszDriver: PChar; wDrvLen: word) : integer;
function aaSave(hAa: AAHandle; wMode: word) : integer;

implementation

{ =========================================================================== }
procedure Register;
begin
 RegisterComponents('Samples', [TAAPlayer]);
end;

{ --------------------------------------------------------------------------- }
procedure TAAPlayer.OpenAA;
var
 FileSuffix, tempstr: string[12];
 a,b: integer;
begin
 { tempstr := ExtractFilename(AAPlayer.Filename); }
 { a := StrPos(tempstr,'.');
 if (a > 0) then begin
 b := a;
 while (b <= StrLen(tmpstr)) do begin
 FileSuffix := FileSuffix + StrUpper(tempstr[b]);
 b := b+1;
 end;
 if ((FileSuffix = '.FLC') or (FileSuffix = '.FLI')) then begin }
 { AutoEnable := False;
 EnabledButtons := [btRecord,btEject];
 }{ end;
 end;
}
end;

{ =========================================================================== }
{ Внешние вызовы 'AAPLAY.DLL' }
{$F+}
{ =========================================================================== }

{ --------------------------------------------------------------------------- }
function aaOpen : boolean; external 'AAPLAY';

{ --------------------------------------------------------------------------- }