Inno Setup (создание инсталяционных пакетов) - [80] :: Программы

Есть программеры?
Как победить такую вещь!????
Дано:

function InitializeSetup(): Boolean;
var

sLocation: String;
iShowCmd: Integer;
iErrorCode: Integer;
bRun: Boolean;

begin
ExtractTemporaryFile('splash.exe'); //Извлечение "временной" программы.
sLocation := ExpandConstant('{tmp}');
bRun := Exec(sLocation + '\splash.exe', '', sLocation, SW_SHOW, ewNoWait, iErrorCode);
Sleep(1500); //пауза между splash и копированием во временную папку.
Result := True;
end;

procedure InitializeWizard();
var
Form: TSetupForm;
ProgressBar: TNewProgressBar;
StaticText: TNewStaticText;
BitmapImage: TBitmapImage;
BitmapFileName: String;
s: string;
width, height: Integer;
pfunc: LongWord;
begin

WizardForm.CancelButton.BringToFront;

Form := CreateCustomForm(); //@@@

pfunc:= WrapTimerProc(@OnTimer, 4);
TimerID:= SetTimer(0, 0, 500, pfunc);

try
with Form do
begin
ClientWidth := ScaleX(380);
ClientHeight := ScaleY(120);
BorderStyle:= bsDialog;
Left:= GetSystemMetrics(16) - ClientWidth - ScaleX(12);
Top:= GetSystemMetrics(17) - ClientHeight - ScaleY(12);
FormStyle := fsStayOnTop;
end;
WizardForm.Position := poScreenCenter;
WizardForm.DirBrowseButton.OnClick:= @DirOnClick;
MainForm.BORDERSTYLE := bsNone;
width := GetSystemMetrics(0);
height := GetSystemMetrics(1);
MainForm.Width := width;
MainForm.Height := height;
width := MainForm.ClientWidth;
height := MainForm.ClientHeight;
ExtractTemporaryFile('My_Image.bmp');
s := ExpandConstant('{tmp}') + '\My_Image.bmp';
BackgroundBitmapImage := TBitmapImage.Create(MainForm);
BackgroundBitmapImage.Bitmap.LoadFromFile(s);
BackgroundBitmapImage.Left := 0;
BackgroundBitmapImage.Top := 0;
BackgroundBitmapImage.Width := width;
BackgroundBitmapImage.Height := height;
BackgroundBitmapImage.Parent := MainForm;
BackgroundBitmapImage.Stretch := True;
BitmapFileName := ExpandConstant('{tmp}\WizModernSmallImage.bmp');
ExtractTemporaryFile(ExtractFileName(BitmapFileName));
BitmapImage := TBitmapImage.Create(Form);
BitmapImage.Left := ScaleX(8);
BitmapImage.Top := ScaleY(8);
BitmapImage.AutoSize := True;
BitmapImage.Bitmap.LoadFromFile(BitmapFileName);
BitmapImage.Parent := Form;
StaticText := TNewStaticText.Create(Form);
StaticText.Top := BitmapImage.Top;
StaticText.Left := BitmapImage.Left + BitmapImage.Width + ScaleX(8)
StaticText.Caption := 'Подождите пока программа установки подготовит файлы,' +
+ #10#13 + 'Это может занять какое-то время.';
StaticText.AutoSize := True;
StaticText.Parent := Form;
CancelButton := TButton.Create(Form);
CancelButton.Parent := Form;
CancelButton.Width := ScaleX(75);
CancelButton.Height := ScaleY(23);
CancelButton.Left := Form.ClientWidth - ScaleX(75 + 10);
CancelButton.Top := Form.ClientHeight - ScaleY(23 + 10);
CancelButton.Caption := 'Отмена';
CancelButton.ModalResult := mrCancel;
CancelButton.Cancel := True;
ProgressBar := TNewProgressBar.Create(Form);
with ProgressBar do
begin
Height := CancelButton.Height - ScaleY(8);
Width := Form.Width - ScaleX(128);
Top := CancelButton.Top;
Left := BitmapImage.Left;
Parent := Form;
Min:= 0;
Max:= 30;
Position := 0;
end;
Form.ActiveControl := CancelButton;
Form.Show();
begin
Form.Repaint;
Sleep(200);
CheckCancel;
ExtractTemporaryFile('pic1.bmp'); //Извлечение "временной" программы.
ProgressBar.Position:= ProgressBar.Position + 1;
CheckCancel;
ExtractTemporaryFile('pic2.bmp'); //Извлечение "временной" программы.
ProgressBar.Position:= ProgressBar.Position + 1;
CheckCancel;
ExtractTemporaryFile('pic3.bmp'); //Извлечение "временной" программы.
ProgressBar.Position:= ProgressBar.Position + 1;
CheckCancel;
ExtractTemporaryFile('pic4.bmp'); //Извлечение "временной" программы.
ProgressBar.Position:= ProgressBar.Position + 1;
CheckCancel;
ExtractTemporaryFile('pic5.bmp'); //Извлечение "временной" программы.
ProgressBar.Position:= ProgressBar.Position + 1;
CheckCancel;
ExtractTemporaryFile('My_Image.bmp');
ProgressBar.Position:= ProgressBar.Position + 3;
CheckCancel;
ExtractTemporaryFile('2.gif');
ProgressBar.Position:= ProgressBar.Position + 3;
CheckCancel;
ExtractTemporaryFile('3.gif');
ProgressBar.Position:= ProgressBar.Position + 3;
CheckCancel;
ExtractTemporaryFile('4.gif');
ProgressBar.Position:= ProgressBar.Position + 3;
CheckCancel;
ExtractTemporaryFile('5.gif');
ProgressBar.Position:= ProgressBar.Position + 3;
CheckCancel;
ExtractTemporaryFile('6.gif');
ProgressBar.Position:= ProgressBar.Position + 3;
CheckCancel;
ExtractTemporaryFile(ExpandConstant('sound.wav')); //Извлекаем звуковой файл во временную папку
ProgressBar.Position:= ProgressBar.Position + 3;
CheckCancel;
end;
finally
Form.Free();
If RunTask('Splash.exe', false) then
begin
KillTask('Splash.exe');
end else
Exit;
end;
sleep (357)
MainForm.Visible := True;
end;

Как видно сдесь сначало выскакивает Splash.exe, за тем окошко с процесс-граббером.
Проблема в том что это окошко оказывается под Spash-ем!

Как сделать чтоб оно прикрывала Splash, а не заскакиволо, под него.
Нужен именно Splash.EXE!!!

Модерирует : gyra, Maz
Widok (23-04-2007 18:02): лимит страниц. продолжаем здесь	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108