[ZVSRus]

Задаю вопрос 2 раз опытным пользователям.

Как в данном куске скрипта вместо .bmp картинки, прописать каратинки .gif или .png
botva2.iss, botva2.dll, b2p.dll в скрипте прикручены.
Если можно реальный пример.

Скрипт

Код:

procedure LangClick(Sender: TObject);                                
 begin                                                               
  case TNewRadioButton(Sender) of                                    
   LangRus:                                                          
   begin                                                             
   FlagImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\rus.bmp'));   
   FlagImage.Width := ScaleX(69);                                    
   FlagImage.Height := ScaleY(44);                                           
   FlagImage.Left := ScaleX(60);                                     
   FlagImage.Top := ScaleY(14);                                      
   end;                                                                          
   LangEng:                                                          
   begin                                                             
   FlagImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\eng.bmp'));           
   FlagImage.Width := ScaleX(69);                                    
   FlagImage.Height := ScaleY(44);                                   
   FlagImage.Left := ScaleX(60);                                     
   FlagImage.Top := ScaleY(14);                                      
  end;                                                               
 end;

[Dodakaedr]

ZVSRus, создайте панелки и используйте их в качестве родителя при вызове такого кода:

Код:

ImgLoad(FlagImagePanel.Handle, ExpandConstant('{tmp}\rus.png'), ScaleX(0), ScaleY(0), ScaleX(69), ScaleY(44), True, True);
ImgApplyChanges(FlagImagePanel.Handle);

[ZVSRus]

создайте панелки

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

[ZVSRus]

Все разобрался.

[ABBAT]

Всем привет.
Как сделать поиск папки в корне всех дисках\разделах? Такая фишка реализована у z10yded. setup.exe ищет папку Games на всех дисках\разделах, если находит, предлагает установить игру в эту папку, иначе C:\Games. Если создать две папки на разных дисках\разделах, то предлагает установку на первый найденный.

P.S сам setup.exe.

[Maratina]

Привет, как сделать ?
Inno Setup при запуске тихо копирует файлы в папку допустим "My Appу" в корне сис диска {sd} от туда же запускает Setup.exe. если удалось запустить файл то тихо закрывается, если нет, проблемы с правами или еще чем то выдает ошибку
пробовал пример тихой установки, но видно прогресс бар
P.S это все нужно для установки драйверов

[kotyarko@fb]

Как сделать поиск папки в корне всех дисках\разделах? »

Использовать FindFirst. Но подобный поиск может быть весьма длительным.

пробовал пример тихой установки, но видно прогресс бар »

Запускать программу с параметром "/VERYSILENT".

[Maratina]

kotyarko@fb,

Запускать программу с параметром "/VERYSILENT". »

то есть пользователь сам должен это все прописывать ? а без этого есть варианты ?

[Serjione]

Код:

ValueData: "C:\Program Files (x86)\test.exe" -f "%1"

Данную строку как написать чтобы компилятор не ругался на пробел перед и после -f ? Данные которые в ковычках, должны вместе с ними заноситься в реестр.

[ABBAT]

kotyarko@fb,
z10yded использует толстую Tools.dll (1.5mb) может в ней секрет спрятан.
Serjione,
"""C:\Program Files (x86)\test.exe"" -f ""%1"""