Скрипты Inno Setup. Помощь и советы [часть 7]

[Larkod]

Цитата kotyarko@fb:



уже всем известно, как это применяется..

Скрипты Inno Setup. Помощь и советы [часть 7]

Применять можно по разному. А вот на счет ненужности результата - это, как посмотреть. Если та же MoveDir(...) не отработает по какой-либо причине, инсталлятор даже не пикнет, а пользователь останется без обещанного бекапа не подозревая об этом.

[Larkod]

Цитата saurn:



Если та же MoveDir(...) не отработает по какой-либо причине, инсталлятор даже не пикнет, а пользователь останется без обещанного бекапа не подозревая об этом.

Скрипты Inno Setup. Помощь и советы [часть 7]

Было дело на юникоде, перешёл на анси

[Larkod]

Dodakaedr, я просто новичок, а справку я читал. Мне ориентироваться легче просто это пока черновик идет. А если я распихаю все по порядку, то мне тяжелее будет ошибки искать. Спасибо большое

[Dodakaedr]

Всем привет.

Необходимо в .ini-файл записать только букву диска, куда была установлена программа. Как это можно реализовать, подскажите, пожалуйста.

[Larkod]

Цитата studentvnau@vk:



Было дело на юникоде, перешёл на анси

Скрипты Inno Setup. Помощь и советы [часть 7]

SHFileOperation (ведь ты брал с корейки), нужно изменять для Юникода.

А если погуглить - спокойно можно найти ответ за секунду.

http://krinkels.org/threads/shfileop...-unicode.2221/

Цитата Larkod:



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

Скрипты Inno Setup. Помощь и советы [часть 7]

Например, отредактировать это:
Цитата Larkod:



'40_tonn.bmp'

Скрипты Inno Setup. Помощь и советы [часть 7]

изображение.

[Dodakaedr]

Цитата Tco 03:



Необходимо в .ini-файл записать только букву диска, куда была установлена программа. Как это можно реализовать, подскажите, пожалуйста.

Скрипты Inno Setup. Помощь и советы [часть 7]

По примеру получения буквы каталога от Johny777 (

Скрипты Inno Setup. Помощь и советы [часть 5]

).



Скрытый текст

[spoiler]Код:

[/spoiler]

Код: Выделить всё

[INI]
Filename: "{app}\Directory.ini"; Section: "Letter"; Key: "Letter1"; String: {code:GetDirectoryLetter}; Flags: uninsdeleteentry
[*Code]
function GetFolderSize(FilePath: string): string;
var
  oFS: Variant;
begin
  oFS := CreateOleObject('Scripting.FileSystemObject');
  Result := oFS.GetDriveName(FilePath);
end;
Function GetDirectoryLetter(Where: String): String;
begin
 Where := ExpandConstant('{app}');
 Result := GetFolderSize(Where);
end;

[Larkod]

Уважаемый Dodakaedr, не подскажите для чайника более подробно, что надо сделать



Спасибо уже не надо чайник сам разобрался

[saurn]

Цитата Larkod:



ты не понял

Скрипты Inno Setup. Помощь и советы [часть 7]

Как раз я всё понял. Ты хочешь, чтобы при наведении на компонент отображались два изображения. Так вот, я говорю о том, чтобы эти два изображения объединить в одно, и отображать его.

Если даже и выведутся два изображения (без изменения функции) - одно будет накладываться на второе (т.к. начальная точка - курсор). Без изменения самой функции, которая выводит изображение, вариантов больше нет.

[studentvnau@vk]

Цитата studentvnau@vk:



Было дело на юникоде, перешёл на анси

Скрипты Inno Setup. Помощь и советы [часть 7]

String меняйте на AnsiString, PChar на PAnsiChar

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


Цитата Tco 03:



Необходимо в .ini-файл записать только букву диска, куда была установлена программа.

Скрипты Inno Setup. Помощь и советы [часть 7]

Код:

Код: Выделить всё

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
[Code]
procedure CurStepChanged(CurStep: TSetupStep);
begin
    case CurStep of
        ssPostInstall: SetIniString( 'Setings', 'DriveLetter', ExtractFileDrive( ExpandConstant( '{app}' ) ), ExpandConstant( '{app}\config.ini' ) );
    end;
end;

[studentvnau@vk]

В скрипте есть функция По нажатию на компонент выходить соответствующий звук но при нажатие на другой компонент звук проигрывается и там.



#include "Modules\sound modul.iss"



[Setup]

AppName=Sound

AppVerName=1.0

DefaultDirName={pf}\Sound

OutputDir=Output



RawDataResource=SndA:bugreporter_succeeded.wav |SndB:buttonclickreleaseo.WAV



[Components]

Name: "main"; Description: "Main Files";

Name: "main\a"; Description: "A Files";

Name: "main\b"; Description: "B Files";

Код: Выделить всё

procedure InitializeWizard();

begin

 IndexLast := -1;



 pSoundMemory_A := GetResourceSoundAddr('_IS_SNDA');

 pSoundMemory_B := GetResourceSoundAddr('_IS_SNDB');

    

 WizardForm.ComponentsList.OnClickCheck := @ComponentsOnClickCheck;

end;