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

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';

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

procedure aaClose; external 'AAPLAY';

{

 ' AAOpen и AAClose в действительности не нужны, за исключением обработки

 ' ошибки в Windows, которая предохраняет освобождение библиотек в процедуре

 ' выхода Windows (Windows Exit Proc, WEP).

 '

 ' Поэтому мы используем AAClose для освобождения библиотек при закрытии

 ' последней задачей AAPlay DLL.

}

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

function aaGetCaps(wType: word) : word; external 'AAPLAY';

{

 ' Получение возможностей

}

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

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

{

 ' aaLoad загружает анимацию.

 '

 ' Имя файла в lpzFileName

 ' и режим загрузки в wMode.

}

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