[VinTagE]

45king,

а как сделать чтобы при удалении игры появлялась сообщение вы хотите удалить сохранение игры да или нет? »

Так можно:

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

[Registry]
Root: HKLM; SubKey: SOFTWARE\Chuvakstepan\Spider-man3; ValueType: string; ValueName: PathGame; ValueData: {app}; Flags: uninsdeletekey

[code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var ResultStr:String;
begin
if CurUninstallStep=usPostUninstall then
begin
RegQueryStringValue(HKLM, 'SOFTWARE\Chuvakstepan\Spider-man3', 'UnInstConfirm', ResultStr)
if DirExists(ExpandConstant('{userdocs}')+'\Activision\Spider-Man 3') then
if MsgBox('Удалить сохраненные игры',mbconfirmation, mb_YesNo) = IDYES then
begin
if not DelTree(ExpandConstant('{userdocs}')+'\Activision\Spider-Man 3', True, True, True)
then
MsgBox('Папка не удалена!' #13#13 'Папка не существует или задействована.', mbError, MB_OK);
end;
end;
end;

P.S> На этом сайте ты можешь найти всё что тебе нужно

[Gugle]

Доброго времени суток!

Нашел на форуме как добавить дополнительное окно в скрипт, которое просит ввести какую то доп информацию до установки приложения:

Код:

var
  UserPage: TInputQueryWizardPage;

procedure InitializeWizard;
begin
  UserPage := CreateInputQueryPage(wpWelcome,
    'Доп. информация', 'ВНИМАНИЕ! доп инфо ');
  UserPage.Add('Количество :', False);
  UserPage.Add('ни о чем:', True);
end;

Все хорошо. Я даже нашел как проверить, что данные введены:

Код:

function NextButtonClick(CurPageID: Integer): Boolean;
var
  I: Integer;
begin
  Result := True;
  if CurPageID = UserPage.ID then begin
    if UserPage.Values[0] = '' then begin
      MsgBox('Вы должны че нить ввести в первое поле', mbError, MB_OK);
      Result := False;
    end;
  end;
end;

Вопрос! Как проверить, что в UserPage.Values[0] введено число, а не просто текст?
И, если это возможно, как проверить что число попало в промежуток, например от -10 до 10.
Заранее благодарен.

[Gnom_aka_Lexander]

Вопрос! Как проверить, что в UserPage.Values[0] введено число, а не просто текст? И, если это возможно, как проверить что число попало в промежуток, например от -10 до 10. »

Так, както:

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

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code]
var
UserPage: TInputQueryWizardPage;

procedure InitializeWizard;
begin
UserPage:= CreateInputQueryPage(wpWelcome, 'название страницы','Тема страницы','Служебная подпись страницы');
UserPage.Add('Количество :', False);
UserPage.Add('ни о чем:', True);
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
Result := True;
// проверяем, что поле не пустое
if CurPageID = UserPage.ID then begin if UserPage.Values[0] = '' then begin
MsgBox('Вы должны что-нибудь ввести в первое поле', mbError, MB_OK);
Result := False; Exit; end;
// проверяем, что введено именно число
if AnsiUppercase(UserPage.Values[0])<>AnsiLowercase(UserPage.Values[0]) then begin
MsgBox('Допустимо вводить только цифры', mbError, mb_Ok);
Result := False; Exit; end;
// проверяем, что модуль числа, не зависимо от знака, не превышает 10. (как раз попадаем в диапазон от -10 до 10)
if Abs(StrToInt(UserPage.Values[0]))>10 then begin
MsgBox('за пределами допустимых значений', mbError, mb_Ok); Result := False; Exit; end;
end; end;

[Gnom_aka_Lexander]

страницу выбора папки установки, папки меню пуск и.т.д »

А их всего два во всем инсталляторе -

Код:

procedure InitializeWizard();
begin
WizardForm.DirEdit.AutoSelect:= False;
WizardForm.GroupEdit.AutoSelect:= False;
end;

[ssv14]

есть код декодирования OGG. Нужно сделать что бы еще и WV декодировалось. Объединяю оба один за другим, но беда в том, что oни получаются идентичны (кроме переменных) и используют одну и туже функцию StringToArray и при компиляции ругается, что во втором куске она продублирована.
Как прописать ее для обоих участков кода, для 3х участков?

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

[code1]
var
Files1: Array of String;
S1: String;
n1: Integer;

Function StringToArray(Text, Cut: String): array of String;

var i1, k1: Integer;

Begin
SetArrayLength(Result, 0); if Cut = '' then Cut:= #1310; //если шаблон пуст, считаем переводы строк
Repeat k1:= Pos(Cut,Text);
if k1 = 1 then begin Delete(Text, 1, Length(Cut)); CONTINUE
end;
SetArrayLength(Result, GetArrayLength(Result) +1); i1:= GetArrayLength(Result) -1;
if k1 = 0 then
Result[i1]:=Text
else begin
Result[i1]:= Copy(Text, 1, k1 -1); Delete(Text, 1, Length(Result[i1]) + Length(Cut));
end;
Until Length(Text) * k1 = 0;
End;

procedure FindFiles(FromDir: String; Mask: String);
var FSR, DSR: TFindRec; FindResult: Boolean;
begin
FindResult:= FindFirst(AddBackslash(FromDir)+Mask, FSR)
while FindResult do begin
if FSR.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then begin
S1:= S1 + AddBackslash(fromDir) + FSR.Name +'|';
end;
FindResult:= FindNext(FSR);
end;
FindResult:= FindFirst(AddBackslash(FromDir)+ '*.*', DSR)
while FindResult do begin
if ((DSR.Attributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) and not ((DSR.Name = '.') or (DSR.Name = '..')) then begin
FindFiles(AddBackSlash(FromDir)+ DSR.Name, Mask)
end;
FindResult:= FindNext(DSR);
end;
FindClose(FSR); FindClose(DSR)
end;

procedure RecodeOgg;
var ResultCode: integer;
CurFile: String;

begin
FindFiles(ExpandConstant('{app}\ogg\sound\'), '*.ogg') //Находим все файлы по маске, в выбранной папке
Files1:= StringToArray(S1, '|') //Переводим в массив
WizardForm.ProgressGauge.Max:= GetArrayLength(Files1)-1; //Получаем кол-во файлов
for n1:=(GetArrayLength(Files1)-1) downto 0 do begin
CurFile:= Files1[n1]
StringChange(CurFile, AddBackslash(ExpandConstant('{app}\ogg\sound\')), '')
Exec(ExpandConstant('{app}\ogg\sound\oggdec.exe'), '-Q '+ AddQuotes(CurFile), '', SW_Hide, EwWaitUntilTerminated, ResultCode) //Для каждого файла запускаем декодер
DeleteFile(Files1[n1]) //Удаляем ненужный файл
WizardForm.FilenameLabel.Caption:= Files1[n1]; //Двигаем прогрессбар
WizardForm.ProgressGauge.Position:= WizardForm.ProgressGauge.Position +1;
end;
DeleteFile(ExpandConstant('{app}\ogg\sound\oggdec.exe'))
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
begin
WizardForm.ProgressGauge.Position := 0;
WizardForm.StatusLabel.Caption := 'Decompressing audio files, please wait...';
RecodeOgg;
end;
end;



//-------распаковка WV ------------------------------------------------


[code2]
var
Files2: Array of String;
S2: String;
n2: Integer;

Function StringToArray(Text, Cut: String): array of String; //стопор, т.к уже дублируется в предыдущем коде

var i2, k2: Integer;

Begin
SetArrayLength(Result, 0); if Cut = '' then Cut:= #1310; //если шаблон пуст, считаем переводы строк
Repeat k2:= Pos(Cut,Text);
if k2 = 1 then begin Delete(Text, 1, Length(Cut)); CONTINUE
end;
SetArrayLength(Result, GetArrayLength(Result) +1); i2:= GetArrayLength(Result) -1;
if k2 = 0 then
Result[i2]:=Text
else begin
Result[i2]:= Copy(Text, 1, k2 -1); Delete(Text, 1, Length(Result[i2]) + Length(Cut));
end;
Until Length(Text) * k2 = 0;
End;

procedure FindFiles(FromDir: String; Mask: String);
var FSR, DSR: TFindRec; FindResult: Boolean;
begin
FindResult:= FindFirst(AddBackslash(FromDir)+Mask, FSR)
while FindResult do begin
if FSR.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then begin
S2:= S2 + AddBackslash(fromDir) + FSR.Name +'|';
end;
FindResult:= FindNext(FSR);
end;
FindResult:= FindFirst(AddBackslash(FromDir)+ '*.*', DSR)
while FindResult do begin
if ((DSR.Attributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) and not ((DSR.Name = '.') or (DSR.Name = '..')) then begin
FindFiles(AddBackSlash(FromDir)+ DSR.Name, Mask)
end;
FindResult:= FindNext(DSR);
end;
FindClose(FSR); FindClose(DSR)
end;

procedure RecodeWV;
var ResultCode: integer;
CurFile: String;

begin
FindFiles(ExpandConstant('{app}\WV\sound\'), '*.wv') //Находим все файлы по маске, в выбранной папке
Files2:= StringToArray(S2, '|') //Переводим в массив
WizardForm.ProgressGauge.Max:= GetArrayLength(Files2)-1; //Получаем кол-во файлов
for n2:=(GetArrayLength(Files2)-1) downto 0 do begin
CurFile:= Files2[n2]
StringChange(CurFile, AddBackslash(ExpandConstant('{app}\WV\sound\')), '')
Exec(ExpandConstant('{app}\WV\sound\wvunpack.exe'), '-t -q -y '+ AddQuotes(CurFile), '', SW_Hide, EwWaitUntilTerminated, ResultCode) //Для каждого файла запускаем декодер
DeleteFile(Files2[n2]) //Удаляем ненужный файл
WizardForm.FilenameLabel.Caption:= Files2[n2]; //Двигаем прогрессбар
WizardForm.ProgressGauge.Position:= WizardForm.ProgressGauge.Position +1;
end;
DeleteFile(ExpandConstant('{app}\WV\sound\wvunpack.exe'))
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
begin
WizardForm.ProgressGauge.Position := 0;
WizardForm.StatusLabel.Caption := 'Decompressing audio files, please wait...';
RecodeWV;
end;
end;

[Gugle]

Лександер, спасибо большое.

Еще вопросы:
1. Можно ли в *.ini файлы добавлять секции не "[название_секции]", а ";название_секции"? Если да, то как?
2. Как добавить полученное мной значение из предыдущего примера "UserPage.Values[0]" в *.ini файл? По всей вероятности надо использовать глобальную переменную, но пока понятного для себя примера не нашел.

Заранее благодарен!

[Gugle]

Второй вопрос отпал. Нашел описание, разобрался.
первый вопрос, об изменении записи названия секции остался.

[Gugle]

По поводу первого вопроса.
Собрав инфу по частям сделал следующий пример:
[code]

Код:

procedure UpdateIni();
var
  IniFileName: String;
  StrArray: TArrayOfString;
begin
  IniFileName := ChangeFileExt(ExpandConstant(CurrentFileName), '.ini'); // 1
  if not IniKeyExists('settings', 'TestName', IniFileName) then begin            // 2
    SetArrayLength(StrArray, 2);
    StrArray[0] := '; name и по русски то же';
    StrArray[1] := 'TestName=name.txt';
    SaveStringsToFile(IniFileName, StrArray, True);
  end else begin
    SetIniString('settings', 'newTestName', 'newname.txt', IniFileName);     // 3
  end;
end;

Проблема в том, что для отработки кода в строке 2, в *.ini файле необходима запись:

[settings] TestName=firstName.txt

А мне нужна реакция на

;settings TestName=firstName.txt

Строка кода 3, вставляет в *.ini файл данные следующего содержания:

[settings] newTestName=newname.txt

А мне опять таки надо:

;settings newTestName=newname.txt

Гуру, помогите плз.

[Gugle]

Все. Первый вопрос отпал сам собой. Однако, если кто-то найдет решение, то я с удовольствием его посмотрю, т.к. проблема может возникнуть снова.

Родился следующий вопрос.
После инсталяции приложения, мне необходимо размножить (или скопировать) одну из папок. Скачав InnoSetupFAQ_ru-board.chm я нашел там решение этой проблемы с помощью скрипта "SHFileOperation.iss". Однако при удалении приложения эти размноженные папки не удаляются, а хотелось бы, что бы удалялись.
Что для этого нужно сделать?