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

[SatHan]

R.i.m.s.k.y., Johny777, Спасибо.
R.i.m.s.k.y., ничево себе сколько кода :o. хотелось как лучше а получилось как всегда :sorry:.
ладно я тада сам попробую что нибудь скумекать.

[R.i.m.s.k.y.]

SatHan, CTRL+C CTRL+V

[SatHan]

CTRL+C CTRL+V »Спасибо. я имел введу не копировать вставить. наоборот сам код упростить и уменьшить.

сделать тоже самое
[Files]
Source: ISTask.dll; DestDir: {app}; Flags: dontcopy

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

function InitializeSetup(): Boolean;
begin
If RunTask('notepad.exe', false) then
begin
MsgBox('блокнот запущен. пожалуйста закройте блокнот и запустите установку заново.', mbInformation, MB_OK);
Exit;
end;
Result:=True;
end;но без использования ISTask.dll.

[R.i.m.s.k.y.]

сделать тоже самое
но без использования ISTask.dll. »
а) делается тоже самое
б) без использования ISTask.dll
шонитаг?
А ты думал одной строчкой все сделать хорошо?

[Nasedkin Nikita]

панель нужна?
взято отсюда то что в первом посте.
в вложении прикрутил. »

Спасибо, помогло. А картинки в инстал через botva2 ставить?

[Mailchik]

SatHan, поменьше, от El Sanchez'а вроде:[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code]
function IsProcessRunning(FileName: String): Boolean;
var
objSWbemLocator, objSWbemServices: Variant;
begin
try
objSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
except
ShowExceptionMessage;
Exit;
end;
objSWbemServices := objSWbemLocator.ConnectServer();
objSWbemServices.Security_.ImpersonationLevel := 3;
Result := (objSWbemServices.ExecQuery('SELECT * FROM Win32_Process WHERE Name="' + FileName + '"').Count > 0);
end;

procedure InitializeWizard();
begin
if IsProcessRunning('notepad.exe') then
MsgBox('yes', mbInformation, MB_OK)
else
MsgBox('no', mbError, MB_OK);
end;

[R.i.m.s.k.y.]

Mailchik SatHan, пример хороший только как пример работы с WMI
На затвиканных вендах и говносборках этот вариант не работает тк в них убит наглухо WMI. Ошибка SwbemLocator: not found. Плавали, знаем

[SatHan]

Mailchik, Спасибо.
много чего уж перепробовал, но оставил этот (http://forum.oszone.net/post-1996880-1081.html), так как код короче всех. потому шансов на ошибки мизерный.

[R.i.m.s.k.y.]

SatHan
код короче всех. потому шансов на ошибки мизерный. »
бред. »
+1024
C использованием IsTask можно нарваться на параноидальный антивирь который блокирует вызов сторонних неизвестных неподписанных библиотек и dll (IsTask в их числе, ога), как следствие получить в инсталлере "Ошибка вызова xxx.dll" и краш инсталлера.
Самый рабочий вариант в моем посте. Не помню кто его мне накидал, или Serega или El Sanchez

[R.i.m.s.k.y.]

тк подумал что пусть он делает что хочет »
дадад, главное потом на руторе не скачать ;)

[SatHan]

C использованием IsTask можно нарваться на параноидальный антивирь который блокирует »мне друг так и сказал. чтоб я избавился от любых длл-ок которые обращаются к процессу. ещё он совет дал чтоб я очень не навешивал инсталятор всякими картинками так как часто происходят проблемы при антивирусных программах. в частности касается антивируса касперского. говорит что касперский привередлевее остальных и может случится что касперский запретит инициализацию инсталятора не говоря о левых исполнениях.

посоветовал собрать на этом коде
[#code]
Function InitializeSetup: Boolean;
var
res : integer;
begin
Result := True;
Exec('ping.exe ', ' 2ip.ru ', ExpandConstant('{sys}'), SW_HIDE, ewWaitUntilTerminated, res);
if res = 0 then begin
MsgBox('Найдено подключение к интернету. Установка будет прекращена!', mbInformation, MB_OK);
Result := False;
end;
end;
говорит можно но помогать не будет. хочет чтоб я сам разобрал и посоветовал мне внимательно справку почитать.

[SARATOVSKY]

Johny777, Да не надо, сделал уже по-другому!

[R.i.m.s.k.y.]

в частности касается антивируса касперского. говорит что касперский привередлевее остальных и может случится что касперский запретит инициализацию инсталятора не говоря о левых исполнениях. »
Ты еще Comodo File Antivirus не щупал, этот кусок гадости не дает почту принять, не пускает к дисковым шарам и блокирует реестр одмину.
хочет чтоб я сам разобрал и посоветовал мне внимательно справку почитать. »
читай, да, чтение справки еще никого не убило :read:

[SARATOVSKY]

И последний (я надеюсь) вопрос! У меня есть много файлов которые извлекаются в папку {tmp}, естественно они имеют размер и когда на странице выбора компонентов сняты все галочки с компонетов (устанавливать нечего), то ComponentsDiskSpaceLabel выдаёт размер временных файлов, так как мне обнулить это, когда невыбран ни один компонент?

[Gnom_aka_Lexander]

SARATOVSKY, не распаковывать эти файлы из секции [Files]. Тоесть, убрать с этих файлов Destdir : {tmp};, оставив Flags : dontcopy; Это нормальное явление, даже зубры программирования допускают эту ошибку. Единственное - нужно не забыть распковать эти файлы в коде, с помощью ExtractTemporaryFile, перед использованием. И неплохо удалять их после использования самостоятельно, с помощью DeleteFile поштучно, либо с помощью DelTree(ExpandConstant('{tmp}', True, True, True); всю временную папку инсталятора целиком на выходе, поскольку я начал замечать за инсталлом на инно косяк с неудалением временной папки время от времени.

[R.i.m.s.k.y.]

SARATOVSKY, Gnom_aka_Lexander,
Есть антибаг: к строчке с Check вычисление места не применяется
[Files]
Source: ..\SVP.Distr\ffdshow\; DestDir: {tmp}; Check: (True_function);

[CODE]
function True_function(): Boolean;
begin
Result := True;
end;

[Gnom_aka_Lexander]

R.i.m.s.k.y., неправильное решение в данном случае. файлы которые нужны инсталлу - они нужны ему сразу. Destdir : {tmp}; - распаковывает их на этапе установки, однако, поскольку они уже распакованы, поскольку инсталл-то работает, ведь? то это действие уже в корне неверно, и писалось об этом неоднократно, и люди тупо продолжают совершать эту ошибку.

[R.i.m.s.k.y.]

Gnom_aka_Lexander, Не понял последовательности твоих мыслей и в чем ошибка.
Речь шла о том чтобы место не подсчитывалось для определенного файла, если файл нужен раньше секции Files - тогда да флаг dontcopy + ExtractTemporaryFile.
И в CurStep=ssDone дежурный DelTree(ExpandConstant('{tmp}', True, True, True);

[Gnom_aka_Lexander]

R.i.m.s.k.y., может, конечно, зря я включил свою телепатию, но почемуто кажется мне, что не зря. файлы, которые нужны ему в темпе - файлы оформления инсталла, просто исходя из предидущих вопросов заключаю (да-да, телепатия - не более, чем логика) и нужны они сразу, посему - никаких DestDir : {tmp};, строго flags : dontcopy плюс ExtractTemporaryFile.
P.S. и да, сочетание DestDir : {tmp}; flags : dontcopy я видел у людей очень авторитетных, из чего могу заключить, что это можно не считать постыдной ошибкой для новичка :teeth:
P.P.S.И в CurStep=ssDone дежурный DelTree(ExpandConstant('{tmp}', True, True, True); »
а что делать, если выход из инсталла был произведен до ssDone ? наверное нужно еще и в DeinitializeSetup добавить такую строчку?

[SARATOVSKY]

Теперь всё, :) всем спасибо!