[habib2302]

подскажите мне как сделать чтобы инсталлятор создавал ветку реестра с ковычками.т.е
было так C:\Program Files (x86)\Universal Share Downloader\USDownloader.exe
а стало так "C:\Program Files (x86)\Universal Share Downloader\USDownloader.exe"

[saurn]

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

Код:

Root: HKLM; Subkey: SOFTWARE\My Program; ValueName: Path; ValueType: String; ValueData: """{app}"""; Flags: uninsdeletekey;

[Crazy Noise]

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

Я имел ввиду [Run] привязать к

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

Код:

begin
  NewButton1 := TNewButton.Create(WizardForm);
  with NewButton1 do
  begin
    Parent := WizardForm;
    Left := ScaleX(16);
    Top := ScaleY(327);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'NewButton1';
    OnClick := @NewButton1Click;
  end;

возможно ли?

[Dinvin4ester]

А мне не поможете ?

[habib2302]

помогите решить одну проблему.короче. есть прога Universal Share Downloader 1.3.5.9 и как сделать чтобы программа запускалась вместе с windows свернуто

[saurn]

habib2302,

Внимание! Данная тема предназначена только для обсуждения написания скриптов ! »

-----------------------------------------------------

Эффект "растворения" в слайдшоу еще можно как-то прописать ? »

Эффекты настраиваются в процедуре ShowImage

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

Код:

ShowImage(piclist.strings[CurrentPicture - 1], 1);
Последняя циферка, выделенная жирным, в строке номер эффекта перехода.

Список возможных значений:

1 - Случайный эффект.
2 - Alpha Blend.
3 - Blocks.
4 - Circle.
5 - Diagonal.
6 - Fuse.
7 - InterLaced.
8 - Page.
9 - Radial.
10 - Roll.
11 - Waterfall.
12 - Wipe. 

Меняйте номера эффектов в процедуре и выбирайте, какой вам понравится.

а то у меня не русифицирует,но переписывает файлы куда надо »

Ну, если все нужные файлы переписываются, а эффекта все равно ноль смотрите в сторону игры или русика. Вполне вероятно, что простой замены файлов недостаточно. Большинство игры хранят настройки языка в реестре или конфигурационных файлах. В скрипте, вроде, ошибок нет.

[Johny777]

Crazy Noise, saurn,

Меняйте номера эффектов в процедуре и выбирайте, какой вам понравится. »

можно ещё и рандомом ShowImage(piclist.strings[CurrentPicture - 1], Random(12)+1);


Кстати вот имплементация из делфи функции RandG() на основе нормального распределения по Гауссу

Работает она медленнее (особенно в инно), но разброс в диапазоне намного "случайнее". Кому надо забирайте!

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program
InfoBeforeFile=compiler:license.txt
DisableWelcomePage=yes



[Code  ]
function Rand(): Extended;
begin
    Result := Random(MAXINT)/MAXINT;
end;

function Sqr(const E: Extended): Extended;
begin
    Result := E*E;
end;

procedure Inc(var Int: Integer);
begin
    Int := Int+1;
end;

function Ln(const X: Extended): Extended;
var
    tek, rez, b: Extended;
    i : Longint;
begin
    rez := 0;
    b := X-1;
    i := 1;
    tek := b;
    while ABS(tek) >= 0.00000001 do
    begin
        rez := rez + tek;
        Inc(i);
        b := -b*(x-1);
        tek := b/i;
    end;
    Result := rez;
end;

//Функция генерирует случайное число с отклонением по Гауссу от среднего значения Mean. Наибольшая часть возвращаемых значений будет лежать в диапазоне Mean-StdDev ... Mean+StdDev.
function RandG(const Mean, StdDev: Extended): Extended;
{ Marsaglia-Bray algorithm }
var
    U1, S2: Extended;
begin
    repeat
        U1 := 2*Rand() - 1;
        S2 := Sqr(U1) + Sqr(2*Rand()-1);
    until S2 < 1;
    Result := Sqrt(-2*Ln(S2)/S2) * U1 * StdDev + Mean;
end;


function RandEx(const Range: Extended): Extended;   //X := RandG(100,10); { 90<=X<=110 }
begin
    
    Result := Abs(RandG(Range/2, Range/2));
    if Result > Range then
    repeat
         Result := Result-1;
    until Result <= Range;
end;



procedure InitializeWizard();
var
    i: Integer;
begin
    WizardForm.InfoBeforeMemo.Clear;
    WizardForm.InfoBeforeMemo.Text := 'RandEx' + #9#9#9 + 'Random';
    Randomize();
    for i := 0 to 20 do WizardForm.InfoBeforeMemo.Text := WizardForm.InfoBeforeMemo.Text + #13#10 + IntToStr(Round(RandEx(12))) + #9#9#9 + IntToStr(Random(12)+1);
end;

[habib2302]

как сделать фон BeveledLabel прозрачным

[saurn]

как сделать фон BeveledLabel »

Это TNewStaticText у этих контролов есть свойство прозрачности в юникодовой версии Inno, в Ansi версии нет.

[insombia]

http://rghost.ru/47250682 при наведении на таксбар видно черную полосу,как её убрать?
http://i48.fastpic.ru/big/2013/0706/...a6c6d72872.jpg