Shank
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
[Name]
Name: "russian"; Name: "compiler:Name\Russian.isl"
[Files]
Name: "InstallFiles\*"; Name: dontcopy;
[Icons]
Name: "{group}\My Program"; Name: "{app}\MyProg.exe"
[code]
var
WizardImg: Longint;
function ImgLoad(Wnd :HWND; FileName  AnsiChar; Left, Top, Width, Height :integer; Stretch, IsBkg :boolean) :Longint; external 'ImgLoad@{tmp}\botva2.dll stdcall delayload';
procedure ImgSetPosition(img :Longint; NewLeft, NewTop, NewWidth, NewHeight :integer); external 'ImgSetPosition@{tmp}\botva2.dll stdcall delayload';
procedure ImgRelease(img :Longint); external 'ImgRelease@{tmp}\botva2.dll stdcall delayload';
procedure ImgSetVisibility(img :Longint; Visible :boolean); external 'ImgSetVisibility@{tmp}\botva2.dll stdcall delayload';
function ImgGetVisibility(img:Longint):boolean; external 'ImgGetVisibility@{tmp}\botva2.dll stdcall delayload';
procedure ImgApplyChanges(h:HWND); external 'ImgApplyChanges@{tmp}\botva2.dll stdcall delayload';
procedure gdipShutdown; external 'gdipShutdown@{tmp}\botva2.dll stdcall delayload';
function InitializeSetup: Boolean;
begin
ExtractTemporaryFile('botva2.dll');
ExtractTemporaryFile('innocallback.dll');
Result:=True;
end;
//************************************************ [Начало - Вставка изображений] ***************************************************//
procedure CreateWizardImage;
var
i: integer;
begin
WizardForm.ClientWidth:=ScaleX(798);
WizardForm.ClientHeight:=ScaleY(543);
WizardForm.Center;
WizardForm.OuterNotebook.Hide;
WizardForm.InnerNotebook.Hide;
WizardForm.Bevel.Hide;
ExtractTemporaryFile('Workspace.png');
ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\Workspace.png'),ScaleX(42), ScaleY(160),ScaleX(714),ScaleY(309),True,True);
ImgApplyChanges(WizardForm.Handle);
end;
//************************************************ [Конец - Вставка изображений] ***************************************************//
procedure InitializeWizard;
begin
CreateWizardImage;
end;
procedure DeinitializeSetup;
begin
gdipShu tdown;
end;
|
