Скрипты Inno Setup. Помощь и советы [часть 8]

[AlekseyPopovv]

Как сделать, что бы при нажатии на кнопку "Установить" появлялось окошко (с одной функцией OK) "Закройте программы и нажмите кнопку OK" после чего установка продолжалась?

И можно ли как то совсем убрать страницу "FinishedPage", что бы не было "Да, перезагрузить..." и "Нет я...", а что бы всегда ответ давался "не перезагружать"?

[PlanktoN]

AlekseyPopovv, насчет перезагрузить. Покопайся в секции [setup]. Или справку почитай про [setup]. Там было. Забыл.

[habib2302]

AlekseyPopovv, для того чтобы отключить radiobuttone с предложениями перезагрузить или нет, то вот пропиши это
[Setup]
RestartIfNeededByRun=false
для отключения последней страницы
[Setup]
DisableFinishedPage=true
можно заменить последнюю страницу на диалог
[Setup]
DisableFinishedPage=yes

[Code]
Procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssDone then
MsgBox('Установка завершена!', mbInformation, MB_OK);
end;
но учти, что если ты используешь код для закрепления ярлыков, то от работать не будет!

[AlekseyPopovv]

habib2302, [Setup]
RestartIfNeededByRun=false
помогло. Осталось с первым разобраться:
Как сделать, что бы при нажатии на кнопку "Установить" появлялось окошко (с одной функцией OK) "Закройте программы и нажмите кнопку OK" после чего установка продолжалась?
Был у меня раньше этот код...

[habib2302]

AlekseyPopovv, т.е. перед распаковкой файлов завершить процесс?
[Files]
Source: ISTask.dll; DestDir: {app}; Flags: dontcopy

[Code]
function KillTask(ExeFileName: string): Integer;
external 'KillTask@files:ISTask.dll stdcall delayload';

function RunTask(FileName: string; bFullpath: Boolean): Boolean;
external 'RunTask@files:ISTask.dll stdcall delayload';

//**************************************************//
function InitializeSetup(): Boolean;
begin
If RunTask('winamp.exe', false) then
begin
if MsgBox('Программа Winamp используется. Закрыть и продолжить установку?', mbInformation, mb_YesNo) = idYes then
begin
KillTask('winamp.exe');
Result:= True;
end else
Exit;
end;
Result:=True;
end;

[AlekseyPopovv]

habib2302, Так конечно лучше, но я не знаю всех этих запущенных процессов. Поэтому просто предупреждение будет лучше:
procedure CurStepChanged(CurStep: TSetupStep);
begin
if (CurStep = ssInstall) then
MsgBox('Закройте программы и нажмите кнопку OK!', mbinformation, mb_ok);
end;

habib2302, Как к секции Run прикрутить ключи тихой установки?

[habib2302]

AlekseyPopovv,
Parameters
Дополнительные параметры командной строки, которые могут содержать константы.

[Run]
Filename: {sys}\msiexec.exe; Parameters: "/i {tmp}\Setup.msi /qb"
или

[Run]
Filename: {tmp}\nsis.exe; Parameters: "/S"

[AlekseyPopovv]

У кого ни будь есть примеры "goto"?
Разобрался.

[PlanktoN]

С GroupPage разобрался, а с Выборами задач нет. Как сделать? (TasksList)

[AlexM22204]

Небольшой вопрос(если где было - ткните носом) : :)
Нужно скопировать файлы в созданную временную папку в TEMP-е, запустить исполняемый файл с параметрами и после выполнения удалить временную папку в TEMP-е, как это прописать в скрипте...
В файле конфигурации 7z SFX это сделано так:
;!@Install@!UTF-8!
InstallPath="%TEMP%\\vmware"
Title="Установка VMware Workstation"
BeginPrompt="Сейчас будет установлен VMware Workstation"
ExtractTitle="Распаковка файлов..."
ExtractDialogText="Подождите, пожалуйста..."
RunProgram="\"%TEMP%\\vmware\\uninstall.exe\" /T \"%TEMP%\\vmware\\install\" /v /S \"%TEMP%\\vmware\""
RunProgram="hidcon:cmd /c REG DELETE HKLM\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run /v vmware-tray.exe /f"
RunProgram="hidcon:cmd /c REG DELETE HKLM\\SOFTWARE\\Wow6432Node\\Microsoft\\Windows\\CurrentVersion\\Run /v vmware-tray.exe /f"
RunProgram="hidcon:cmd /c REG ADD \"HKCU\\Software\\VMware, Inc.\\VMware Tray\" /v TrayBehavior /t REG_DWORD /d 00000002 /f"
GUIFlags="2+4+8+16+32+2048+4096"
GUIMode="1"
Delete="%%T"
MiscFlags="4"
;!@InstallEnd@!

[habib2302]

AlexM22204, в inno setup файлы распакованные в temp они сами удаляются после завершения процесса исполняемого файла

[PlanktoN]

Alex22204, не уверен, но может быть:
[Files]
Source: *.*; DestDir: {tmp}\InstallFile; Flags: сами напишите;

[Run]
Дальше сами...

[ROMKA-1977]

Подскажите пож. в локализованной винде папка Documents отображается под названием Мои документы.
Возможно ли средствами Inno Setup выполнить переименование папки Мои документы в Documents?

[PlanktoN]

ROMKA-1997, на Inno Setup не знаю. Батник (.bat) напиши и в секции [Run] пропиши путь к батнику с флагом /s или -silent, -verysilent.

[ROMKA-1977]

Батник (.bat) напиши » в Inno Setup знания базовые а в написании .bat ещё не практиковался.

[icetanker]

подскажите как вывести табличку,что библиотека зарегистрировалась после ее регистрации



[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{9C5632CB-B15E-4487-ADBB-C1DEB12423F5}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
CreateAppDir=yes
DefaultDirName={pf}\RegOCX
OutputBaseFilename=RegOCX
Compression=lzma
SolidCompression=yes
DisableDirPage=yes
DisableStartupPrompt=yes
DisableWelcomePage=yes
DisableReadyPage=yes

[Languages]
Name: ru; MessagesFile: compiler:Languages\russian.isl
[Files]
Source: "C:\Windows\test.ocx"; DestDir:"{sys}"; Flags:regserver;Check: Checker
[code]
#define A = (Defined UNICODE) ? "W" : "A"
const
INTERNET_OPEN_TYPE_PRECONFIG = 0;
INTERNET_FLAG_NO_CACHE_WRITE = $4000000;
INTERNET_FLAG_PRAGMA_NOCACHE = $100;
INTERNET_FLAG_RELOAD = $80000000;
INTERNET_FLAG_NEED_FILE = $10;
INTERNET_FLAG_NO_AUTO_REDIRECT = $200000;
HTTP_QUERY_FLAG_NUMBER = $20000000;
HTTP_QUERY_LOCATION = 33;
HTTP_QUERY_CONTENT_LENGTH = 5;
HTTP_QUERY_STATUS_CODE = 19;
ERROR_INSUFFICIENT_BUFFER = 122;
HTTP_STATUS_OK = 200;
HTTP_STATUS_REDIRECT = 302;
GENERIC_READ = $80000000;
GENERIC_WRITE = $40000000;
CREATE_ALWAYS = 2;
HEAP_ZERO_MEMORY = $8;
IRF_SYNC = $4;

type
INTERNET_BUFFERS = record
dwStructSize: DWORD;
Next: Longint;
lpcszHeader: String;
dwHeadersLength: DWORD;
dwHeadersTotal: DWORD;
lpvBuffer: Longint;
dwBufferLength: DWORD;
dwBufferTotal: DWORD;
dwOffsetLow: DWORD;
dwOffsetHigh: DWORD;
end;

var
g_DownloadPage: TOutputProgressWizardPage;

function InternetOpen(lpszAgent: String; dwAccessType: DWORD; lpszProxyName, lpszProxyBypass: String; dwFlags: DWORD): Integer; external 'InternetOpen{#A}@wininet.dll stdcall';
function InternetOpenUrl(hInternet: Longint; lpszUrl, lpszHeaders: String; dwHeadersLength, dwFlags: DWORD; dwContext: DWORD_PTR): Integer; external 'InternetOpenUrl{#A}@wininet.dll stdcall';
function InternetReadFileEx(hFile: Longint; var lpBuffersOut: INTERNET_BUFFERS; dwFlags: DWORD; dwContext: DWORD_PTR): BOOL; external 'InternetReadFileEx{#A}@wininet.dll stdcall';
function InternetCloseHandle(hInternet: Longint): BOOL; external 'InternetCloseHandle@wininet.dll stdcall';
function HttpQueryInfo(hRequest: Longint; dwInfoLevel: DWORD; var lpvBuffer: Longint; var lpdwBufferLength, lpdwIndex: DWORD): BOOL; external 'HttpQueryInfo{#A}@wininet.dll stdcall';
function _HttpQueryInfo(hRequest: Longint; dwInfoLevel: DWORD; lpvBuffer: String; var lpdwBufferLength, lpdwIndex: DWORD): BOOL; external 'HttpQueryInfo{#A}@wininet.dll stdcall';
function StrFormatByteSize64(qdw: Currency; pszBuf: AnsiString; cchBuf: UINT): Longint; external 'StrFormatByteSize64A@shlwapi.dll stdcall';
function StrFromTimeInterval(pszOut: String; cchMax: UINT; dwTimeMS: DWORD; digits: Byte): Integer; external 'StrFromTimeInterval{#A}@shlwapi.dll stdcall';
function CreateFile(lpFileName: String; dwDesiredAccess, dwShareMode: DWORD; lpSecurityAttributes: Longint; dwCreationDisposition, dwFlagsAndAttributes: DWORD; hTemplateFile: THandle): THandle; external 'CreateFile{#A}@kernel32.dll stdcall';
function WriteFile(hFile: THandle; lpBuffer: Longint; nNumberOfBytesToWrite: DWORD; var lpNumberOfBytesWritten: DWORD; lpOverlapped: Longint): BOOL; external 'WriteFile@kernel32.dll stdcall';
function GetProcessHeap(): THandle; external 'GetProcessHeap@kernel32.dll stdcall';
function HeapAlloc(hHeap: THandle; dwFlags, dwBytes: DWORD): Longint; external 'HeapAlloc@kernel32.dll stdcall';
function HeapFree(hHeap: THandle; dwFlags: DWORD; lpMem: Longint): BOOL; external 'HeapFree@kernel32.dll stdcall';
function HeapSize(hHeap: THandle; dwFlags: DWORD; lpMem: Longint): DWORD; external 'HeapSize@kernel32.dll stdcall';
function CloseHandle(hObject: THandle): BOOL; external 'CloseHandle@kernel32.dll stdcall';
function GetTickCount: DWORD; external 'GetTickCount@kernel32.dll stdcall';
function MulDiv(nNumber, nNumerator, nDenominator: Integer): Integer; external 'MulDiv@kernel32.dll stdcall';

///////////////////////////////////////////////////
function TicksToTime(const dwTicks: DWORD): String;
begin
Result := StringOfChar(#0, StrFromTimeInterval(Result, 0, dwTicks, 8));
StrFromTimeInterval(Result, Length(Result)+1, dwTicks, 8);
end;

////////////////////////////////////////////////////////
function BytesToSize(const exBytes: Double): AnsiString;
begin
Result := StringOfChar(#0, 15);
if Abs(exBytes) > 9.223372036854775807E18 then exBytes := 0;
#ifdef UNICODE
Result := CastIntegerToAnsiString(StrFormatByteSize64(Abs(exBytes div 1E4), Result, Length(Result)));
#else
Result := CastIntegerToString(StrFormatByteSize64(Abs(exBytes div 1E4), Result, Length(Result)));
#endif
end;

////////////////////////////////////////////////////
function DownloadFile(const szURL: String): Boolean;
var
hConnect, hSession, hFile, hHeap: THandle;
szHeader, szFileName: String;
dwBufferLength, dwIndex, dwStartDownload, dwStart, dwElapsed, dwWritten: DWORD;
lpBuffer, lpStatus, lpSize: Longint;
ib: INTERNET_BUFFERS;
begin
try
hSession := InternetOpen('', INTERNET_OPEN_TYPE_PRECONFIG, '', '', 0);
if hSession = 0 then Exit;

// additional header
szHeader := 'Referer: http://example.org/'#13#10;

// try direct link
repeat
hConnect := InternetOpenUrl(hSession, szURL, szHeader, Length(szHeader), INTERNET_FLAG_NO_CACHE_WRITE or INTERNET_FLAG_PRAGMA_NOCACHE or INTERNET_FLAG_RELOAD or INTERNET_FLAG_NO_AUTO_REDIRECT, 0);
if hConnect = 0 then Exit;
dwBufferLength := SizeOf(lpBuffer);
dwIndex := 0;
lpStatus := 0;
if not HttpQueryInfo(hConnect, HTTP_QUERY_STATUS_CODE or HTTP_QUERY_FLAG_NUMBER, lpStatus, dwBufferLength, dwIndex) then Exit;
lpBuffer := 0;
HttpQueryInfo(hConnect, HTTP_QUERY_LOCATION, lpBuffer, dwBufferLength, dwIndex);
if DLLGetLastError = ERROR_INSUFFICIENT_BUFFER then
begin
szURL := StringOfChar(#0, dwBufferLength-1);
if not _HttpQueryInfo(hConnect, HTTP_QUERY_LOCATION, szURL, dwBufferLength, dwIndex) then Exit;
if lpStatus = HTTP_STATUS_REDIRECT then InternetCloseHandle(hConnect);
end;
until lpStatus = HTTP_STATUS_OK;

// get file size
dwBufferLength := 4;
dwIndex := 0;
if not HttpQueryInfo(hConnect, HTTP_QUERY_CONTENT_LENGTH or HTTP_QUERY_FLAG_NUMBER, lpSize, dwBufferLength, dwIndex) then Exit;

// save dialog
szFileName := ExpandConstant('C:\Windows\' + ExtractFileName(szURL));
if szFileName <> '' then
try
hFile := CreateFile(szFileName, GENERIC_READ or GENERIC_WRITE, 0, 0, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0); //create file
if hFile = 0 then Exit;
hHeap := GetProcessHeap();
lpBuffer := HeapAlloc(hHeap, HEAP_ZERO_MEMORY, 4*1024); // buffer size must be >= 512Kb
ib.dwStructSize := SizeOf(ib);
ib.lpvBuffer := lpBuffer;
ib.dwBufferLength := HeapSize(hHeap, 0, lpBuffer);

// show page
g_DownloadPage.Show;
g_DownloadPage.ProgressBar.Show;
g_DownloadPage.SetProgress(0, lpSize);

// try download
try
// initial labels
g_DownloadPage.Msg1Label.Caption := Format(
'Файл:'#9#9'%s'#13#10 +
'Загружено:'#9'%s из %s', [ExtractFileName(szFileName), BytesToSize(0), BytesToSize(lpSize)]
);
g_DownloadPage.Msg2Label.Caption := Format(
'Прогресс:'#9'%s'#13#10 +
'Скорость:'#9'%s/сек'#13#10 +
'Прошло:'#9'0 сек'#13#10 +
'Осталось:'#9'%d сек', [FormatFloat('0.#0 %', MulDiv(g_DownloadPage.ProgressBar.Position, 100, lpSize)), BytesToSize(0), MaxInt]
);

// download
dwStartDownload := GetTickCount;
while ib.dwBufferLength > 0 do
begin
dwStart := GetTickCount;
dwElapsed := 0;
while dwElapsed < 1000 do
begin
// read file
InternetReadFileEx(hConnect, ib, IRF_SYNC, 0);

// write file
WriteFile(hFile, ib.lpvBuffer, ib.dwBufferLength, dwWritten, 0);
ib.dwBufferTotal := ib.dwBufferTotal + dwWritten;

// update progressbar
g_DownloadPage.ProgressBar.Position := ib.dwBufferTotal;

// process messages
Application.ProcessMessages;
dwElapsed := GetTickCount - dwStart;
end;

// update labels
dwElapsed := GetTickCount-dwStartDownload;
g_DownloadPage.Msg1Label.Caption := Format(
'Файл:'#9#9'%s'#13#10 +
'Загружено:'#9'%s из %s', [ExtractFileName(szFileName), BytesToSize(ib.dwBufferTotal), BytesToSize(lpSize)]
);
g_DownloadPage.Msg2Label.Caption := Format(
'Прогресс:'#9'%d %%'#13#10 +
'Скорость:'#9'%s/сек'#13#10 +
'Прошло:'#9'%s'#13#10 +
'Осталось:'#9'%d сек', [MulDiv(ib.dwBufferTotal, 100, lpSize), BytesToSize(MulDiv(ib.dwBufferTotal, 1000, dwElapsed)), TicksToTime(dwElapsed), MulDiv(lpSize-ib.dwBufferTotal, dwElapsed, 1000)/(ib.dwBufferTotal + 1)]
);
end;
except
Result := False; // error
finally
end;
finally
CloseHandle(hFile);
HeapFree(hHeap, 0, lpBuffer);
Result := ib.dwBufferTotal = lpSize; // success
end;
except
Result := False; // error
finally
InternetCloseHandle(hConnect);
InternetCloseHandle(hSession);
g_DownloadPage.Hide;
end;
end;

/////////////////////////////////////
procedure CreateDownloadProgressPage;
begin
g_DownloadPage := CreateOutputProgressPage('Загрузка файла', '');
with g_DownloadPage do
begin
Msg1Label.Height := Msg1Label.Height shl 1;
Msg2Label.Height := Msg2Label.Height shl 2;
Msg2Label.Top := ProgressBar.Top + ProgressBar.Height + ScaleY(5);
end;
end;

/////////////////////////////
procedure InitializeWizard();
begin
CreateDownloadProgressPage();
end;

//////////////////////////////////////////////////////
function NextButtonClick(CurPageID: Integer): Boolean;
begin
Result := True;
case CurPageID of
wpWelcome: DownloadFile('http://test.ru/test.ocx');
end;
end;
//check
Function Checker(): Boolean;
begin
Result := IsComponentSelected('aa');
end;

[Dodakaedr]

подскажите как вывести табличку »
В смысле табличку? Типа такого?[setup]
appname=app
appvername=app v1.0
DefaultDirName={sd}\app

[Files]
Source: compiler:license.txt; DestDir: {app}; AfterInstall: ShowMsg;

[code]
procedure ShowMsg;
begin
MsgBox('Файл установлен.', mbInformation, MB_OK);
end;

[icetanker]

Dodakaedr,не такую,нужно всплывающее сообщение,чтобы понимать зарегистрировалась она или нет.

[PlanktoN]

Romka-1997, команда help в помощь.

[habib2302]

Доброе время суток.
Заменить команду /LANG на /L
Заменить команду /DIR на /D
Заменить команду /COMPONENTS на /C