Kotyarko_O
Новичок
Awalder, в архиве с библиотекой есть несколько примеров, в том числе и с тем, который вам нужен ("CheckListBox_Example.iss").
Я смотрел. Но там же компоненты в коде прописываются... Мне это не подходитAwalder, в архиве с библиотекой есть несколько примеров, в том числе и с тем, который вам нужен ("CheckListBox_Example.iss").
Иначе - нельзя.Но там же компоненты в коде прописываются... Мне это не подходит
Спасибо за ответИначе - нельзя.
MFolder:=ImgLoad(WizardForm.SelectDirPage.Handle,ExpandConstant('{tmp}\Folder.png'),ScaleX(100), ScaleY(100),ScaleX(200),ScaleY(200),True,True);
ImgApplyChanges(WizardForm.SelectDirPage.Handle);
ExtractTemporaryFile('Folder.png');
MFolder:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\Folder.png'),ScaleX(100), ScaleY(100),ScaleX(200),ScaleY(200),True,True);
ImgApplyChanges(WizardForm.Handle);
procedure CurPageChanged(CurPageID: Integer);
begin
SelectDirBitmapImage.Hide;
ImgSetVisibility(MFolder,False);
case CurPageID of
wpSelectDir:
begin
ImgSetVisibility(Image2,True);
end;
end;
спасибо за ответ. Но не в какую не хочет работать, даже не знаю в чем причина... Может быть у Вас есть простой пример замены иконки в инсталляторе?Alloc,
Код:ExtractTemporaryFile('Folder.png'); MFolder:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\Folder.png'),ScaleX(100), ScaleY(100),ScaleX(200),ScaleY(200),True,True); ImgApplyChanges(WizardForm.Handle); procedure CurPageChanged(CurPageID: Integer); begin SelectDirBitmapImage.Hide; ImgSetVisibility(MFolder,False); case CurPageID of wpSelectDir: begin ImgSetVisibility(Image2,True); end; end;
Можно продолжить использовать старую версию.Раньше можно было использовать библиотеку b2p.dll совместно с ботвой, но новая версия с ней не работает...
или попробовать использовать функцию TMemoryStream, но я не тестировал.А мои иконки свободно можно видеть в темпе.
Смысла скрывать свою графику в инстоляторе не имеет смысла по простой причине. Любой желающий всегда сможет получить доступ к ним используя unpacker.Как это исправить?
Почему их тогда через анпакер не выдернуть?
Есть такой вариант защиты файлов:Надеюсь вы поняли ход моих мыслей.
в этой строке параметр -p отвечает за пароль.ExpandConstant('{tmp}') + '" e -p123 -y "'
LogoBtn:=BtnCreate(WizardForm.Handle,20,322,154,33,ExpandConstant('{tmp}\btn3.png'),1,false);
#define Files "InstallFiles"
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[Files]
Source: "InstallFiles\*"; Flags: dontcopy;
[code]
var
Logo: Longint;
LogoPanel: TPanel;
#include "Modules\botva2.iss"
function InitializeSetup(): Boolean;
begin
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
if not FileExists(ExpandConstant('{tmp}\Logo.png')) then ExtractTemporaryFile('Logo.png');
Result := True;
end;
procedure InitializeWizard();
begin
LogoPanel := TPanel.Create(WizardForm);
with LogoPanel do
begin
Parent := WizardForm;
Left := ScaleX(10);
Top := ScaleY(315);
Width := ScaleX(175);
Height := ScaleY(39);
BevelOuter := bvNone;
end;
Logo:=ImgLoad(LogoPanel.Handle,ExpandConstant('{tmp}\logo.png'), ScaleX(0), ScaleY(0), ScaleX(175), ScaleY(39), False, False);
ImgApplyChanges(LogoPanel.Handle);
end;
procedure DeinitializeSetup;
begin
gdipShutdown;
end;
Alloc, использовать ansi либо создать панель и на неё положить картинку
хотелось бы еще уточнить один момент.. скажите пожалуйста, в дальнейшем у меня не возникнут неприятные неожиданности если я последую Вашему совету и скомпилирую на unicode версии? Или лучше всего скопилить на ansi что б наверняка?Alloc, использовать ansi либо создать панель и на неё положить картинку