[Dodakaedr]

Подскажите пожалуйста пример скрипта с оснащением другого курсора при запуске установщика , заранее спасибо . »

уже обсуждалось
И еще пример:

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

Код:

#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] наберу сообщение на русском языке, оно будет само на том или ином языке выдаваться на экран?