[Ivan_009]

Возможно ли растянуть изображение только на странице установки

[Johny777]

Ivan_009,
через процедуру CurPageChanged можно делать эксклюзивные настройки или действия для каждой из страниц в отдельности

Код:

procedure CurPageChanged(CurPageID: Integer); 
begin
  if CurPageID=wpInstalling then
    begin
      Image.Left := ScaleX(0);
      Image.Top := ScaleY(0);
      Image.Width := WizardForm.Width;
      Image.Height := ScaleY(?);
      ///Image.Stretch := True; /// не совсем понял как именно ты хочешь растянуть. Пропорции картинки могут нарушиться
    end;
end;

айди страниц

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

wpWelcome = 1;
wpLicense = 2;
wpPassword = 3;
wpInfoBefore = 4;
wpUserInfo = 5;
wpSelectDir = 6;
wpSelectComponents = 7;
wpSelectProgramGroup = 8;
wpSelectTasks = 9;
wpReady = 10;
wpPreparing = 11;
wpInstalling = 12;
wpInfoAfter = 13;
wpFinished = 14;
MyCustomPageName.ID // своя страница

[valyok666]

Ivan_009, Вы справку можете почитать????или по каждой мелочи будете писать???

[alert30]

или по каждой мелочи будете писать??? »

Все равно будет игнорирован, одно и то же для "чайников" не читает книжки про строительстве чего-то.

[valyok666]

Ivan_009, Подумай

[Temyraz@fb]

всем привет. у меня вот какой вопрос как через inno setup изменить значение bat ?

Код:

begin
if FileExists ( DataDirPage.Edits[0].Text + '\psql.exe' ) then
begin
	Result := True;
	PathToPsql := DataDirPage.Edits[0].Text;
SaveStringToFile(ExpandConstant('{app}\text.txt'), DataDirPage.Edits[0].Text, True) 
end
else
begin
	MsgBox(ExpandConstant('{cm:msgNotFoundPsql}'), mbError, MB_OK);
	Result := False;
end;
end;

вот это сохраняет значение в файле, но мне нужно чтоб он в bat изменил значение переменой например переменной: SET PGBIN

[Johny777]

но почему сначала не переименовать бат в текстовый документ. Потом внести значения и снова переименовать в бат?
через

SaveStringToFile »

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

Код:

begin
        if FileExists(ExpandConstant('{src}\My.bat')) then
        RenameFile(ExpandConstant('{src}\My.bat'), ExpandConstant('{src}\My.txt')) 

         вносим значения

        RenameFile(ExpandConstant('{src}\My.txt'), ExpandConstant('{src}\My.bat'))
end;

или вот пример Genri создания батника для удаления сетапа после установки

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

Код:

procedure SelfDelete();
var
  str: string;
  BatName: string;
  ResultCode: Integer;
begin
  BatName:= ExpandConstant('{src}\del_bat.cmd');
  str:= str+ '@echo off' + #10#13 +
        str+ ':LOOP' + #10#13 +
        str+ 'del ' + '"' + ExpandConstant('{srcexe}') + '"' + #10#13 +
        str+ 'if exist ' + '"' + ExpandConstant('{srcexe}') + '"' + ' goto LOOP' + #10#13 +
        str+ 'del ' + '"' + BatName + '"';
  SaveStringToFile(BatName, str, False);
  Exec(BatName, '', '', SW_HIDE, ewNoWait, ResultCode);
end;

procedure DeinitializeSetup();
begin
  SelfDelete();
end;

опять же через SaveStringToFile

[Temyraz@fb]

вот начала батника

CLS
ECHO OFF
SET PGBIN="значение"


и как сказать чтоб он в этой поле изменил значение?

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

Temyraz@fb, замена: stringChangeEx(строка в которой нужно подменить, чтоменяем, начтоменяем, True)

Код:

  
procedure RePlaceTextinFile(FilePath:string; find:string; replace:string);
var
  S: TArrayOfString;
  i : Integer;
begin
  if not FileExists(FilePath) then begin MsgBox('Файл не найден ' + FilePath, mbError, mb_Ok); Exit;end; // если файла нет, выходим
  LoadStringsFromFile(FilePath, S); // загружаем файл
  for i:= 0 to GetArrayLength(S)-1 do begin
    if (Pos(AnsiUpperCase(find), AnsiUpperCase(S[i])) > 0) then begin
      StringChangeEx(S[i], find, replace, True);
    end;
  end;
  SaveStringsToFile(FilePath, S, False); // сохраняем файл
end;
......
RePlaceTextinFile(ExpandConstant('{app}\www.bat'), 'SET PGBIN=', 'SET PGBIN="значение"');
......

переименование файла - RenameFile (староеимя, новоеимя)

[sergey3695]

если там через библиотеку идёт удаление , то ничем помочь не могу »

Exec2(ExpandConstant('{uninstallexe}'), '/VERYSILENT', False);
Какая библиотека????