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

Озеров Валентин

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.

}

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

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

{

 ' aaReLoad загружает файл новый анимации

 ' "в дескриптор"

старой анимации.

 '

 ' Уведомления теряются, но палитра и окно

 ' сохраняются.

}

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

function aaUnload(hAa: AAHandle): boolean; external 'AAPLAY';

{

 ' aaUnload выгружает загруженную анимацию.

 '

 ' Возвращается FALSE, если

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

}

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

function aaPlay(hAa: AAHandle) : boolean; external 'AAPLAY';

{

 ' aaPlay воспроизводит загруженную анимацию.

 '

 ' Возвращается TRUE, если после возврата aaPlay анимация не останавливается.

}

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

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

{

 ' aaNotify позволяет извещать приложение о воспроизведении

 ' определенных кадров анимации.

 '

 ' lPosition -позиция, в которой должно происходить уведомление.

 '

 ' wParam для данного сообщения - hAa, а lParam копируется из этого вызова.

 '

 ' Возвращается TRUE, если уведомление установлено.

}

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

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

{

 ' aaCancel позволяет приложению отменить уведомления, установленные aaNotify.

 '

 ' lLoPos и lHiPos задает верхний и нижний предел позициям.

 '

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

}

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