[Tima182]

Распаковать в любую папку, запустить скрипт, чуть отредактировать и компиллировать сетап?

[Gnom_aka_Lexander]

Ооо... Ты-ж скачал? там вроде все понятно. Можно удалить все, что касается jre и Java из этого скрипта, в остальное - просто кладешь рядом папку .minecraft со своей сборкой и компилишь.

[Tima182]

Мне просто установка нужна.
Я кинул, ругается на много чего...
У меня проблема, помогите на рабочий стол и в пуск создать по 3 ярлыка игры?
При компиляции сетупа ехе игры находится в папке %AppData%\.minecraft\Лаунчеры
А когда скомпилирует, установится, ехе игры уже тут находится %AppData%\.minecraft
Помогите исправить?
1 имя: MultiMinecrafter
2 имя: XRAM Launcher
Все ехе.
А в конце установки нужно что бы был 1 запуск игры.

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

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "Minecraft"
#define MyAppVersion "1.4.7"
#define MyAppExeName "Minecraft.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{30F4D7A3-7C27-4A82-9977-F785B48D23FE}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
DefaultDirName={userappdata}\.minecraft\
DisableDirPage=true
DefaultGroupName={#MyAppName}
OutputDir=C:\Users\Тима\Desktop
OutputBaseFilename=Minecraft
Compression=lzma/ultra
SolidCompression=true
PrivilegesRequired=none

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

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked

[Files]
Source: C:\Users\Тима\AppData\Roaming\.minecraft\Лаунчеры\Minecraft.exe; DestDir: {app}; Flags: ignoreversion
Source: C:\Users\Тима\AppData\Roaming\.minecraft\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: {group}\{#MyAppName}; Filename: {app}\{#MyAppExeName}
Name: {group}\{cm:UninstallProgram,{#MyAppName}}; Filename: {uninstallexe}
Name: {commondesktop}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: desktopicon

[Run]
Filename: {app}\{#MyAppExeName}; Description: {cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}; Flags: nowait postinstall skipifsilent

[insombia]

Tima182 пример для 3 ярлыков
Name: {userdesktop}\icon1; Filename: {app}\icon1.exe; WorkingDir: {app}\Лаунчеры; Check: MakeDesktopIcon and checkerror
Name: {userdesktop}\icon2; Filename: {app}\icon2.exe; WorkingDir: {app}\Лаунчеры; Check: MakeDesktopIcon and checkerror
Name: {userdesktop}\icon3; Filename: {app}\icon3.exe; WorkingDir: {app}\Лаунчеры; Check: MakeDesktopIcon and checkerror

Name: {group}\icon1; Filename: {app}\icon1.exe; Check: MakeDesktopIcon and checkerror
Name: {group}\icon2; Filename: {app}\icon2.exe; Check: MakeDesktopIcon and checkerror
Name: {group}\icon3; Filename: {app}\icon3.exe; Check: MakeDesktopIcon and checkerror
думаю я тебя правильно понял?

Помогите исправить?
1 имя: MultiMinecrafter
2 имя: XRAM Launcher
не совсем понял что тебе нужно?

Помогите исправить? 1 имя: MultiMinecrafter 2 имя: XRAM Launcher

не понял что тебе именно нужно?

[Tima182]

В скрипт добавить что бы создавались для 3-х файлов ярлыки: пуск>программы>minecraft, и на рабочий стол.
3 файла:
minecraft
MultiMinecrafter
XRAM Launcher
Которым нужно что бы создавались ярлыки в 2-х местах.
И еще нужно что бы значек был каждой своей ехе, к которой будет ярлык в программах и рабочий стол.
И еще что бы 3 галочки можно было ставить в конце, запуск приложений.
А лучше что бы 1 галочка на саму игру minecraft.exe стояла, а вторые дополнительно.
Вот и все.

[habib2302]

доброе время суток.я незнаю как это объяснть?короче.я делаю репак aida64 2в1.например.общая папка

Код:

{pf}\FinalWire

а при выборе компанента AIDA64 Business Edition дописывалась автоматически папка.например был

Код:

{pf}\FinalWire

а стал

Код:

{pf}\FinalWire\AIDA64 Business Edition

[saurn]

habib2302, установка каждой версии в свою подпапку? В вашем скрипте это есть.

Код:

#define AIDA641 "AIDA64 Extreme Edition"
#define AIDA642 "AIDA64 Business Edition"

[Setup]
DefaultDirName={pf}\FinalWire

[Files]
Source: {app}\{#AIDA641}\*; DestDir: {app}\{#AIDA641}; Flags: ignoreversion recursesubdirs createallsubdirs; Components: AIDA641;
Source: {app}\{#AIDA642}\*; DestDir: {app}\{#AIDA642}; Flags: ignoreversion recursesubdirs createallsubdirs; Components: AIDA642;

[Nightwishh]

Ребят а подскажите, можно ли вместо WizardForm.DirEdit использывать Label или Memo или Panel для указания пути, просто WizardForm.DirEdit не имеет св-ва прозрачности, а мне хотелось бы сделать эту рамку прозрачной, если можно то как?

[saurn]

Nightwishh, тут оно?

---------------------------------------------------------------------------------------------------------------------
neorom, в чем сложность? Скрипт покажите.

Ну и, если хочется проценты через внешнюю библиотеку, пожалуйста:

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

Код:

[Files]
Source: InnoCallback.dll; Flags: dontcopy noencryption nocompression deleteafterinstall;

[Code]

type
  TTimerProc = procedure(HandleW, Msg, idEvent, TimeSys: LongWord);


function WrapTimerProc(callback: TTimerProc; Paramcount: Integer): longword; external 'wrapcallback@{tmp}\InnoCallback.dll stdcall delayload';
function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): longword; external 'SetTimer@user32';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32 stdcall delayload';

var
  pLabel: TLabel;
  pTimer: LongWord;

function InitializeSetup(): Boolean;
begin
  if not FileExists(ExpandConstant('{tmp}\InnoCallback.dll')) then ExtractTemporaryFile('InnoCallback.dll');
  Result := True;
end;

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

procedure pInstall(h, msg, idevent, dwTime: Longword);
begin
  with WizardForm.ProgressGauge do
  begin
    pLabel.Caption:= pStr((Position*100)/Max) + '%';
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  case CurStep of
    ssInstall:
    begin
      pLabel := TLabel.Create(nil);
      with pLabel do
      begin
        Parent := WizardForm.ProgressGauge;
        SetBounds(WizardForm.ProgressGauge.Left, WizardForm.ProgressGauge.Top + 2, WizardForm.ProgressGauge.Width, WizardForm.ProgressGauge.Height);
        Alignment := taCenter;
        Align := alNone;
        AutoSize := False;
        Font.Color := clBlack;
        Font.Height := -12;
        Font.Name := 'Tahoma';
        Font.Style := [fsBold];
        Transparent := True;
      end;

      pTimer:= SetTimer(0, 0, 100, WrapTimerProc(@pInstall, 4));
    end;

    ssPostInstall:
    begin
      KillTimer(0, pTimer);
      pLabel.Free;
    end;
  end;
end;

procedure DeinitializeSetup();
begin
  KillTimer(0, pTimer);
end;

---------------------------------------------------------------------------------------------------------------------
Tima182

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

Код:

#define MyAppName "Minecraft"
#define MyAppVersion "1.4.7"
#define MyAppExeName "Minecraft.exe"
#define MultiMinecrafter "MultiMinecrafter.exe"
#define XRAM Launcher "XRAM Launcher.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{30F4D7A3-7C27-4A82-9977-F785B48D23FE}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
DefaultDirName={userappdata}\.minecraft\
DisableDirPage=true
DefaultGroupName={#MyAppName}
OutputDir=C:\Users\Тима\Desktop
OutputBaseFilename=Minecraft
Compression=lzma/ultra
SolidCompression=true
PrivilegesRequired=none

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

[Files]
;Зачем здесь эта строка, если во второй строке из этой же папки все файлы копируются по маске?
;Source: C:\Users\Тима\AppData\Roaming\.minecraft\Лаунчеры\Minecraft.exe; DestDir: {app}; Flags: ignoreversion

Source: C:\Users\Тима\AppData\Roaming\.minecraft\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked

[Icons]
Name: {group}\Minecraft;                          Filename: {app}\Лаунчеры\{#MyAppExeName};     WorkingDir: {app}\Лаунчеры;
Name: {group}\MultiMinecrafter;                   Filename: {app}\Лаунчеры\{#MultiMinecrafter}; WorkingDir: {app}\Лаунчеры;
Name: {group}\XRAM Launcher;                      Filename: {app}\Лаунчеры\{#XRAM Launcher};    WorkingDir: {app}\Лаунчеры;
Name: {group}\{cm:UninstallProgram,{#MyAppName}}; Filename: {uninstallexe};

Name: {commondesktop}\Minecraft;        Filename: {app}\Лаунчеры\{#MyAppExeName};     WorkingDir: {app}\Лаунчеры; Tasks: desktopicon;
Name: {commondesktop}\MultiMinecrafter; Filename: {app}\Лаунчеры\{#MultiMinecrafter}; WorkingDir: {app}\Лаунчеры; Tasks: desktopicon;
Name: {commondesktop}\XRAM Launcher;    Filename: {app}\Лаунчеры\{#XRAM Launcher};    WorkingDir: {app}\Лаунчеры; Tasks: desktopicon;

[Run]
Filename: {app}\Лаунчеры\{#MyAppExeName};     Description: Запустить Minecraft;        Flags: nowait postinstall skipifsilent
Filename: {app}\Лаунчеры\{#MultiMinecrafter}; Description: Запустить MultiMinecrafter; Flags: nowait postinstall skipifsilent unchecked
Filename: {app}\Лаунчеры\{#XRAM Launcher};    Description: Запустить XRAM Launcher;    Flags: nowait postinstall skipifsilent unchecked

[audiofeel]

Доброе утро всем, подскажите с примером "Запись имя пользователя в ini" - мне нужно просто имя в первой строке и во второй пароль, без этих "[ ]" или "=", ну как мне кажется все перепробовал но эти два символа остаются

Код:

 [...Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program

[....Code]
var
EditPage: TWizardPage;
MyEdit: TEdit;

procedure MyEditOnChange(Sender: TObject);
begin
if MyEdit.Text = '' then
WizardForm.NextButton.Enabled := False
else
WizardForm.NextButton.Enabled := True;
end;

procedure CreateEditPage();
begin
EditPage := CreateCustomPage(wpWelcome, 'Text_1', 'Text_2');

with TNewStaticText.Create(EditPage) do
begin
AutoSize := False;
WordWrap := True;
SetBounds(0, 0, WizardForm.InnerNotebook.Width, ScaleY(28));
Caption := 'Text_3';
Parent := EditPage.Surface;
end;

with TNewStaticText.Create(EditPage) do
begin
AutoSize := True;
WordWrap := True;
SetBounds(0, ScaleY(28), WizardForm.InnerNotebook.Width, ScaleY(14));
Caption := 'Name:';
Parent := EditPage.Surface;
end;

MyEdit := TEdit.Create(EditPage);
with MyEdit do
begin
SetBounds(0, ScaleY(44), WizardForm.InnerNotebook.Width, ScaleY(21));
OnChange := @MyEditOnChange;
Parent := EditPage.Surface;
end;
end;

procedure InitializeWizard();
begin
CreateEditPage();
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
SetIniString('main', 'user', MyEdit.Text, ExpandConstant('{app}\MyIni.ini'));
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if (CurPageID = EditPage.ID) and (MyEdit.Text = '') then
WizardForm.NextButton.Enabled := False;
end;