Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 510
Благодарности: 51

Профиль | Отправить PM | Цитировать


Q: Как сделать, чтобы при распаковке файлов, инсталл убирался в маленькое окошко в углу экрана?
A: Мой вариант выглядит так
читать дальше »
[Setup]
AppName=MiniInstall
AppVersion=1.0
DefaultDirName={pf}\MiniInstall

[Files]
Source: {win}\help\*; DestDir: {app}\Files; Flags: external recursesubdirs createallsubdirs;

[code]
function GetSystemMetrics(nIndex:Integer):integer; external 'GetSystemMetrics@user32.dll stdcall delayload';

procedure MiniInstall;
begin
with WizardForm do
begin
Bevel.Hide;
Bevel1.Hide;
MainPanel.Hide;
AutoScroll := False;
ClientHeight := ScaleY(105);
InnerNotebook.Align := alClient;
ProgressGauge.Left := ScaleX(40);
CancelButton.Top := ScaleY(70);
CancelButton.BringToFront;
// ----- Позиция инсталлятора ----- \\
Left:=GetSystemMetrics(16)-Width; // Справа
// Left:=0; // Слева
Top:=GetSystemMetrics(17)-Height; // Внизу
// Top:=0; // Вверху
//----------------------------------\\
end;
end;

procedure RestoreInstall;
begin
with WizardForm do
begin
Bevel.Show;
ClientHeight := ScaleY(360);
Position:=poScreenCenter;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpInstalling: MiniInstall;
wpFinished: RestoreInstall;
end;
end;
кто-то может мне сделать чтобы кнопка отмены была в миниинсталле?а то её там нету
скрипт

Отправлено: 21:53, 10-03-2013 | #1844