[murlakatamenka]

Несколько тонких вопросов :
1. Как можно настроить, чтобы отдельные папки/файлы сохранялись в отдельные .bin-файлы ?
2. Как можно сделать, чтобы в зависимости от версии Windows (32/64 бита) ключи реестра создавались соответственно в HKLM/Software/... и HKLM/Software/Wow6432Node/...
3. Подскажите нормальный вариант для сплэша. Хочу сделать следующее: сначала появляется лого Mass Effect (появление плавное, т.е. со сменой прозрачности), а потом так же плавно появляестся 2 (это цифра, для Mass Effect 2 всё делается )и спустя некоторое врмя они плавно исчезают. isgsg.dll у меня не работает вообще (Win 7 x64), вариант через sleep мне не нравится тем, что при наведении на сплэш курсор меняется на со стрелки на кружок. С картинками поработать смогу (в Photoshop).
Спасибо за помощь.

[R.i.m.s.k.y.]

2. Как можно сделать, чтобы в зависимости от версии Windows (32/64 бита) ключи реестра создавались соответственно в HKLM/Software/... и HKLM/Software/Wow6432Node/... »

стандартная функция IsWin64 и Check: ()
Check: (not IsWin64); Root: HKLM; Subkey: SOFTWARE\Gabest\Media Player Classic;...
Check: IsWin64; Root: HKLM; Subkey: Software\Wow6432Node\Gabest\Media Player Classic...
не забудь
[Setup]
ArchitecturesInstallIn64BitMode=x64

и вообще в справке почитай про небольшие отличия между х86 и х64

[YURSHAT]

LordSP,

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

скрипт

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[Code_]
function AppendMenu(hMenu: HMENU; uFlags, uIDNewItem: UINT; lpNewItem: PChar): BOOL;
  external 'AppendMenuA@user32.dll stdcall';
function GetSystemMenu(hWnd: HWND; bRevert: BOOL): HMENU; external 'GetSystemMenu@user32.dll stdcall';

const
  WM_SYSCOMMAND = $0112;
  MF_DELETE     = $200;
  MF_SEPARATOR  = $800;
  MF_BYPOSITION = $400;

var
  Menu: TMenuItem;

procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if Msg.message = WM_SYSCOMMAND then
    if Msg.wParam = Menu.Handle then
      MsgBox('Здесь могла бы быть ваша реклама... ', mbInformation, MB_OK);;
end;

procedure InitializeWizard();
begin
  // попытаемя удалить родное меню 'О программе'
  if not AppendMenu(GetSystemMenu(Wizardform.Handle, True), MF_DELETE, 0, SetupMessage(msgAboutSetupMenuItem)) then
    WizardForm.Position:= poScreenCenter;
  // создаём сепаратор
  AppendMenu(GetSystemMenu(Wizardform.Handle, False), MF_SEPARATOR, 0, '');
  Menu:= TMenuItem.Create(WizardForm); // создаём ссылку на менюшку
  // добавляем свой пункт в системное меню 'О программе'
  AppendMenu(GetSystemMenu(Wizardform.Handle, False), MF_BYPOSITION, Menu.Handle, SetupMessage(msgAboutSetupMenuItem));
  Application.OnMessage:= @AppOnMessage;
end;

для ResTools'овской инно

[LinkOFF]

помогите пожалуйста скрепить 2 скрипта.В одном игра со скином и скартинкой во весь инстал,а в другом вставка логотипа и у меня не получается их скрепить.Помогите пожалуйста.Зарание спасибо

Вот скрипт http://rghost.ru/5225030

[Gnom_aka_Lexander]

R.i.m.s.k.y., еще проще, задается стандартный для х32 ключ, в х64 он автоматом поправляется как нужно - лично проверил. А также обращения к ключу идут с этой поправкой - тоже проверено.
LinkOFF, прикрепил соединенный скрипт, ты энд один пропустил.

[R.i.m.s.k.y.]

R.i.m.s.k.y., еще проще, задается стандартный для х32 ключ, в х64 он автоматом поправляется как нужно - лично проверил. А также обращения к ключу идут с этой поправкой - тоже проверено. »

Типа HKCU32/HKCU64? это да, но ...Software\Wow6432Node\... оно не учитывает, тоже проверил

[Gnom_aka_Lexander]

Wow6432Node\. »

оно учитывает, я-же говорю - проверял неоднократно, все вписывается правильно, и обращение, например из авторана, идет без Wow6432Node, но оно учитывается.Вот, для проверки - удали строчки распаковки исдоне, чтоб не было ошибок, и установи, потом запусти еще раз. И обрати внимание на реестр.

[YURSHAT]

LinkOFF,

помогите пожалуйста скрепить 2 скрипта.В одном игра со скином и скартинкой во весь инстал,а в другом вставка логотипа и у меня не получается их скрепить.Помогите пожалуйста.Зарание спасибо »

держите

Код:

#define MyAppName "Mass Effect"
#define MyAppVersion "1.0"
#define MyAppPublisher "BioWare"
#define MyAppURL "http://www.torrent-games.net/"
#define MyAppExeName "MassEffectLauncher.exe"

[Setup]
AppId={{D9C5ACA8-A99E-4431-AC50-236359DA74F8}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputDir=out
OutputBaseFilename=setup
WizardImageFile=img\WizardImage.bmp
WizardSmallImageFile=img\WizardSmallImage.bmp
SetupIconFile=img\setup.ico
DisableReadyPage=yes
AllowNoIcons=yes
Compression=lzma
SolidCompression=no
DiskSpanning=yes
DiskSliceSize=727000000
PrivilegesRequired=poweruser

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

[Files]
Source: "skin\isskin.dll"; DestDir: "{app}"; Flags: dontcopy
Source: "skin\tiger_v2.cjstyles"; DestDir: "{tmp}"; Flags: dontcopy
Source: "img\papka.bmp"; DestDir: "{tmp}"; Flags: dontcopy nocompression
Source: "img\img.bmp"; DestDir: "{tmp}"; Flags: dontcopy nocompression
Source: "img\logo.bmp"; DestDir: "{tmp}"; Flags: dontcopy nocompression
;Source: "D:\Games\Fallout New Vegas\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs

[Icons]
Name: "{group}\Начать игру"; Filename: "{app}\{#MyAppExeName}";
Name: "{group}\Удалить игру"; Filename: "{uninstallexe}";
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}";


[Code_]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin.dll stdcall';
procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';
function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external 'ShowWindow@user32.dll stdcall';

var
WLabel1, WLabel2,
FLabel1, FLabel2: TLabel;
PageNameLabel, PageDescriptionLabel: TLabel;
BmpFile: TBitmapImage;
LogoImage:TBitmapImage;
LogoLabel: TLabel;
LogoPanel: TPanel;

procedure LogoOnClick(Sender: TObject);
var ReturnCode: Integer;
begin
ShellExec('open', 'http://сайт.ру', '', '', SW_SHOWNORMAL, ewNoWait, ReturnCode)
end;

procedure InitializeWizard1();
begin
WizardForm.BorderStyle:= bsDialog;
WizardForm.Bevel.Hide
WizardForm.Bevel1.Hide

WizardForm.PageNameLabel.Font.Color:=clwhite;
WizardForm.LicenseAcceptedRadio.Font.Color:=clwhite;
WizardForm.LicenseNotAcceptedRadio.Font.Color:=clwhite;
WizardForm.Font.Color:=clwhite;

ExtractTemporaryFile('papka.bmp');
WizardForm.SelectDirBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\papka.bmp'));
WizardForm.SelectDirBitmapImage.AutoSize:=true;
WizardForm.SelectGroupBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\papka.bmp'));
WizardForm.SelectGroupBitmapImage.AutoSize:=true;

ExtractTemporaryFile('img.bmp');
BmpFile:= TBitmapImage.Create(WizardForm);
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\img.bmp'));
BmpFile.SetBounds(0, 0, 497, 313);
BmpFile.Stretch:= true
BmpFile.Parent:= WizardForm.WelcomePage;

WizardForm.WelcomeLabel1.Hide;
WizardForm.WelcomeLabel2.Hide;
WizardForm.FinishedHeadingLabel.Hide;
WizardForm.FinishedLabel.Hide;
WizardForm.WizardBitmapImage.Width := 497;
WizardForm.WizardBitmapImage.Height := 313;
WizardForm.WizardSmallBitmapImage.Left:=0;
WizardForm.WizardSmallBitmapImage.Width:=497;
WizardForm.WizardSmallBitmapImage.Height:=58;
WizardForm.PageDescriptionLabel.Width:=300;
WizardForm.PageNameLabel.Width:=300;
WizardForm.FileNameLabel.Visible:=False;
WizardForm.ProgressGauge.Top:=ScaleY(100);
WizardForm.StatusLabel.Top:=ScaleY(80);
WLabel1 := TLabel.Create(WizardForm);
WLabel1.Left := ScaleX(176);
WLabel1.Top := ScaleY(80);
WLabel1.Width := ScaleX(301);
WLabel1.Height := ScaleY(54);
WLabel1.AutoSize := False;
WLabel1.WordWrap := True;
WLabel1.Font.Size := 11;
WLabel1.Font.Style := [fsBold];

WLabel1.Caption := WizardForm.WelcomeLabel1.Caption;
WLabel1.Transparent := True;
WLabel1.Parent := WizardForm.WelcomePage;
WLabel2 :=TLabel.Create(WizardForm);
WLabel2.Top := ScaleY(130);
WLabel2.Left := ScaleX(176);
WLabel2.Width := ScaleX(301);
WLabel2.Height := ScaleY(234);
WLabel2.AutoSize := False;
WLabel2.WordWrap := True;

WLabel2.Caption := WizardForm.WelcomeLabel2.Caption;
WLabel2.Transparent := True;
WLabel2.Parent := WizardForm.WelcomePage;
WizardForm.WizardBitmapImage2.Width := 497;
WizardForm.WizardBitmapImage2.Height := 313;
FLabel1 := TLabel.Create(WizardForm);
FLabel1.Left := ScaleX(176);
FLabel1.Top := ScaleY(80);
FLabel1.Width := ScaleX(301);
FLabel1.Height := ScaleY(54);
FLabel1.AutoSize := False;
FLabel1.WordWrap := True;
FLabel1.Font.Size := 11;
FLabel1.Font.Style := [fsBold];

FLabel1.Caption := WizardForm.FinishedHeadingLabel.Caption;
FLabel1.Transparent := True;
FLabel1.Parent := WizardForm.FinishedPage;
FLabel2 :=TLabel.Create(WizardForm);
FLabel2.Top := ScaleY(130);
FLabel2.Left := ScaleX(176);
FLabel2.Width := ScaleX(301);
FLabel2.Height := ScaleY(53);
FLabel2.AutoSize := False;
FLabel2.WordWrap := True;

FLabel2.Caption := '{#MyAppName} установлена на Ваш компьютер.' #13#13
'Нажмите «Завершить», чтобы выйти из программы установки.';
FLabel2.Transparent := True;
FLabel2.Parent := WizardForm.FinishedPage;
begin
PageNameLabel := TLabel.Create(WizardForm);
with PageNameLabel do
begin
Left := ScaleX(10);
Top := ScaleY(10);
Width := ScaleX(300);
Height := ScaleY(14);
AutoSize := False;
WordWrap := True;
Font.Style := [fsBold];
Transparent := True;
Parent := WizardForm.MainPanel;
end;

PageDescriptionLabel := TLabel.Create(WizardForm);
with PageDescriptionLabel do
begin
Left := ScaleX(15);
Top := ScaleY(25);
Width := ScaleX(400);
Height := ScaleY(30);
AutoSize := False;
WordWrap := True;
Transparent := True;
Parent := WizardForm.MainPanel;
end;

with WizardForm do
begin
PageNameLabel.Hide;
PageDescriptionLabel.Hide;
with MainPanel do
begin
with WizardSmallBitmapImage do
begin
Left := ScaleX(0);
Top := ScaleY(0);
Width := Mainpanel.Width;
Height := MainPanel.Height;
end;
end;
end;
end;
end;

procedure InitializeWizard2();
begin
ExtractTemporaryFile('logo.bmp');
LogoPanel := TPanel.Create(WizardForm);
with LogoPanel do
begin
Parent := WizardForm;
Left := ScaleX(5);
Top := ScaleY(320);
Width := ScaleX(165);
Height := ScaleY(35);
BevelOuter := bvNone;
end;

LogoImage := TBitmapImage.Create(WizardForm);
with LogoImage do
begin
Parent := LogoPanel;
Left := ScaleX(0);
Top := ScaleY(0);
AutoSize:=true;
ReplaceColor:=clFuchsia;
ReplaceWithColor:=clBtnFace;
Bitmap.LoadFromFile(ExpandConstant('{tmp}\logo.bmp'));
end;

LogoLabel := TLabel.Create(WizardForm);
with LogoLabel do
begin
Parent := LogoPanel;
Width := LogoPanel.Width;
Height := LogoPanel.Height;
Transparent:=True;
Cursor := crHand;
OnClick:=@LogoOnClick;
end;
end;

function InitializeSetup(): Boolean;
begin
	ExtractTemporaryFile('tiger_v2.cjstyles');
	LoadSkin(ExpandConstant('{tmp}\tiger_v2.cjstyles'), '');
	Result := True;
end;

procedure InitializeWizard();
begin
InitializeWizard1();
InitializeWizard2();
end;

procedure DeinitializeSetup();
begin
  ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
  UnloadSkin();
end;

procedure CurPageChanged(CurPageID: Integer);
begin
begin
PageNameLabel.Caption := WizardForm.PageNameLabel.Caption;
PageDescriptionLabel.Caption := WizardForm.PageDescriptionLabel.Caption;
end;
end;

[R.i.m.s.k.y.]

Типа HKCU32/HKCU64? это да, но ...Software\Wow6432Node\... оно не учитывает, тоже проверил »

оно учитывает, я-же говорю »

SEREGA!!! рассуди нас, скудоумных, как правильно?

[LinkOFF]

А можете еще сказать как сделать чтоб после у становки выкинуло на сайт автоматически(без подтверждения)