[moraru]

извените я только новичек в этом деле но я хочу создать репак такой же как этот:
http://www.forum.oszone.ru/post-1409866-1784.html
но мне оттуда только строка состояния инстала (Которая сверху на ней статусы "установка", Завершение)измение размеров окна до 798х543, текстурированные кнопки,
состояние устаеовки(сколько процентов), фоновое изображение и проверка производительности.
Но я немогу все это оттуда вытащить! мож кто нибуть знает как такой скрипт сделать?

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

Только как правельно в Value Data сделать? F это место откуда ставилось. ну а первый ключ от инсталл шиелд врятли нужен. »

Ну пусть будет C:\, он то у вес есть

Код:

Root: HKLM; SubKey: SOFTWARE\LucasArts\Star Wars Jedi Knight Jedi Academy\1.0; ValueType: string; ValueName: CDPath; ValueData: C:
Root: HKLM; SubKey: SOFTWARE\LucasArts\Star Wars Jedi Knight Jedi Academy\1.0; ValueType: string; ValueName: Source Path; ValueData: C:
Root: HKLM; SubKey: SOFTWARE\LucasArts\Star Wars Jedi Knight Jedi Academy\1.0; ValueType: string; ValueName: Source Dir; ValueData: C:

Мой вопрос кто-нить глянет?

[M3EG]

Ну пусть будет C:\, он то у вес есть »

Ну это понятно канеш попробую. Просто думал можно сделать чтоб он показывал место от куда его ставиш.

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

Просто думал можно сделать чтоб он показывал место от куда его ставиш »

поменяйте ValueData: C: на ValueData: {app}

[moraru]

на мой вопрос кто нить ответит?

[vint56]

moraru, Need for Speed™ Undercover.iss v 2.2 [Final]
http://rghost.ru/1573116 либо http://rghost.ru/1573116

[moraru]

как cделать статус панель вверху инсталятора как на картинке? Пишет uncown identifier "Welcome"

[SeDmY]

Друзья, у меня вот с чем проблема:



Жму компиляцию, проходит время и на пол пути ошибка со скрина((((((((

Может что в скрипте накосячил... я же не профи....:

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

[Setup]
DiskSpanning=true
DiskSliceSize=1457664000
AppId={{77B8C3D8-4F8F-4DE2-AB13-46B9F3230A5C}
AppName=Blur
AppVerName=Blur
AppPublisher=Pro100 RePack
DefaultDirName={pf}\Blur
DefaultGroupName=Blur
OutputDir=E:\Инсталяторы
OutputBaseFilename=setup
SetupIconFile=E:\Games\Blur(TM)\Blur.ico
Compression=lzma/ultra64
SolidCompression=true
InternalCompressLevel=ultra64
WizardImageFile=E:\Инсталяторы\Phoenix.bmp
WizardImageBackColor=clWhite
WizardSmallImageFile=E:\Инсталяторы\Phoenix 2.bmp

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked; OnlyBelowVersion: 0,6.1

[Files]
Source: E:\Games\Blur(TM)\Blur.exe; DestDir: {app}; Flags: ignoreversion
Source: E:\Games\Blur(TM)\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
Source: unarc.dll; DestDir: {tmp}; Flags: dontcopy deleteafterinstall
Source: compiler:InnoCallback.dll; DestDir: {tmp}; Flags: dontcopy
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\Запустить игру"; Filename: "{app}\blur.exe"; WorkingDir: "{app}";
Name: "{group}\Удалить игру"; Filename: "{uninstallexe}";
Name: "{commondesktop}\Blur"; Filename: "{app}\blur.exe"; WorkingDir: "{app}"; Tasks: "desktopicon";

[code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep=usPostUninstall then
begin
DelTree(ExpandConstant('{app}'), True, True, True);
RemoveDir(ExpandConstant('{app}'));
end;
end;

[Run]
Filename: {app}\Blur.exe; Description: {cm:LaunchProgram,Blur}; Flags: nowait postinstall skipifsilent

[Registry]
Root: HKLM; SubKey: SOFTWARE\Wow6432Node\Activision\Blur; ValueType: string; ValueName: InstallPath; ValueData: {app}; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\Wow6432Node\Activision\Blur; ValueType: string; ValueName: InstallDrive; ValueData: F:\
Root: HKLM; SubKey: SOFTWARE\Wow6432Node\Activision\Blur; ValueType: string; ValueName: LanguageCode; ValueData: RUS
Root: HKLM; SubKey: SOFTWARE\Wow6432Node\Activision\Blur; ValueType: string; ValueName: Language; ValueData: 1049
Root: HKLM; SubKey: SOFTWARE\Wow6432Node\Activision\Blur; ValueType: string; ValueName: StartMenuFolder; ValueData: C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Blur(TM)
Root: HKLM; SubKey: SOFTWARE\Wow6432Node\Activision\Blur; ValueType: string; ValueName: Version; ValueData: 1.0
Root: HKLM; SubKey: SOFTWARE\Wow6432Node\Activision\Blur; ValueType: string; ValueName: IntVersion; ValueData: 20.0
Root: HKLM; SubKey: SOFTWARE\Wow6432Node\Activision\Blur; ValueType: string; ValueName: UninstallString; ValueData: "\""C:\Program Files (x86)\InstallShield Installation Information\{{589A63D3-89E1-4D9B-8DBC-6039BB27289E}\uninstall.exe\"" -runfromtemp -l0x0419 -uninst"
Root: HKLM; SubKey: SOFTWARE\Wow6432Node\Activision\Blur; ValueType: string; ValueName: EXEString; ValueData: E:\Games\Blur(TM)\Blur.exe
Root: HKLM; SubKey: SOFTWARE\Wow6432Node\Activision\Blur; ValueType: dword; ValueName: GameLanguage; ValueData: $00000007

Есть какие идеи?

[travian]

Предыдущий вопрос отпадает.

Теперь решил проблему с наложением надписи, но не до конца.
Вот процедура отвечающая за определение и вывод количества свободного и требуемого места.

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

procedure GetFreeSpaceCaption(Sender: TObject);
var
Path: String;
begin
Path := ExtractFileDrive(WizardForm.DirEdit.Text);
GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
if FreeMB > 1024 then
SelectDirText_1.Caption := ExpandConstant('{cm:SPACE_2} ')+ NumToStr_(round(FreeMB/1024*100)/100) + ' GB'
else
SelectDirText_1.Caption := ExpandConstant('{cm:SPACE_2} ')+ NumToStr_(FreeMB)+ ' MB';
//---------------------------
if FreeMB < NeedSize then
begin
SelectDirText_1.Font.Color:= ClRed;
WizardForm.NextButton.Enabled := False;
SelectDirText_1.Hide;
SelectDirText_1.Show;
end else
begin
SelectDirText_1.Font.Color:= ClWhite;;
WizardForm.NextButton.Enabled := True;
SelectDirText_1.Hide;
SelectDirText_1.Show;
end
end;
//===================
procedure GetNeedSpaceCaption;
begin
if NeedSize > 1024 then
WizardForm.DiskSpaceLabel.Caption := ExpandConstant('{cm:SPACE_1} ')+ NumToStr_(round(NeedSize/1024*100)/100) + ' GB' else
WizardForm.DiskSpaceLabel.Caption := ExpandConstant('{cm:SPACE_1} ')+ NumToStr_(NeedSize)+ ' MB';
//-----------------------
if FreeMB < NeedSize then
begin
SelectDirText_1.Font.Color:= ClRed;
WizardForm.NextButton.Enabled := False;
SelectDirText_1.Hide;
SelectDirText_1.Show;
end else
begin
SelectDirText_1.Font.Color:= ClWhite;;
WizardForm.NextButton.Enabled := True;
SelectDirText_1.Hide;
SelectDirText_1.Show;
end
end;

Как сделать так чтобы SelectDirText_1 при попадании на страницу SelectDir исчезал и тутже появлялся. Короче, также как я сделал с кнопками (выделил жирным):

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

if FreeMB < NeedSize then
begin
SelectDirText_1.Font.Color:= ClRed;
WizardForm.NextButton.Enabled := False;
SelectDirText_1.Hide;
SelectDirText_1.Show;
end else
begin
SelectDirText_1.Font.Color:= ClWhite;;
WizardForm.NextButton.Enabled := True;
SelectDirText_1.Hide;
SelectDirText_1.Show;
end

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

от куда его ставиш »

Извините, соврал, если ОТКУДА то не {app}, a {src}

{src}
The directory in which the Setup files are located.
For example: If you used {src}\MYPROG.EXE on an entry and the user is installing from "S:\", Setup will translate it to "S:\MYPROG.EXE".