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

[Dodakaedr]

Подскажите пожалуйста пример скрипта с оснащением другого курсора при запуске установщика , заранее спасибо . »
уже обсуждалось (http://forum.oszone.net/showthread.php?t=278998&page=26&highlight=%EA%F3%F0%F1%EE%F0)
И еще пример: #ifdef UNICODE
#define A "W"
#else
#define A "A"
#endif

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
UninstallDisplayIcon={app}\MyProg.exe
SolidCompression=yes
Compression=lzma/ultra
OutputDir=Output

[Files]
Source: cursor.ani; Flags: dontcopy

[ code]
function LoadCursorFromFile(FileName: String): Cardinal; external 'LoadCursorFromFile{#A}@user32 stdcall';
function DeleteObject(p1: Longword): BOOL; external 'DeleteObject@gdi32.dll stdcall';

const
MyCursor = 101;

var
hcur: Cardinal;

function InitializeSetup:boolean;
begin
if not FileExists(ExpandConstant('{tmp}\cursor.ani')) then ExtractTemporaryFile('cursor.ani');
Result := True;
end;

procedure InitializeWizard();
begin
with WizardForm do begin

//Собственно здесь указываешь к чему прикрутить курсор)))
PageNameLabel.Cursor := MyCursor;
PageDescriptionLabel.Cursor := MyCursor;
WelcomeLabel1.Cursor := MyCursor;
WelcomeLabel2.Cursor := MyCursor;
SelectDirBitmapImage.Cursor := MyCursor;
SelectDirBrowseLabel.Cursor := MyCursor;
SelectDirLabel.Cursor := MyCursor;
FinishedHeadingLabel.Cursor := MyCursor;
FinishedLabel.Cursor := MyCursor;
MainPanel.Cursor := MyCursor;
FilenameLabel.Cursor := MyCursor;
StatusLabel.Cursor := MyCursor;
SelectStartMenuFolderLabel.Cursor := MyCursor;
SelectStartMenuFolderBrowseLabel.Cursor := MyCursor;
ReadyLabel.Cursor := MyCursor;
LicenseLabel1.Cursor := MyCursor;
InfoBeforeClickLabel.Cursor := MyCursor;
InfoAfterClickLabel.Cursor := MyCursor;
ComponentsDiskSpaceLabel.Cursor := MyCursor;
SelectComponentsLabel.Cursor := MyCursor;
GroupEdit.Cursor := MyCursor;
GroupBrowseButton.Cursor := MyCursor;
CancelButton.Cursor := MyCursor;
BackButton.Cursor := MyCursor;
/////////////////////////////

end;
hcur := LoadCursorFromFile(ExpandConstant('{tmp}\cursor.ani'));
Screen.Cursors[MyCursor] := hcur;
end;

procedure DeinitializeSetup();
begin
DeleteObject(hcur);
end;

[diman_21Ru]

Имея сайт как можно реализовать в игру оповещение о новой версии установщика

[saurn]

Вопрос: Почему иконка {uninstallexe} берется с инсталлятора? »
Так вы сами и ответили на сей вопрос, не?
IconFilename
Имя файла иконки (расположенной в системе пользователя). Это может быть изображение с расширением .exe или .dll, содержащее иконки, или файл .ico. Если этот параметр не указан или пустой, Windows будет использовать иконку, выбранную по умолчанию. »
По умолчанию, деинсталятору назначается иконка инсталятора.
Хотите, чтобы иконки были разные, укажите для деинсталятора свою иконку:
[Setup]
UninstallIconFile=путь к файлу иконки
----------------------------------------------------------------------------------

Имея сайт как можно реализовать в игру оповещение о новой версии установщика »
Берете удобную вам среду программирования(Дельфи, Си...) и делаете, что вам необходимо. А использовать для этих целей инно в лучшем случае просто изврат.

[Dodakaedr]

Хотите, чтобы иконки были разные, укажите для деинсталятора свою иконку: »
Так и пришлось сделать.... Я думал что иконка для инсталлятора одна, а для деинсталлятора другая..

[ROMKA-1977]

Подскажите: в скрипте использую descctrl.dll.
Проблема: при нажатии кнопки "Отмена" закрытие инсталятора происходит с небольшой задержкой при этом фаил descctrl.dll из временной папки не удаляется вместе с другими временными файлами, также фаил не удаляется после установки , но если установку запустить в Inno Setup Compiler после компиляции то всё норм проблем описанных нет.
Пример кода:

[Components]
Name: enginstall; Description: Английская версия; Types: full; Flags: exclusive
Name: rusinstall; Description: Русская версия; Types: full; Flags: exclusive

[Files]
Source: descctrl.dll; DestDir: {tmp}; Flags: dontcopy

[_Code]
function enabledesc(ComponentsListHandle: HWND; DescLabelHandle: HWND; DescStrings: PChar): BOOL; external 'enabledesc@files:descctrl.dll stdcall';
function disabledesc(): BOOL; external 'disabledesc@files:descctrl.dll stdcall';

var
Info: TNewStaticText;
InfoCaption: TNewStaticText;
InfoPanel: TPanel;

procedure DeinitializeSetup();
begin
disabledesc();
end;

procedure InitializeWizard();
begin

WizardForm.TYPESCOMBO.Visible:= false;
WizardForm.ComponentsList.Height := WizardForm.ComponentsList.Height + WizardForm.ComponentsList.Top - WizardForm.TYPESCOMBO.Top;
WizardForm.ComponentsList.Top := WizardForm.TYPESCOMBO.Top;
WizardForm.ComponentsList.Width := ScaleX(200);

InfoPanel := TPanel.Create(WizardForm);
InfoPanel.Parent := WizardForm.SelectComponentsPage;
InfoPanel.Caption := '';
InfoPanel.Top := WizardForm.ComponentsList.Top;
InfoPanel.Left := ScaleX(216);
InfoPanel.Width := ScaleX(200);
InfoPanel.Height := WizardForm.ComponentsList.Height;
InfoPanel.BevelInner := bvRaised;
InfoPanel.BevelOuter := bvLowered;
InfoCaption := TNewStaticText.Create(WizardForm);
InfoCaption.Parent := WizardForm.SelectComponentsPage;
InfoCaption.Caption := 'Информация:';
InfoCaption.Left := ScaleX(224);
InfoCaption.Top := InfoPanel.Top - ScaleY(5);
InfoCaption.Font.Color := clActiveCaption;
Info := TNewStaticText.Create(WizardForm);
Info.Parent := InfoPanel;
Info.AutoSize := False;
Info.Left := ScaleX(6);
Info.Width := ScaleX(188);
Info.Top := ScaleY(12);
Info.Height := WizardForm.ComponentsList.Height - ScaleY(18);
Info.Caption := 'Наведите на компонент, чтобы получить дополнительную информацию';
Info.WordWrap := true;
enabledesc(WizardForm.ComponentsList.Handle,Info.Handle,
'Английская озвучка и английский текст;'+
'Русская озвучка и русский текст;'
);
end;

[sergey3695]

ROMKA-1977,
descctrl.dll - это старье,юзай расш. версию инно.
http://rghost.ru/54644188

[White Rabbit]

Здравствуйте. Есть вопрос по выбору языка. Как можно организовать выбор языка для секции [code]?

[diman_21Ru]

White Rabbit,

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"
Name: "english"; MessagesFile: "compiler:Languages\English.isl"

[habib2302]

Доброе время суток. У меня есть 2 экзешник разной разрядности. Как сделать так, чтобы создавался один ярлык в панели упр win 7 в зависимости от разрядности win
[Code ]
const
LOAD_LIBRARY_AS_DATAFILE = $2;

function LoadLibraryEx(lpFileName: String; hFile: THandle; dwFlags: DWORD): THandle; external 'LoadLibraryExA@kernel32.dll stdcall';
function LoadString(hInstance: THandle; uID: SmallInt; var lpBuffer: Byte; nBufferMax: Integer): Integer; external 'LoadStringA@user32.dll stdcall';
function PinToTaskbarWin7(Filename: String): Boolean;
var
hInst: THandle;
buf: array [0..255] of byte;
i: byte;
strVerb, s: String;
objShell, colverbs: Variant;
begin
if not FileExists(Filename) then Exit;
if (GetWindowsVersion shr 24 = 6) and ((GetWindowsVersion shr 16) and $FF = 1) then
begin
hInst := LoadLibraryEx(ExpandConstant('{sys}\shell32.dll'), 0, LOAD_LIBRARY_AS_DATAFILE);
for i := 0 to LoadString(hInst, 5386, buf[0], 255)-1 do strVerb := strVerb + Chr(Buf[i]);
FreeDLL(hInst);
try
objShell := CreateOleObject('Shell.Application');
except
ShowExceptionMessage;
Exit;
end;
colVerbs := objShell.Namespace(ExtractFileDir(Filename)).ParseName(ExtractFileName(Filename)).Verbs;
for i := colVerbs.Count downto 1 do if colVerbs.Item[i].Name = strVerb then
begin
colVerbs.Item[i].DoIt;
Result := True;
end;
end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
res:Integer;
s,s1:string;
begin
If CurStep=ssPostInstall
then
begin
s1:=ExpandConstant('{app}');
Exec(s, '-y -o"'+ s1 + '"', '', SW_SHOWNORMAL, ewWaitUntilTerminated, res);
if (CurStep = ssPostInstall) and IsTaskSelected('taskbaricon') then PinToTaskbarWin7(ExpandConstant('{app}\ezcd.exe'))
end;
end;

[Tasks]
Name: taskbaricon; Description: "{cm:CreateTaskBarIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked; MinVersion: 0.0,6.1.7600

[CustomMessages]
russian.AdditionalIcons=Дополнительные значки:
russian.CreateTaskBarIcon=Создать значок в &Панели задач

[White Rabbit]

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"
Name: "english"; MessagesFile: "compiler:Languages\English.isl" »
Не понял...Если я в [code] наберу сообщение на русском языке, оно будет само на том или ином языке выдаваться на экран?

[Nordek]

Не понял... »Совместно с [Languages] используйте [CustomMessages], в коде вглядитесь в Caption.

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

[Languages]
Name: default; MessagesFile: compiler:Default.isl
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[CustomMessages]
default.text=Text in English
russian.text=Текст на Русском

[Code]
var
Text: TNewStaticText;

procedure InitializeWizard();
begin
Text := TNewStaticText.Create(WizardForm);
with Text do
begin
Parent := WizardForm;
Caption := CustomMessage('text');
Left := ScaleX(24);
Top := ScaleY(336);
AutoSize := True;
end;
end;

[sergey3695]

habib2302,
элементарно
if (CurStep = ssPostInstall) and IsTaskSelected('taskbaricon') then
begin
if iswin64 then
PinToTaskbarWin7(ExpandConstant('{app}\ezcd64.exe'))
else
PinToTaskbarWin7(ExpandConstant('{app}\ezcd32.exe'));
end;

[diman_21Ru]

White Rabbit, а зачем его в код засовывать пиши отдельно

[White Rabbit]

а зачем его в код засовывать пиши отдельно »
Может и не нужно. Просто в коде сообщения выдаются на экран в отдельном окошке "MsgBox". По умолчанию просто набран текст на русском, а я хотел бы мультиязычный вариант, вот и задумался, как это реализовать.

[Shift85]

мультиязычный вариант »

White Rabbit,Пример:

[Nordek]

White Rabbit, Я уже дал пример (http://forum.oszone.net/post-2343648-511.html).

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

[Languages]
Name: default; MessagesFile: compiler:Default.isl
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[CustomMessages]
default.MyText=Hello! %nYour text in English %nPress «OK» to continue
russian.MyText=Здравствуйте! %nВаш текст на Русском %nДля продолжения нажмите «ОК»

[Code]
Function InitializeSetup: Boolean;
begin
if MsgBox(CustomMessage('MyText'), mbError, MB_OKCANCEL) = idOk then result := true else result := false;
end;


diman_21Ru, Какая вам разница? Его установщик, пусть что хочет то и делает - вас это меньше всего должно волновать.

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

[Dodakaedr]

Как вариант разные иконки »
Как самому создать такую иконку?

[White Rabbit]

Сэнкс. Второй вариант понятнее.

[Shift85]

Как самому создать такую иконку? »

Dodakaedr, Через Axialis IconWorkshop чумовая прога... :gamer: =)

[diman_21Ru]

Nordek, Мне разницы нет я просто написал