[insombia]

Кто может прикрутить такую верхнюю панель(Где типа закрыть-свернуть) http://uaimage.com/gallery/b5073689 в мой скрипт http://rghost.ru/18157871
вот скрипт с которого это хотелось бы прифигачить http://inno.at.ua/load/0-0-0-122-20

[valyok666]

insombia, там не панель там форма и стиль
isombia переписывай скрипт vinta лучший вариант

[Gugle]

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

Подскажите плз, есть ли возможность работать с *.xml файлами загружая их структуру, для изменения/добавления/удаления некоторых полей в нем?
Если стандартных средств нет, то может у кого нить наработки?

Нашел только следующие упоминания о работе с xml:

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

Код:

procedure RePlaceTextinFile(FilePath:string; find:string; replace:string);
var
  S: TArrayOfString;
  //str : string;
  i : Integer;
begin
  if not FileExists(FilePath) then begin MsgBox('Файл не найден', 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;

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

Код:

///////////////////////////////////////////////////////////////////////////////
// Find given text in given file, and replace
// complete textline with given text.
// Created: March 27, 2002 by S.T.I.Bracke
// Revised: May 22, 2002 by S.T.I.Bracke
function ReplaceLine(strFilename, strFind, strNewLine: String): Boolean;
var
  strTemp : String;
  iLineCounter : Integer;
  a_strTextfile : TArrayOfString;
 
begin
  { Load textfile into string array }
  LoadStringsFromFile(strFilename, a_strTextfile);
 
  { Search trough all textlines for given text }
  // old line
  // for iLineCounter := 1 to High(a_strTextfile) do
  // new line corrected by Nikolaus Moll
  for iLineCounter := 0 to GetArrayLength(a_strTextfile)-1 do
    begin
      { Overwrite textline when text searched for is part of it }
      if (Pos(strFind, a_strTextfile[iLineCounter]) > 0) then
        a_strTextfile[iLineCounter] := strNewLine;
    end;
 
  { Save string array to textfile (overwrite, no append!) }
  SaveStringsToFile(strFilename, a_strTextfile, False);
 
  Result := True;
 
end;

Но это работа непосредственно с файлами, а не со структурой xml.

[El Sanchez]

Gugle, использовать объект Microsoft.XMLDOM. Методы и свойства. Пример использования я когда-то давал.

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

Подскажите плз, есть ли возможность работать с *.xml файлами загружая их структуру »

кто-то давал скрипты

[insombia]

кто-то может помочь вообщем при использовании маленького прогресс бара инсталятор такой

До http://uaimage.com/image/882763ba После http://uaimage.com/image/55730bb9

вот скрипт http://rghost.ru/18207171

[No4noylis]

insombia, так должно быть: http://rghost.ru/18214121 .

[insombia]

No4noylis блин так криво получилось но все-равно спс

Все сделал на руборде подказали кое что а размеры инсталятора в углу сам подобрал и все теперь нормально

[avmaksimov]

Стоит задача и не знаю как решить... Вкратце, есть своя dll, а в ней функция, ну доступ возвращает 0 и 1. 0 - все плохо и 1 все хорошо.

Функция запускается при ssPostInstall, т.е. после копирования всех остальных файлов... Так вот - как сделать так, чтобы в случае ошибки, делать откат изменений, такой же, как и при нажатии "Отмена" на более ранних этапах?

Самому делать бэкапы заменяемых файлов (если есть) и разархивировать в случае ошибки, как-то не то... Перелазил весь рунет и англонет, но ничего не нашел... Если кто знает, помогите, пожалуйста!

[avmaksimov]

Все, что я нашел пока, это то, что при копировании какого-либо файла в обработчике Check вызвать "

Код:

SendMessage(WizardForm.Handle, $0010{WM_CLOSE}, 0, 0);

"... перед этим поставив следующим образом переменные обработчика:

Код:

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Cancel := True;
Confirm := False;
end;

Вариант, конечно, но не такой, какого хотелось бы достичь... Долез даже до исходников Inno, но понял, что там вся архитектура так вроде построена, что после PostInstall, где я и использую код уже ничего не сделаешь...

Буду рад ошибиться. Кто согласен, что это было бы полезно, присоединяйтесь: http://innosetup.uservoice.com/forum...nges?ref=title