[Gnom_aka_Lexander]

Dark_Delphin, про перенос строи в коде, буквально на прошлой странице было. по второму вопросу тоже было, и видимо нужно в шапку, раз вы пользоваться поиском не умеете...

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

Код:

function ReleaseCapture: Longint;
  external 'ReleaseCapture@user32.dll stdcall';
........................

procedure LabelOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(WizardForm.Handle,$0112,$F012,0);
end;

.......................

  WizardForm.OnMouseDown:=@LabelOnMouseDown;

там где WizardForm - укажешь свою поверхность, которая у тебя снаружи.

[Mailchik]

Gambetto,
1. Не понятен вопрос. Просто найти по маске ? Вот скрипт, находит файлы по маске и выводит список найденных файлов в ListBox.

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

Код:

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

[Code]
var
 FindButton : TButton;
 FindListBox : TListBox;

procedure FindFiles(Folder, Mask : string; List : TStrings);
var
  FilesFound: Integer;
  FindRec: TFindRec;
begin
  FIlesFound := 0;
  if FindFirst(Folder + '\' + Mask, FindRec) then begin
    try
      repeat
        if FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
          List.Add(Folder + '\' + FindRec.Name);
          FilesFound := FilesFound + 1;
      until not FindNext(FindRec);
    finally
      FindClose(FindRec);
    end;
  end;
  if FilesFound = 0 then
  MsgBox('Ничего не найдено.', mbInformation, MB_OK);
end;

procedure FindButtonClick(Sender : TObject);
 begin
  {          Где искать?             Маска    Куда вывести список?
                  |                     |              |          }
  FindFiles(ExpandConstant('{src}'), '*.zip', FindListBox.Items);
end;

procedure FindListBoxClick(Sender : TObject);
 begin
  { При нажатии на ListBox заголовок инсталла изменяется на адрес к найденному файлу}
  WizardForm.Caption := TListBox(Sender).Items.Strings[TListBox(Sender).ItemIndex];
end;

procedure InitializeWizard;
 begin
  with WizardForm do begin
   OuterNotebook.Hide;
   SetBounds(Left, Top, ScaleX(520), ScaleY(400));
   Bevel.Width := ClientWidth;
  end;
  FindButton := TButton.Create(WizardForm);
  with FindButton do begin
   Parent := WizardForm;
   Caption := 'Find';
   OnClick := @FindButtonClick;
   SetBounds(ScaleX(10), ScaleY(250), ScaleX(100), ScaleY(30));
  end;
  FindListBox := TListBox.Create(WizardForm);
  with FindListBox do begin
   Parent := WizardForm;
   OnClick := @FindListBoxClick;
   SetBounds(ScaleX(10), ScaleY(10), ScaleX(500), ScaleY(200));
  end;
end;

2. Наверное невозможно сделать такое. Другим путём можно пойти: распаковываем нужный файл в темп и оттуда открываем его. Рядом со скриптом положите 7z.exe, который можно забрать на оф. сайте.

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

Код:

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

[Files]
Source: 7z.exe; Flags: dontcopy

[Code]
var
 TestButton : TButton;

procedure TestClick(Sender : TObject);
var
 res : integer;
 begin
 { Сначала извлекаем файл из архива            Архив, из которого извлекаем            |        Извлекаем в темп     |    Нужный файл
                                                            |                                           |                     |                       }
 Exec(ExpandConstant('{tmp}\7z.exe'), 'e ' + ExpandConstant('{src}\archive.zip') + ' -o' + ExpandConstant('{tmp}') + ' test.txt -r',
   ExpandConstant('{tmp}'), SW_HIDE, ewNoWait, res);
 { Теперь запускаем текстовый файл через блокнот}
 Exec('notepad', ExpandConstant('{tmp}\test.txt'), ExpandConstant('{tmp}'), SW_SHOWNORMAL, ewNoWait, res);
end;

function InitializeSetup() : boolean;
 begin
  ExtractTemporaryFile('7z.exe');
  Result := True;
end;

procedure InitializeWizard;
 begin
  with WizardForm do begin
   OuterNotebook.Hide;
   SetBounds(Left, Top, ScaleX(520), ScaleY(400));
   Bevel.Width := ClientWidth;
  end;
  TestButton := TButton.Create(WizardForm);
  with TestButton do begin
   Parent := WizardForm;
   Caption := 'Открыть';
   OnClick := @TestClick;
   SetBounds(ScaleX(10), ScaleY(250), ScaleX(100), ScaleY(30));
  end;
end;

3. Опять же, не понятно что вам нужно. Просто найти строку? Или что то с ней делать? Вот скрипт, который при нахождении текста строки сообщает об этом.

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

Код:

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

[Code]
var
 TestButton : TButton;
 F : String;
 S : TArrayOfString;
 i : integer;

procedure TestClick(Sender : TObject);
 begin
  F := ExpandConstant('{src}\test.txt');
  LoadStringsFromFile(F, S);
  if FileExists(F) then begin
   for i:= 0 to GetArrayLength(S) - 1 do
    begin
     if Pos('TestText', S[i]) > 0 then begin      //TestText - текст строки который нужно найти
      MsgBox('Строка найдена', mbInformation, MB_OK);
      Break;
     end;
    end;
   end else begin
  MsgBox('Файл не найден', mbError, MB_OK);
  end;
end;

procedure InitializeWizard;
 begin
  with WizardForm do begin
   OuterNotebook.Hide;
   SetBounds(Left, Top, ScaleX(520), ScaleY(400));
   Bevel.Width := ClientWidth;
  end;
  TestButton := TButton.Create(WizardForm);
  with TestButton do begin
   Parent := WizardForm;
   Caption := 'Test';
   OnClick := @TestClick;
   SetBounds(ScaleX(10), ScaleY(250), ScaleX(100), ScaleY(30));
  end;
end;

[Gnom_aka_Lexander]

2. Наверное невозможно сделать такое.
возможно. Я давал пример замены файла в зип-архиве. распаковка строго заданного файла и упаковка другого файла в этот архив. Ну да, для этого нужно целую тему полопатить. Но мне лениво вспоминать, как я это делал. и за кого-то лопатить тему - тоже неохота. Ответ есть, значит все, что нужно - просто его найти.

[Mailchik]

Gnom_aka_Lexander, я имел в виду, что именно так как описал Gambetto невозможно. а так как ты описал, это да. сначала распаковать определенный файл, в темп например, а потом его прочитать.

[Dark_Delphin]

Gnom_aka_Lexander, да. Спасибо большое, всё получилось.

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

[Gnom_aka_Lexander]

Dark_Delphin, потому, что IsSkin.dll не соответствует версии компилятора. это тоже буквально пару страниц назад было. это единственная возможна причина.

[Dark_Delphin]

Gnom_aka_Lexander, блин Точно, спасибо.

[Dark_Delphin]

Как избежать ошибки?

http://forum.oszone.net/attachment.p...1&d=1355944597

[Gambetto]

Не понятен вопрос. Просто найти по маске? »

Найти по маске архив, достать из него файл, в этом файле найти строку type=1 или type=2.
В зависимости от значения type устанавливать ту или иную программу.

Спасибо за примеры.

[Dark_Delphin]

Всем привет.

Помогите сделать, чтобы при распаковке файлов прогрес бар работал (Распаковка файлов, которые собраны компилятором)
ставил ssInstall и та же проблема.

Скачать