[saurn]

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

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

[studentvnau@vk]

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

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

[Larkod]

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

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

case TNewCheckListBox(Sender).ItemCaption[Index] of
'1. Прицел как у 40_tonn': UndefPic := '40_tonn.bmp';
else

[Tco 03]

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

[kotyarko@fb]

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

SHFileOperation (ведь ты брал с корейки), нужно изменять для Юникода.
А если погуглить - спокойно можно найти ответ за секунду. http://krinkels.org/threads/shfileop...-unicode.2221/

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

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

'40_tonn.bmp' »

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

[kotyarko@fb]

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

По примеру получения буквы каталога от Johny777 (http://forum.oszone.net/post-1998107-1061.html).

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

Код:

[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]

kotyarko@fb, ты не понял. Чтобы было сразу 2 изображение ну типа этого '1. Прицел как у 40_tonn': UndefPic := '40_tonn.bmp' UndefPic := '40_tonn.bmp';

[kotyarko@fb]

ты не понял »

Как раз я всё понял. Ты хочешь, чтобы при наведении на компонент отображались два изображения. Так вот, я говорю о том, чтобы эти два изображения объединить в одно, и отображать его.
Если даже и выведутся два изображения (без изменения функции) - одно будет накладываться на второе (т.к. начальная точка - курсор). Без изменения самой функции, которая выводит изображение, вариантов больше нет.

[saurn]

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

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

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

Код:

[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;

[diman_21Ru]

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

#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";

[code]
procedure InitializeWizard();
begin
IndexLast := -1;

pSoundMemory_A := GetResourceSoundAddr('_IS_SNDA');
pSoundMemory_B := GetResourceSoundAddr('_IS_SNDB');

WizardForm.ComponentsList.OnClickCheck := @ComponentsOnClickCheck;
end;