[diman_21Ru]

Dodakaedr, да и код ключа верный я могу конечно сменить на другой код и будет работать но тогда у меня почемуто прозрачность установщика портится

Dodakaedr, сравни этот скрипт он может как то повлеять на прозрачность установщика, заранее спасибо !
function FileVersion(const FilePath: String): String;
var
oFS: Variant;
begin
oFS:= CreateOleObject('Scripting.FileSystemObject');
try
Result:= oFS.GetFileVersion(FilePath);
except
end;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
Result := True;
case CurPageID of
wpSelectDir:
begin
if not FileExists(ExpandConstant('{app}\WorldOfTanks.exe')) then begin
MsgBox('Установка модов невозможна, так как по выбранному пути отсутствует клиент игры World of Tanks. Выберите правильный путь и продолжайте установку!', mbError, MB_OK);
Result := False;
end;
if FileExists(ExpandConstant('{app}')+'\WorldOfTanks.exe') then begin
if FileVersion(ExpandConstant('{app}')+'\WorldOfTanks.exe') < '' then begin
MsgBoxEx(WizardForm.Handle, 'Моды не будут работать на данной версии игры! Моды предназначены для версии патча', 'Моды не подходят у данному патчу World of Tanks', MB_OK or MB_ICONWARNING, 0, 0);
Result:= false;
end;end;
end;
end;
end;

[Dodakaedr]

сравни этот скрипт он может как то повлеять на прозрачность установщика »

Скиньте лучше скрипт.

[diman_21Ru]

Dodakaedr, Вообщем Уже дело не в Скрипте прозрачность теряю вроде как из за Windows 8.1 а на Windows 7 говорят норм вот два скрина :

[diman_21Ru]

Dodakaedr, Не знаешь как прозрачность вернуть если сталкивался с windows 8.1 с проблемами

[diman_21Ru]

Народ подскажите как исправить вот это посмотрите оба скрина первый запускается на Windows 7 второй на windows 8.1

[Tco 03]

Всем привет. Столкнулся с проблемой… Нужно свернуть инсталлятор через секцию код, нажав на определённую кнопку. Знаю такой код: SendMessage(WizardForm.Handle, WM_SYSCOMMAND, 61472, 0); всё работает прекрасно, но он мне не подходит. Дело в том, что этот код использует WizardForm.Handle и нажав на кнопку свернуть инсталлятор, перестаёт работать другая «плюшка». Подскажите, пожалуйста, есть ли какая-нибудь другая альтернатива?

[sergey3695]

diman_21Ru,

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

Код:

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

[Files]                               
Source: "BGImage.bmp"; Flags: dontcopy solidbreak

[code ]
var
  BGBitmapImage: TBitmapImage;

procedure InitializeWizard();
var
  Panel: TPanel;
begin
  ExtractTemporaryFile('BGImage.bmp');

  BGBitmapImage := TBitmapImage.Create(WizardForm);
  BGBitmapImage.Parent := WizardForm;
  BGBitmapImage.Align := alClient;
  BGBitmapImage.SendToBack;

	WizardForm.OuterNotebook.Hide;
	WizardForm.NextButton.Hide;

  BGBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\BGImage.bmp'))

  Panel := TPanel.Create(WizardForm);
with Panel do begin
  Parent := WizardForm;
  SetBounds(ScaleX(33), ScaleY(12), ScaleX(321), WizardForm.InnerPage.Height - ScaleY(43));
//  BevelInner := bvNone;
//  BevelOuter:= bvNone;
//  BorderStyle := bsNone;
  BorderStyle := bsSingle;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  WizardForm.Caption := 'Example_';
  WizardForm.NextButton.Hide;
  WizardForm.CancelButton.Caption := 'Close';
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result := False;
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm := False;
end;

8.1 Профессианальная. Все работает. Смотрите у ся в коде что-нибудь, так на глазок врят ли че сказать можно.
Tco 03, другая "плюшка". и гадай что там не работает тогда.

[diman_21Ru]

sergey3695, Скрипт кину сможете помоч

[sergey3695]

diman_21Ru, Ну если у меня все будет работать, то нет. другой машинки для теста нету (на 8.1).

[diman_21Ru]

sergey3695, Все уже понял ошибку надо было комплимировать на Unicode а не ANSI моя ошибка )

Dodakaedr, Все уже понял ошибку надо было комплимировать на Unicode а не ANSI моя ошибка )