Inno Setup (создание инсталяционных пакетов)

[Shift85]

Подскажите пожалуйста как сделать тень для инсталлятора...

Вокруг маски... http://rghost.ru/52786114

 

[nik1967]

Tolyak26, вот.

 

[ATTACUE]

Приветствую)
Возможно это сообщение предназначено для sergey3695, так как эту фишку я увидел у него, но буду рад, если кто-то еще знает, как реализовать эту фишку и мне подскажет)

Спойлер: скрины

Второй и третий скрины представляют для меня наибольший интерес)

 

[ilzok17]

Всем добрый день и хорошего настроения.Есть такой вопросик:как назначить значок для папки с устанавливаемым приложением?То есть что бы после установки папка была уже со своим значком.Внедрение файла desktop.ini не помогает.Заранее спасибо.

 

[vint56]

ilzok17
http://rghost.ru/52790028

 

[Mailchik]

ATTACUE, код...

#define NeedSize 4000

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[B][[/B]Code]
var
  FreeMB, TotalMB: Cardinal;
  FreeSpaceLabel: TLabel;

function NumToStr(Float: Extended): String;
begin
  Result:= format('%.2n', [Float]);
  StringChange(Result, ',', '.');
  while (Result[Length(Result)] = '0') or ((Result[Length(Result)] = '.') and (Pos('.', Result) > 0)) do
    SetLength(Result, Length(Result)-1);
end;

function MbOrTb(Float: Extended): String;
begin
  if Float < 1024 then Result := NumToStr(Float) + ' Мб' else
    if Float/1024 < 1024 then Result := NumToStr(Float/1024) + ' Гб' else
      Result := NumToStr(Float/(1024 * 1024)) + ' Тб';
end;

procedure MyDirChange(Sender: TObject);
begin
  WizardForm.NextButton.Enabled := False;
  if Length(ExtractFileDrive(WizardForm.DirEdit.Text)) = 0 then
    FreeSpaceLabel.Caption := 'Доступно места на диске: -----' else
    if RemoveBackslash(WizardForm.DirEdit.Text) = ExtractFileDrive(WizardForm.DirEdit.Text) then
      FreeSpaceLabel.Caption := 'Нельзя ставить в корень диска!' else
  begin
    GetSpaceOnDisk(ExtractFileDrive(WizardForm.DirEdit.Text), True, FreeMB, TotalMB);
    FreeSpaceLabel.Caption := 'Доступно места на диске: ' + MbOrTb(FreeMB);
    WizardForm.NextButton.Enabled := FreeMB > {#NeedSize};
  end;
end;

procedure InitializeWizard;
begin
  FreeSpaceLabel := TLabel.Create(WizardForm);
  with FreeSpaceLabel do begin
    AutoSize := False;
    SetBounds(ScaleX(0), ScaleY(140), ScaleX(300), ScaleY(20));
    Parent := WizardForm.SelectDirpage;
  end;

  WizardForm.DirEdit.OnChange := @MyDirChange;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpSelectDir then begin
    MyDirChange(nil)
  end;
end;

 

[Tolyak26]

nik1967, благодарю. Но вот 2 момента неприятных появились еще до твоего исправления:

1. По непонятной причине появилась эта полоска. По идее это YesRadio..

Спойлер: Код

with WizardForm.YesRadio do
begin
Enabled := False;
Visible := False;
end;

Спойлер: Скриншот

2. При английском варианте инсталлятора у меня Кнопка "Finish (Завершить)" немного дальше уезжает, чем в русском варианте. Поправить так и не удалось самому.

Спойлер: Скриншот

 

[ilzok17]

vint56 Спасибо за ссылку,всё сработало,я чуток подредактировал для использования вместо отдельного файла .ico идёт для значка родной .exe. Но возник ещё маленький вопросик:файл Desktop.ini создаёт сам скрипт,но хотелось что бы он был не видимым,а как и где в коде дописать атрибут Attribs: hidden (невидимый) не пойму.
Вот код:

procedure CreateIni();
begin
SaveStringsToFile(ExpandConstant('{app}\Desktop.ini '), ['[.ShellClassInfo]',
'IconFile=WEI.exe',
'IconIndex=0'], False)

 

[nik1967]

Tolyak26,
1. Это LabelTime3 - найди всё, что с ним связано и удали/закомментируй. Хотя у меня такого нет.
2. В Procedure CurPageChanged(CurPageID: Integer); в if CurPageID=wpFinished then begin добавь WizardForm.NextButton.SetBounds(327, 327, 75, 23);
пример

[SOURCE="inno"]Procedure CurPageChanged(CurPageID: Integer);
Begin
LaunchGameButton.Hide;
UninstallGameButton.Hide;
if CurPageID=wpSelectDir then begin DirEditOnChange(nil)
end;
if CurPageID=wpReady then begin
WizardForm.ReadyMemo.Lines.Delete(3);
WizardForm.ReadyMemo.Lines.Delete(3);
WizardForm.ReadyMemo.Lines.Delete(3);
end;
if CurPageID=wpFinished then begin
LaunchGameButton.Show;
UninstallGameButton.Show;
WizardForm.NextButton.SetBounds(327, 327, 75, 23);
end;
// -- Установка на жесткий диск --
// case CurPageID of wpSelectTasks:
// begin
// WizardForm.NextButton.Caption := ExpandConstant(SetupMessage(msgButtonInstall));
// end;
// end;
// -- Установка на жесткий диск --
if (CurPageID = wpFinished) and ISDoneError then
begin
LabelTime3.Hide;
LaunchGameButton.Hide;
UninstallGameButton.Hide;
WizardForm.Caption:= ExpandConstant('{cm:Error}');
WizardForm.FinishedLabel.Font.Color:= clRed;
WizardForm.FinishedLabel.Caption:= SetupMessage(msgSetupAborted);
with FinishedPageText1 do begin
Caption := ExpandConstant('{cm:FinishedPageErrorText1}');
end;
with FinishedPageText2 do begin
Caption := ExpandConstant('{cm:FinishedPageErrorText2}');
Font.Color:= clRed;
end;
end;
end;[/SOURCE]

 

[Tolyak26]

nik1967, 1 пункт уже исправил. Теперь 2-ой только осталось Всё равно, спасибо за помощь.

 

[vint56]

ilzok17

Спойлер: Папка, в которую устанавливается программа, имеет свою иконку

[Setup]
AppName=Иконка
AppVerName=Иконка
DefaultDirName={pf}\Иконка
DefaultGroupName=Иконка

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

[Dirs]
Name: "{app}"; Attribs: system; AfterInstall: CreateIni();

[Files]
Source: icon.ico; DestDir: {app}

type
#ifdef UNICODE
  #define A "W"
  PChar = PAnsiChar;
#else
  #define A "A"
#endif

function SetFileAttributes(lpFileName: PChar; dwFileAttributes: DWORD): BOOL; external 'SetFileAttributesA@kernel32.dll stdcall';
//******************************************* [ Папка, в которую устанавливается программа, имеет свою иконку ] ***************************************************//
procedure CreateIni();
begin
SaveStringsToFile(ExpandConstant('{app}\Desktop.ini'), ['[.ShellClassInfo]',
'IconFile=icon.ico',
'IconIndex=0'], False)
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then begin
  SetFileAttributes(PChar(ExpandConstant('{app}\Desktop.ini')), FILE_ATTRIBUTE_HIDDEN or FILE_ATTRIBUTE_SYSTEM);
end;
end;
//******************************************* [ Папка, в которую устанавливается программа, имеет свою иконку ] ***************************************************//[/SPOILER]

 

[ilzok17]

ilzok17

Спойлер: Папка, в которую устанавливается программа, имеет свою иконку

[Setup]
AppName=Иконка
AppVerName=Иконка
DefaultDirName={pf}\Иконка
DefaultGroupName=Иконка

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

[Dirs]
Name: "{app}"; Attribs: system; AfterInstall: CreateIni();

[Files]
Source: icon.ico; DestDir: {app}

type
#ifdef UNICODE
  #define A "W"
  PChar = PAnsiChar;
#else
  #define A "A"
#endif

function SetFileAttributes(lpFileName: PChar; dwFileAttributes: DWORD): BOOL; external 'SetFileAttributesA@kernel32.dll stdcall';
//******************************************* [ Папка, в которую устанавливается программа, имеет свою иконку ] ***************************************************//
procedure CreateIni();
begin
SaveStringsToFile(ExpandConstant('{app}\Desktop.ini'), ['[.ShellClassInfo]',
'IconFile=icon.ico',
'IconIndex=0'], False)
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then begin
  SetFileAttributes(PChar(ExpandConstant('{app}\Desktop.ini')), FILE_ATTRIBUTE_HIDDEN or FILE_ATTRIBUTE_SYSTEM);
end;
end;
//******************************************* [ Папка, в которую устанавливается программа, имеет свою иконку ] ***************************************************//[/SPOILER][/QUOTE]

Ещё раз спасибо,но ты меня не понял:я имею ввиду что надо прописать в коде что бы файл Desktop.ini,который создаётся инсталлятором был скрытым(невидимым).А с остальным всё в порядке - папка появляется уже с моим значком,но вот файл Desktop.ini(как в скачанном по ссылке ,так и в этом коде) - обычный(видимый).

 

[vint56]

ilzok17 ну я и так скрыл Desktop.ini который создаёт установщик а ты с начало удали старую папку и установи заново

 

[sergey3695]

ATTACUE, в готовых скриптах Metro 2033 Last Light, там это есть в модуле SpaceDisk.iss

 

[ilzok17]

ilzok17 ну я и так скрыл Desktop.ini который создаёт установщик а ты с начало удали старую папку и установи заново

vint56,я тебе уже наверно надоел,но перепробовал по всякому,всё равно файл Desktop.ini видимый

 

[vint56]

ilzok17 покажи скрипт

 

[sergey3695]

ilzok17, через секцию [Files] копируй этот готовый уже Desktop.ini с атрибутом hidden system и не морочь себе голову.
Вот у тебя при создании ini файла ничего не меняется, так что не вижу проблему сделать как я написал.

procedure CreateIni();
begin
SaveStringsToFile(ExpandConstant('{app}\Desktop.ini'), ['[.ShellClassInfo]',
'IconFile=icon.ico',
'IconIndex=0'], False)
end;

Помню также хотел сделать,что ты хочешь...так вот с помощью SetFileAttributes у меня не получилось.

 

[ilzok17]

ilzok17 покажи скрипт

[Setup]
SourceDir=.
OutputDir=.
AppName=Winaero WEI Tool 1.0
AppVerName=Winaero WEI Tool 1.0
AppVersion=Winaero WEI Tool 1.0
DefaultDirName={pf}\Winaero WEI
DefaultGroupName=Winaero WEI Tool 1.0
AllowNoIcons=yes
OutputBaseFilename=WEI
WindowVisible=no
WindowShowCaption=no
WindowResizable=no
Compression=lzma/normal

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

[Files]
Source: icon.ico; DestDir: {app}
Source: "D:\3\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension

[Dirs]
Name: "{app}"; Attribs: system; AfterInstall: CreateIni();

[Icons]
Name: "{group}\{cm:UninstallProgram,Winaero WEI Tool 1.0}"; Filename: "{uninstallexe}"

[UninstallDelete]
Type: filesandordirs; Name: "{app}"

type
#ifdef UNICODE
#define A "W"
PChar = PAnsiChar;
#else
#define A "A"
#endif

function SetFileAttributes(lpFileName: PChar; dwFileAttributes: DWORD): BOOL; external 'SetFileAttributesA@kernel32.dll stdcall';
//******************************************* [ Папка, в которую устанавливается программа, имеет свою иконку ] ************************************************** *//
procedure CreateIni();
begin
SaveStringsToFile(ExpandConstant('{app}\Desktop.ini'), ['[.ShellClassInfo]',
'IconFile=icon.ico',
'IconIndex=0'], False)
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then begin
SetFileAttributes(PChar(ExpandConstant('{app}\Desk top.ini')), FILE_ATTRIBUTE_HIDDEN or FILE_ATTRIBUTE_SYSTEM);
end;
end;
//******************************************* [ Папка, в которую устанавливается программа, имеет свою иконку ] ************************************************** *//

 

[ilzok17]

vint56 ,всё спасибо нашёл ошибку,там в одном месте лишний пробел был,сейчас всё отлично.Ещё раз спасибо.

 

[vint56]

ilzok17 вот попробуй http://rghost.ru/52796994 они оба у меня работают