nik1967,
Скрытый текст
;#define Video
[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
WizardImageFile=Fon.bmp
OutputBaseFilename=2
[Files]
Source: compiler:Dll Pack\IsPicture_for_all.dll; Flags: dontcopy
Source: Fon.bmp; Flags: dontcopy
#ifdef Video
Source: XVID\fon.avi; Flags: dontcopy
#endif
[code]
//-----------------------------------------
procedure Initialize(AhWnd,BhWnd:hWnd);external 'Initialize@{tmp}\IsPicture_for_all.dll stdcall delayload';
// Здесь указываем хендлы окон, на данный момент, лучше пока указывать
// WizardForm.Handle - первым и MainForm.Handle вторым.
//-----------------------------------------
procedure XvidVideo(fn:String;Seth:string);external 'XvidVideo@{tmp}\IsPicture_for_all.dll stdcall delayload';
// Эта процедура загружает фоновое avi-видео.
// Seth - задаем координаты через пробел в одинарных кавычках
// пример: XvidVideo(ExpandConstant('{tmp}\fon.avi'), '351 201 236 132');
//-----------------------------------------
procedure Deinitialize;external 'Deinitialize@{tmp}\IsPicture_for_all.dll stdcall delayload';
// отменяет свзывание форм между собой, выгружает видео.
//-----------------------------------------
function NewFont(Height:Integer;thickness,italic,underline,strikeout:DWORD;name:String):hWnd;external 'NewFont@{tmp}\IsPicture_for_all.dll stdcall delayload';
// Создает шрифты для замены стандартных. Необходима для борьбя с артефактами сглаживания.
// Height, // высота шрифта
// thickness, // насыщенность шрифта
// italic, // курсив
// underline, // Подчеркнутый
// strikeout, // Зачеркнутый
// name // имя шрифта
//-----------------------------------------
procedure SplashWnd(FileName:PAnsiChar;Time,width,height:Integer);external 'SplashWnd@{tmp}\IsPicture_for_all.dll stdcall delayload';
// Создает Splash-заставку
// Прозрачность, пока, не поддерживается
// FileName, // имя файла
// Time, // скорость появления в миллисекундах
// width, // ширина
// height, // высота
procedure EndSplash(Time1,Time2:Integer);external 'EndSplash@{tmp}\IsPicture_for_all.dll stdcall delayload';
// Закрываем Splash-заставку
// Time1, // выжидание до закрытия в миллисекундах
// Time, // скорость закрытия в миллисекундах
//-----------------------------------------
//-----------------------------------------
