DLL Inno Setup Advanced Splash 1.0

Razor12911 · 28 Май 2015

Razor12911 submitted a new resource:

Inno Setup Advanced Splash - Inno Splash

Hi, Created this library from the idea of the isgsg.dll but only better because this library has up to 22 effects.

Functions

procedure Splash(ImageFile: PAnsiChar; Effect, InTime, ShowTime, OutTime: Integer);

Read more about this resource...

sergey3695 · 28 Май 2015

Razor12911,
Crash programm when click exit if <Result:= True;>

Код:

function InitializeSetup:Boolean;
begin
  ExtractTemporaryFile('Splash.png');
  Splash(ExpandConstant('{tmp}\Splash.png'),3,1000,1000,1000);
  Result:= True;
end;

----

Код:

procedure DeinitializeSetup();
begin
   ???;
end;

Razor12911 · 28 Май 2015

I know about the InitializeSetup, I was just showing the feature itself. I thought people will know what to put there and the function deinitializes automatically after it is used.

Хамик · 28 Май 2015

sergey3695,

Код:

procedure DeinitializeSetup();
begin
   WizardForm.Free;
end;

sergey3695 · 28 Май 2015

Razor12911, Хамик, ok. I thought use function "FreeDLL".
How to hide the taskbar icon of the form?

Код:

[Setup]
AppName=Inno Setup Advanced Splash
AppPublisher=Razor12911
AppVerName=1.0
CreateAppDir=no

[Files]
Source: "ISAdvSplash.dll"; Flags: dontcopy;
Source: "Splash.png"; Flags: dontcopy;

[Code]
const
  BandedSwirlEffect = 1;
  BlindEffect = 2;
  BloodEffect = 3;
  CircleEffect = 4;
  MagnifyEffect = 5;
  CrumpleEffect = 6;
  DissolveEffect = 7;
  DropEffect = 8;
  FadeEffect = 9;
  BrightEffect = 10;
  PixelateEffect = 11;
  BlurEffect = 12;
  WiggleEffect = 13;
  ShapeEffect = 14;
  RippleEffect = 15;
  RotateCrumpleEffect = 16;
  SaturateEffect = 17;
  SlideEffect = 18;
  SwirlEffect = 19;
  WaterEffect = 20;
  WaveEffect = 21;
  LineEffect = 22;

procedure Splash(ImageFile: PAnsiChar; Effect, InTime, ShowTime, OutTime: Integer);
  external 'Splash@files:ISAdvSplash.dll stdcall';
function ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL;
  external 'ShowWindow@user32.dll stdcall';

var DLLHandle:integer;

function InitializeSetup:Boolean;
var
  ErrorCode: Integer;
begin
  ExtractTemporaryFile('Splash.png');
  DLLHandle:= LoadDLL(ExpandConstant('{tmp}\ISAdvSplash.dll') , ErrorCode);
if (DLLHandle > 0) then
begin
  ShowWindow(Application.Handle, SW_HIDE);
  Splash(ExpandConstant('{tmp}\Splash.png'),3,1000,1000,1000);
  ShowWindow(Application.Handle, SW_SHOW);
end;
  Result:= True;
end;

procedure DeinitializeSetup();
begin
if DLLHandle > 0 then
begin
  FreeDLL(DLLHandle);
  DeleteFile(ExpandConstant('{tmp}\ISAdvSplash.dll'));
  WizardForm.Free;
end;
end;

Shegorat · 28 Май 2015

Razor12911
Just crashes on call Splash function.

I guess it crashes when working with GdipAlloc buffer. Something like pixels copy to/from Gdip buffer.

System: Win7 x64, Inno 5.5.1ee2 (a/u)

Razor12911 · 10 Июн 2015

Hmm, really strange. Will check on it, I don't know about the gdipalloc or whatever that is.

South · 11 Июн 2015

я так понимаю, что нужно указать мин. требования к этой длл - Windows Vista и выше.
т.к. скорее всего требуется gdi+ v1.1

sergey3695 · 11 Июн 2015

South написал(а):
нужно указать мин. требования к этой длл - Windows Vista и выше.

Shegorat написал(а):
crashes on call Splash function

Shegorat написал(а):
System: Win7 x64

South · 15 Июн 2015

у меня на вин7 сп1 х64 все отработало нормально

зы. мин. требования - не к падению приложения, а в общем и целом замечание к описанию.

ззы. и если используется gdi+v1.1, то было бы неплохо проверять наличие длл именно этой версии. я к примеру не знаю может ли установка какого-либо софта заменить длл в системе на более старую версию. могу только сказать, что при попытке запустить такой инсталл на вин хп получил такой же AV как у Shegorat

Ekspoint · 11 Июл 2015

Можно исправить ошибку закрытия инсталлятора?

eprst · 15 Авг 2015

Ekspoint написал(а):
Можно исправить ошибку закрытия инсталлятора?

Да такая проблема не у всех... чаще на Win7 встречается на win 8.1 отрабатывает нормально

Ekspoint · 15 Авг 2015

eprst написал(а):
Да такая проблема не у всех... чаще на Win7 встречается на win 8.1 отрабатывает нормально

я сижу на 8.1, ошибка есть

eprst · 16 Авг 2015

Ekspoint написал(а):
я сижу на 8.1, ошибка есть

Тоже не могу выявить закономерности... У кого работает, у кого нет... Может дело в эффектах? То есть на каком то проявляется на каком то нет?
P.S. На днях обещали виртуалку дать с такой "глюко" системой... жду, если решу проблему отпишусь... Надо в логах системы посмотреть что рубит, аж руки чешутся добраться до истины

Ekspoint · 16 Авг 2015

eprst написал(а):
Тоже не могу выявить закономерности... У кого работает, у кого нет... Может дело в эффектах? То есть на каком то проявляется на каком то нет?
P.S. На днях обещали виртуалку дать с такой "глюко" системой... жду, если решу проблему отпишусь... Надо в логах системы посмотреть что рубит, аж руки чешутся добраться до истины

Жду

Infest · 9 Мар 2018

Ребят, не знаю, решили ли проблему с двумя окнами. На зарубежном форуме человек предложил использовать выгрузку модуля.

Код:

procedure ForceRemove(const ModuleName: string);
var
  hMod: HMODULE;
begin
  hMod := GetModuleHandle(PChar(ModuleName));
  if hMod=0 then
   exit;
  repeat
  until not FreeLibrary(hMod);
end;

Теперь возникает вопрос, как этот кусок использовать?

sergey3695 · 9 Мар 2018

Infest, теперь возникает вопрос, зачем вам эта библиотека, если она не работает должным образом?

Infest · 10 Мар 2018

sergey3695 написал(а):
Infest, теперь возникает вопрос, зачем вам эта библиотека, если она не работает должным образом?

Эффекты понравились

-XCX- · 3 Сен 2018

[Setup]
AppName=Inno Setup Advanced Splash
AppPublisher=Razor12911
AppVerName=1.0
CreateAppDir=no

[Files]
Source: "ISAdvSplash.dll"; Flags: dontcopy;
Source: "Splash.png"; Flags: dontcopy;

Код:

const
  BandedSwirlEffect = 1;
  BlindEffect = 2;
  BloodEffect = 3;
  CircleEffect = 4;
  MagnifyEffect = 5;
  CrumpleEffect = 6;
  DissolveEffect = 7;
  DropEffect = 8;
  FadeEffect = 9;
  BrightEffect = 10;
  PixelateEffect = 11;
  BlurEffect = 12;
  WiggleEffect = 13;
  ShapeEffect = 14;
  RippleEffect = 15;
  RotateCrumpleEffect = 16;
  SaturateEffect = 17;
  SlideEffect = 18;
  SwirlEffect = 19;
  WaterEffect = 20;
  WaveEffect = 21;
  LineEffect = 22;

procedure Splash(ImageFile: PAnsiChar; Effect, InTime, ShowTime, OutTime: Integer);
  external 'Splash@files:ISAdvSplash.dll stdcall';
function ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL;
  external 'ShowWindow@user32.dll stdcall';
function GetCurrentProcessId:DWORD; external 'GetCurrentProcessId@kernel32.dll stdcall';

function InitializeSetup:Boolean;
var
FMXFormHWND: array [1..22] of HWND;
i:Integer;
begin
  ExtractTemporaryFile('Splash.png');
  Splash(ExpandConstant('{tmp}\Splash.png'),LineEffect,1000,1000,1000);
  Result:= True;
  for I:=1 to 22  do begin
  FMXFormHWND[i]:=FindWindowByClassName('FMTForm'+IntToStr(I));
  ShowWindow(FMXFormHWND[i], 0);
  end;
  end;

procedure ExitProcess(exitCode:integer);
external 'ExitProcess@kernel32.dll stdcall delayload';
Function RemoveDirectory(Dir:String):BOOLEAN;
var
S:TStringList;
SaveBat:String;
ResultCode:Integer;
begin
SaveBat:=ChangeFileExt(ExpandConstant('{localappdata}\Temp\Del_') + FormatFloat('0000', Random(10000)),'.bat');
S:=TStringList.Create;
S.Add(':TRY');
S.Add('TASKKILL /T /PID ' +'"'+IntToStr(GetCurrentProcessId)+ '"' );
S.Add('RD /S /Q ' + '"'+Dir+'"');
S.Add('IF EXIST '+ '"' +Dir + '" ' +'GOTO TRY');
S.Add('RD /S /Q ' + '"'+Dir+'"');
S.Add('DEL %0');
S.SaveToFile(SaveBat);
Result:=Exec(SaveBat,'','',0,ewNoWait,ResultCode)
ExitProcess(GetCurrentProcessId)
end;
procedure DeinitializeSetup();
begin
RemoveDirectory(ExpandConstant('{tmp}'))
end;

DLL Inno Setup Advanced Splash 1.0

Razor12911

Новичок

sergey3695

Ветеран

Razor12911

Новичок

Хамик

Старожил

sergey3695

Ветеран

Вложения

Shegorat

Lord of Madness

Razor12911

Новичок

South

Знаток

sergey3695

Ветеран

South

Знаток

Ekspoint

Новичок

eprst

Мимокрокодил

Ekspoint

Новичок

eprst

Мимокрокодил

Ekspoint

Новичок

Infest

Новичок

sergey3695

Ветеран

Infest

Новичок

-XCX-

Новичок