[архив] Скрипты Inno Setup. Помощь и советы [часть 2]

[yamaha]

Как сделать чтобы все данные при установке игры с оригинала внесённый в реестр при установки через inno тоже так внеслись?

[yamaha]

Цитата semiono:



Нужно найти файл

[архив] Скрипты Inno Setup. Помощь и советы [часть 2]

Пример поиска по маске

Код:

Код: Выделить всё

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes
[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl
[Code]
var
  // задаём переменную глобально, для всего скрипта
  Mask: string;
procedure RunMyProg(FileNeme: string);
begin
  // здесь что нибудь делаем с найденым файлом
  MsgBox(FileNeme, mbInformation, MB_OK );
end;
function FindFile(Path: string): Boolean;
var
  FSR, DSR: TFindRec;
  FindResult: Boolean;
begin
  Result:= False;
  if Path[Length(Path)]  '\' then Path:= Path + '\';
  FindResult:= FindFirst(Path + Mask, FSR);
  try
    while FindResult do
      begin
        if FSR.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
          begin
            RunMyProg(Path + FSR.Name);
            Result:= True;
            Exit;
          end;
        FindResult:= FindNext(FSR);
      end;
    FindResult:= FindFirst(Path + '*.*', DSR);
    while FindResult do
      begin
        if ((DSR.Attributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) and
          not ((DSR.Name = '.') or (DSR.Name = '..')) then
         FindFile(Path + DSR.Name);
        FindResult:= FindNext(DSR);
      end;
  finally
    FindClose(FSR);
    FindClose(DSR);
  end;
end;
function InitializeSetup(): Boolean;
var
  i: Integer;
  ArrayOfMask: TArrayOfString;
  StartFolder: string;
begin
  StartFolder:= ExpandConstant('{pf}\Inno Setup 5'); // задаём папку откуда начинать поиск
  ArrayOfMask:= ['*n*.txt', 'R*.txt', '*m*.txt']; // заполняем массив масок для поиска
  for i:= 0 to GetArrayLength(ArrayOfMask)-1 do // перебираем весь масив масок
    begin
      Mask:= ArrayOfMask[i];
      if FindFile(StartFolder) then Break;
    end;
end;

Цитата vint56:



не подскажеш как на второй процесбар наложить текстуру

[архив] Скрипты Inno Setup. Помощь и советы [часть 2]

честно говоря не знаю.




Цитата Vengeance:



чтобы g3 компонент если выбрать, он заменял определённые файлы g1

[архив] Скрипты Inno Setup. Помощь и советы [часть 2]

Поподробней раскажите.


Цитата Vengeance:



но он говорит что-то про директорию и выдаёт ошибку.

[архив] Скрипты Inno Setup. Помощь и советы [часть 2]

Покажите пример как делаете.


Цитата Vengeance:



Мне сказали, что вроде надо батник как-то писать?

[архив] Скрипты Inno Setup. Помощь и советы [часть 2]

Зачем, всё можно сделать в секции [Сode]

[Tukash]

всем привет, кому не жалко поделитесь ПОДРОБНЫМ примером того, как сделать что-бы доп ПО устанавливалось после распаковки Фриакр архивов!!

[Sotonisto]

Наро, как внести изменения в ini файл после установки игры?

У меня есть скрипт, но он создает ini файл и вписует в нем строку, но это подходило раньше, сейчас же у меня

вот такоее:

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

Код:

Код: Выделить всё

[Emulator]
CacheEnabled = False
Language = Russian
Logging=False
SteamDll=bin\steam\Steam.dll
SteamClient = True
SteamUser = L4D2
[steamclient]
PlayerName = Имя
Logging=False
ClientDll=bin\steam\steamclient.dll

Мне необходимо заменить только Имя.

Как это реализовать?

[yamaha]

Написано если не указывать папку то будет по умолчанию в Мои рисунки, как только не пробовал и с С и без указывать путь всё равно просто чёрный фон.Как указать правильно?

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

RegWriteStringValue(HKCU, 'Software\Serbis\SBSlideShow', 'fold', ExpandConstant('{src} \..\Slides')) else





Как поменять размер слайда?Поставить какой хочешь.

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

ShowWindow(BackgroundForm.Handle, sw_Show)

[Tukash]

Подскажите как сменить цвет всего шрифта во всех пунктах меню на черный ?

[МИШАНЧИК]

serg aka lain, большое спасибо! Здорово!



Код:

Код: Выделить всё

Caption := 'Установка DirectX, пожалуйста ждите ...';
          Alignment := taCenter;

taCenter я так понимаю задаёт расположение надписи по центру, а можно ли как-то задать расположение со сдвигом вправо(или влево)?

[serg aka lain]

vint56,

Спасибо.

Остался один вопросик:

Как сделать чтобы посде распаковки data1.ark он начал распаковывать data2.ark и т.д.

Как правильно дописать это ?





Код:

Код: Выделить всё

//--- указываем расположение архивов FreeArc; 
Archives = '{src}\data.arc';

[svensoft]

Люди, такая ситуация, есть объект с идентификатором Panel_ProgrammGroup. Вопрос, как можно в какой-то либо функции или процедуре проверить этот объект на видимость, с учетем того что конечно же объект объявлен в глобальных переменных ?..



то есть нужно в какой-либо процедуре сделать условие на видимость этого объекта, что-то вроде :

if Panel_ProgrammGroup.Active = 1 then

или

if Panel_ProgrammGroup: Active : = True then

и это конечно все неправильно, подскажите если кто-то знает ... ))

[МИШАНЧИК]

Цитата Serega:



Пример поиска по маске

[архив] Скрипты Inno Setup. Помощь и советы [часть 2]

Warning Line 57, Column 10:[hint] variable 'Result' never used



тут проблема:

function InitializeSetup(): Boolean;



но я не могу додумать, помоги?



у меня даже MsgBox не открылся



----

Это мне не надо:

[Languages]

; Name: rus; MessagesFile: compiler:Languages\Russian.isl