[rang3r]

Привет,
Думаю тема уже поднималась, но мне не удалось найти примеров, проблема следующая,

Код:

DefaultDirName={reg:HKCU\Software\JetBrains\IntelliJ IDEA\93.94,|C:\Default}\plugins

Я пытаюсь сделать установочник для плагина к IDE, так вот мне надо определить ее местоположение, думаю это делать через реестр, нашел ключ прописал его , остался следующий момент,
как видно самая нижняя нода в пути "93.94" , это версия самой IDE, а она может быть у всех разной, можно ли как то разрулить этот момент через regexp ? Я попробовал вместо номера варсии поставить *, скомпилировал , запустил, на одной машине (Win7) это сработало, а на другой (WinXP) нет, подскажите как можно решить эту проблему ?

[Gnom_aka_Lexander]

rang3r, держи, взял путь из меню проводника "Открыть с помощью..." этот ключ не зависит от весии.

читать дальше »

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={code:GetPath|{pf}\MyApp}\plugins

[code]
function GetPath(S: String): String;
var Path: String;
begin
RegQueryStringValue(HKCR, 'IntelliJIdeaProjectFile\shell\open\command', '', Path);
if Path <> '' then begin
StringChange(Path, '"%1"', '');
while Pos('"', Path) > 0 do StringChange(Path, '"', '');
Path:= ExtractFilePath(Path);
end;
If Path = '' then Path:= S;
Result:= Path;
end;

[leshcat]

insombia

Ага. Тогда сам отвечу на свой вопрос:
ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\WizardImage.bmp',X,Y,Z,0,255,Bool,$FFFF FF,10);
X = время появления
Y = время показа
Z = время затухания
0 = минимальная прозрачность
255 = максимальная прозрачность
Bool = видимо "Вырезать (считать прозрачным) цвет"
Остальное непонятно.

[leshcat]

Еще вопрос:

Возможно сделать так, чтобы прогресс инсталляции был примерно такого рода?

Тоесть маленькое, простое,% и время, можно без кнопок отмены или закрытия (вес файлов не так велик).

[rang3r]

Лександер
Спасибо огромное, на Win7 все без проблем заработало, на WinXP добавил только 1 строчку

Код:

StringChange(Path, '\bin', '');

Еще раз спасибо.

[murlakatamenka]

А есть информация за что отвечает каждый параметр?

есть

ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\WizardImage.bmp',1000,3000,1000,0,255,F alse,$FFFFFF,10);

по порядку:
хэндл (дескриптор) окошка мастера, путь к картинке, время появления, время показа, время исчезновения, минимальная прозрачность, максимальная прозрачность, считать прозрачным цвет, считающийся прозрачным цвет, хз

[leshcat]

murlakatamenka
Спасибо. А что насчет этого?

[murlakatamenka]

leshcat, а опишите подробнее процесс инсталляции
как я понял, запускается setup.exe и всё устанавливается в таком вот окошке без взаимодействия с пользователем. или так выглядит сам процесс установки после выбора папки установки и ... ?

[leshcat]

murlakatamenka

Схема такова:

1.Появляется картинка перед инсталлятором.
2.Начинается полноэкранное слайдшоу (которое идет вплоть до конца, тоесть нажатия кнопки exit) и нормальный вид инсталлятора дает выбирать что нужно, куда ставить итп.
3.Когда все выбрано, начинается "инсталляция". Вот тут то и должно появлятся вместо "грузного" стандартного вида это будущее маленькое, как описано в посте 1955 и приятное на вид окно, которое показывает % и прошедшее время инсталла(опционально).
4. Появляется Конечное меню инсталлятора в Нормальном виде, чтобы отметить 3-4 чекбокса и все.
5. При выходе еще разок в быстром темпе проиграются все слайды(все еще под вопросом).

вот как-то так.

[insombia]

как сделать чтобы здесь http://pic.4m.net.ua/images/22349666621408822799.jpg можно было выбрать только один компонент и вместо галочки кружочок был?

leshcat то что-то подобное на 7-zip если хочеш вот код на него

читать дальше »

procedure CurStepChanged(CurStep: TSetupStep);
var
res:Integer;
app, arc, dest:string;
begin
If CurStep=ssPostInstall
then
begin
app:=ExpandConstant('{src}')+'\7za.exe';
arc:=ExpandConstant('{src}')+'\ARC.7z';
dest:=ExpandConstant('{app}');
Exec(app, 'x "'+ arc + '" -y -o"'+ dest + '"', '', SW_SHOWNORMAL, ewWaitUntilTerminated, res);
end;
end;