[Johny777]

semiono, Если я правильно понял, то вот накатал тебе булев функцию замены всех искомых строк/слов на нужную строку/слово в текстовом файле:

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

Код:

function ReplaseStringInTextFile(const FileName, FromString, ToString: String): Boolean;
var
  uText: String;
begin
  if not FileExists(FileName) then Exit;
  if LoadStringFromFile(FileName, uText) then while Pos(FromString, uText) > 0 do StringChange(uText, FromString, ToString);
  Result := SaveStringToFile(FileName, uText, False);
end;

procedure InitializeWizard();
begin
  if ReplaseStringInTextFile('C:\A.txt', 'VALVE', 'SOFTWARE') then MsgBox('OK', mbError, MB_OK);
end;

==================================================================================================== ========================

Tco 03, Вот только распаковка 7-Zip архивов http://sendfile.su/764485

Вот пример проверки чекбоксов: »

оптимизировал принятие булев значений в методы чекбокса и функцию для Check:
изучай, пригодится

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

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
OutputDir=.

[Files]
Source: 1.zip; DestDir: {app}\File1.exe; Check: CheckBoxResult('File1');
Source: 2.zip; DestDir: {app}\File2.exe; Check: CheckBoxResult('File2');

[ Code]
var
  NewCheckBox1: TNewCheckBox;
  NewCheckBox2: TNewCheckBox;

function CheckBoxResult(const FileName: String): boolean;
begin
  case FileName of
    'File1': Result := NewCheckBox1.Checked;
    'File2': Result := NewCheckBox2.Checked;
  end;
end;

procedure NewCheckBox1Click(Sender: TObject);
begin
  if not NewCheckBox1.Checked then NewCheckBox2.Checked:= false;
  NewCheckBox2.Enabled:= not NewCheckBox1.Checked;
end;

Кому придёт в голову сразу же повторно устанавливать прогу »

ну например не сразу, но у меня в инсталле 4 игры и иногда приходится доустановливать

Сразу же при повторной установке рядом создаётся файл unins000.exe »

это я не учёл - лечится переименованием файла обратно на этапе ssInstall

По мне так зачем это вообще нужно делать »

Ну, как известно с древних времён - каждый извращается по своему

==================================================================================================== ==============

insombia,

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

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

Код:

[Setup]
AppName=777
AppVerName=777
DefaultDirname=C:\Setup
Compression=none


[  code]
var
  DirTreeView: TFolderTreeView;
  Edit: TEdit;
  Reset_Path_Button: TButton;


procedure DirFolderChange(Sender: TObject);
begin
  if TFolderTreeView(Sender).Directory <> WizardDirValue then Edit.Text := AddBackslash(TFolderTreeView(Sender).Directory) + '{#SetupSetting("AppName")}' else Edit.Text := TFolderTreeView(Sender).Directory;
  Reset_Path_Button.Enabled := Edit.Text <> RemoveBackslash(ExpandConstant('{#SetupSetting("DefaultDirName")}'));
end;


procedure BrowseForm_Buttons_OnClick(Sender: TObject);
begin
  case TButton(Sender).Caption of
    'Reset':
    begin
      Edit.Text := RemoveBackslash(ExpandConstant('{#SetupSetting("DefaultDirName")}'));
      TButton(Sender).Enabled := False;
    end;

    SetupMessage(msgButtonNewFolder):
    begin
      DirTreeView.CreateNewDirectory('Half-Life 2');
      Edit.Text := AddBackslash(DirTreeView.Directory) + '{#SetupSetting("AppName")}';
    end;

    SetupMessage(msgButtonOK): if Edit.Text <> WizardForm.DirEdit.Text then WizardForm.DirEdit.Text := Edit.Text;
  end;
end;


procedure BrowseClick(Sender: TObject);
var
  DefaultInstallPath: String;
  BrowseForm: TForm;
begin
  DefaultInstallPath := WizardDirValue;
  BrowseForm := TForm.Create(nil);
  with BrowseForm do
  begin
    ClientWidth := ScaleX(387);
    ClientHeight := ScaleY(364);
    Position := poScreenCenter;
    Caption := #32 + SetupMessage(msgBrowseDialogTitle);

    with TLabel.Create(nil) do
    begin
      SetBounds(ScaleX(7), ScaleY(4), ScaleX(207), ScaleY(16));
      Caption := SetupMessage(msgBrowseDialogLabel);
      Parent := BrowseForm;
    end;

    DirTreeView := TFolderTreeView.Create(nil)
    with DirTreeView do
    begin
      SetBounds(ScaleX(4), ScaleY(52), ScaleX(379), ScaleY(265));
      OnChange := @DirFolderChange;
      Parent := BrowseForm;
    end;

    ActiveControl := DirTreeView;

    Edit := TEdit.Create(nil);
    with Edit do
    begin
      SetBounds(ScaleX(4), ScaleY(25), ScaleX(379), ScaleY(21));
      Text := DirTreeView.Directory;
      Parent := BrowseForm;
    end;

    with TButton.Create(nil) do
    begin
      SetBounds(ScaleX(4), ScaleY(330), ScaleX(90), ScaleX(22));
      Parent := BrowseForm;
      Caption := SetupMessage(msgButtonCancel);
      Cursor := crHand;
      ModalResult := mrCancel;
    end;

    Reset_Path_Button := TButton.Create(nil)
    with Reset_Path_Button do
    begin
      SetBounds(ScaleX(99), ScaleY(330), ScaleX(90), ScaleY(22));
      Parent := BrowseForm;
      Caption := 'Reset';
      Enabled := Edit.Text <> RemoveBackslash(ExpandConstant('{#SetupSetting("DefaultDirName")}'))
      Cursor := crHand;
      OnClick := @BrowseForm_Buttons_OnClick;
    end;

    with TButton.Create(nil) do
    begin
      SetBounds(ScaleX(194), ScaleY(330), ScaleX(90), ScaleY(22));
      Parent := BrowseForm;
      Caption := SetupMessage(msgButtonNewFolder);
      Cursor := crHand;
      OnClick := @BrowseForm_Buttons_OnClick;
    end;

    with TButton.Create(nil) do
    begin
      SetBounds(ScaleX(289), ScaleY(330), ScaleX(90), ScaleY(22));
      Parent := BrowseForm;
      Caption := SetupMessage(msgButtonOK);
      OnClick := @BrowseForm_Buttons_OnClick;
      Cursor := crHand;
      ModalResult := mrOk;
    end;

    DirTreeView.ChangeDirectory(AddBackslash(DefaultInstallPath), True);

    if ShowModal = mrOk then WizardForm.DirEdit.Text := Edit.Text else WizardForm.DirEdit.Text := DefaultInstallPath;

    Free;
  end;
end;

procedure InitializeWizard();
begin
  WizardForm.DirBrowseButton.OnClick := @BrowseClick;
end;

======================================================= UPD ============================================================

вот кому интересно - функция для максимального снижения количества оперативки используемой текущим процессом путём выгрузки страниц на жёсткий диск
например с 1900 кб до 400 кб, но это влияет на производительность, так что без необходимости не использовать
можно и настроить используемый размер памяти (увеличить/уменшить) своими цифрами

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

Код:

[Setup]
AppName=TrimWorkingSet
AppVerName=TrimWorkingSet
DefaultDirName={pf}\TrimWorkingSet

[  Code]
function SetProcessWorkingSetSize(hProcess: THandle; dwMinimumWorkingSetSize, dwMaximumWorkingSetSize: DWORD): BOOL; external 'SetProcessWorkingSetSize@kernel32.dll stdcall';
function GetCurrentProcess(): THandle; external 'GetCurrentProcess@kernel32.dll stdcall';
function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): BOOL; external 'KillTimer@user32.dll stdcall';


function TrimWorkingSet(): BOOL;
begin
  Result := SetProcessWorkingSetSize(GetCurrentProcess, DWORD(-1), DWORD(-1));
end;


procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpSelectDir then SetTimer(WizardForm.Handle, 16, 1, CallbackAddr('TrimWorkingSet'));
end;

[insombia]

del

[tsskz]

Народ подскажите плиз, в общем у меня 3 архива
1 arc без сжатия data.arc
2 srep data.srp
3 arc сжатая папка игры data1.arc

код
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data1.arc'), ExpandConstant('{app}'), '', false , '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ISSRepExtract ( 0, 0, ExpandConstant('{app}\data.srp'),ExpandConstant('{app}\data.arc'), false) then break;
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data.arc'), ExpandConstant('{app}'), '', false , '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

на распаковке на распаковке файлов игры(последний архив) выдает что не найдено ни одного файла указанного в ISArcExtract


2)проблема у меня при установке вместо 100% указано 300% ,как исправить?

[Gnom_aka_Lexander]

вместо 100% указано 300% ,как исправить? »

С примером идет уникальная в своей подробности справка, прочитай про records.inf в ней.

файлов игры(последний архив) выдает что не найдено ни одного файла указанного в ISArcExtract »

if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data.arc') тут ты говоришь, что нужно искать архив рядом с инсталлом. а распаковал его перед этоим куда?

if not ISSRepExtract ( 0, 0, ExpandConstant('{app}\data.srp'),ExpandConstant('{app}\data.arc'), false) then break; »

Естественно, что рядом его нету.

[tsskz]

Gnom_aka_Lexander

ок,разобрался спс

[insombia]

tsskz используй http://krinkels.org/showthread.php?t=49 и можно будет указывать только if not ISArcExtract

[Lex_from_Belarus]

подскажите пожалуйста, как установить шрифты во время установки (.ttf и .otf)?

[insombia]

Lex_from_Belarus в инсталл или как именно во время установки?

[Lex_from_Belarus]

Lex_from_Belarus в инсталл или как именно во время установки? »

ну в систему установить шрифты, которые нужны для устанавливаемого приложения? их же просто скопировать мало, надо же ещё в реестр прописать, кароче может скриптик есть какой?

Upd: Разобрался сам

[Tco 03]

Johny777

Ну, как известно с древних времён - каждый извращается по своему »

Что верно, то верно

Господа, помогите, пожалйста, решить проблему, кто знает в чём дело и возможно ли избавиться от ошибки?
Суть в следующем: На странице выбора папки установки создаю кнопку, кустомную форму и чекбокс. При нажатии на кнопку проверяется свободное место на диске. Необходимое место считывается с файла .inf Если свободного места достаточно, то выдаётся сообщение "YES!!!" и выберается чекбокс - если свободного места не достаточно, то выдаётся сообщение "NO!!!" и появляется кустомная форма. Проблема в том, что это работает только со второй попытки, то есть свободного места достаточно, но при этом появляется сообщение "NO!!!" и появляется кустомная форма. Сразу же при повторном нажатии на кнопку этого больше не происходит - выдаётся сообщение "YES!!!" и выбирается чекбокс. При нехватке свободного места на диске функция работает без проблем! Почему так происходит при первом нажатии на кнопку? Вот этот самый код:

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

Код:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp

[ Code]
var
  MyForm: TSetupForm;
  MyButton: TButton;
  FreeMB, TotalMB: Cardinal;
  NewCheckBox1: TNewCheckBox;
  MyFile: String;

function MyFormExec: boolean;
var
  Path: String;
begin
  Path:= ExtractFileDrive(WizardForm.DirEdit.Text);
  GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
  
  MyForm:= CreateCustomForm;
with MyForm do begin
  Width:= ScaleX(798);
  Height:= ScaleY(543);
  Position:= poScreenCenter;
  MyForm.ShowModal;
end;
end;

procedure MyButtonOnClick(Sender: TObject);
begin
if FreeMb < GetIniInt('Info', 'Size', 0, 0, 0, MyFile) then
begin
  MsgBox(ExpandConstant('NO!!!'), mbCriticalError, mb_Ok);
  MyFormExec;
end else begin
  MsgBox(ExpandConstant('YES!!!'), mbInformation, mb_Ok);
  NewCheckBox1.Checked:= True;
end;
end;

procedure InitializeWizard();
begin
  MyFile:= 'C:\Info.inf';
  
  MyButton:= TButton.Create(WizardForm);
with MyButton do begin
  Left:= WizardForm.DirBrowseButton.Left;
  Top:= WizardForm.DirBrowseButton.Top + ScaleY(30);
  Width:= WizardForm.DirBrowseButton.Width;
  Height:= WizardForm.DirBrowseButton.Height;
  Caption:= 'Click Me';
  OnClick:= @MyButtonOnClick;
  Parent:= WizardForm.SelectDirPage;
end;

  NewCheckBox1:= TNewCheckBox.Create(WizardForm);
with NewCheckBox1 do begin
  Left:= MyButton.Left + ScaleY(30);
  Top:= MyButton.Top + ScaleY(30);
  Width:= ScaleX(12);
  Height:= ScaleY(12);
  Parent:= WizardForm.SelectDirPage;
end;
end;