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

 ' пока не будет создан новый.

 '

 ' Если новый дескриптор не может быть создан, aaPrompt возвращает NULL,

 ' в противном случае возвращается новый дескриптор.

}

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

function aaGetParm(hAa: AAHandle; wType: word) : longint; external 'AAPLAY';

{

 ' aaGetParm возвращает информацию об анимации.

 '

 ' Некоторая информация может быть установлена с помощью aaSetParm,

 ' и другая информация - информация о состоянии, поддерживаемая AAPLAY.

}

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

function aaGetParmIndirect(hAa: AAHandle; lpAp: AAPARMSPtr; wSize: word): boolean; external 'AAPLAY';

{

 ' aaGetParmIndirect возвращает ту же информацию, что и aaGetParm,

 ' в структуре, удобной для легкого доступа из приложений Visual Basic.

}

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

function aaSetParm(hAa: AAHandle; wType: word; wValue1, lValue2: longint): AAHandle; external 'AAPLAY';

{

 ' aaSetParm устанавливает информацию для анимации

}

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

function aaSetParmIndirect(hAa: AAHandle; dwType: longint; lpAp: AAPARMSPtr; wMask: word): boolean; external 'AAPLAY';

{

 ' aaSetParmIndirect устанавливает параметры анимации из структуры.

}

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

function aaShow(hAa: AAHandle; bShow: boolean) : boolean; external 'AAPLAY';

{

 ' aaShow позволяет показать в окне отдельный кадр анимации.

 '

 ' Mode определяет способ рисования анимации.

 '

 ' Параметры окна возможно задать с помощью aaSetParm или aaSetParmIndirect.

 '

 ' aaShow возвращает TRUE, если анимация была отрисована без ошибок.

}

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

function aaSound(hAa: AAHandle; device, ffile: PChar; wMode: word): boolean; external 'AAPLAY';

{

 ' aaSound открывает и закрывает канал звукового сопровождения анимации.

 '

 ' Звуковой канал будет открыт, если аргумент file не будет равен null

 ' и не будет пустым, в противном случае канал будет закрыт.

 '

 ' Если устройство равно null, то для выбора подходящего устройства

 ' используется формат файла.

}

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

function aaGetFile(dwFlags: word; lpszPath: PChar; wBufLen: word; lpszDriver: PChar; wDrvLen: word) : integer; external 'AAPLAY';

{

 ' Открывает системного диалоговое окно стандартного типа ("открыть файл"),

 ' предлагающее пользователю выбрать файл.

 '