Проблема Не могу разобраться со слайдами

[frontlines45]

Приветствую многоуважаемые. Такая проблемка: в скрипте вставил коды, для воспроизведения слайдов при установки игры, но, что то не так идет

 

[frontlines45]

Автор скрипта AvilAlex

 

[Nemko]

frontlines45, нужно проверить WrapTimerProc, нужно объявить правильно, вроде того:

type
  TProc = procedure(HandleW, msg, idEvent, TimeSys: LongWord);

function WrapTimerProc(CallBack: TProc; Paramcount: Integer): LongWord; external 'wrapcallback@files:innocallback.dll stdcall';

 

[frontlines45]

frontlines45, нужно проверить WrapTimerProc, нужно объявить правильно, вроде того:

type
  TProc = procedure(HandleW, msg, idEvent, TimeSys: LongWord);

function WrapTimerProc(CallBack: TProc; Paramcount: Integer): LongWord; external 'wrapcallback@files:innocallback.dll stdcall';

А куда в скрипте это вставить?

 

[Nemko]

frontlines45, выполнение кода идет - сверху в низ, обычно объявляют в начале. Короче, тип TProc должен быть раньше WrapTimerProc, а создаваться тайме\callback после.

 

[frontlines45]

frontlines45, выполнение кода идет - сверху в низ, обычно объявляют в начале. Короче, тип TProc должен быть раньше WrapTimerProc, а создаваться тайме\callback после.

типа так

#ifdef Slides
type
procedure=TProc(HandleW, msg, idEvent, TimeSys: LongWord);
function WrapTimerProc(callback:TProc; paramcount:integer):longword; external 'wrapcallback@files:InnoCallback.dll stdcall';
function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';
function GetSystemMetrics(nIndex:Integer):Integer; external 'GetSystemMetrics@user32.dll stdcall';
procedure InitializeSlideShow(Hwnd:Thandle; l,t,w,h:integer;Animate:boolean; Stretch:integer); external 'InitializeSlideShow@files:isslideshow.dll stdcall';
procedure DeinitializeSlideShow; external 'DeinitializeSlideShow@files:isslideshow.dll stdcall';
procedure ShowImage(ipath:PAnsiChar; Effect:integer); external 'ShowImage@files:isslideshow.dll stdcall';

 

[frontlines45]

frontlines45, выполнение кода идет - сверху в низ, обычно объявляют в начале. Короче, тип TProc должен быть раньше WrapTimerProc, а создаваться тайме\callback после.

Если коротко, как добавить в этот скрипт чтобы во время установки показывало слайды картинок?