[insombia]

ilya_klimovich какую проблему?

[ilya_klimovich]

insombia на прошлой страничке описывал

[insombia]

ilya_klimovich тебе же сказали юзай packers show

[ilya_klimovich]

insombia не не это, просто я не могу понять почему при закоментировании define records распаковываются все файлы, а при раскоментировании только часть

[Nightwishh]

Ребят, а можно ли как- нибудь подключить звуковые эффекты для кнопок, типа Click.wav и WFEnter.wav, только без Ботвы. Через BASS.dll например, или как-то по-другому. Спасибо!

[insombia]

ilya_klimovich справку к исдону читай

[ilya_klimovich]

insombia читал, все делаю в точности как там написано и вот такая трабла

[saurn]

Доброе время суток. дайте мне пожалуйста полный скрипт на распаковку .arc архивов, учитывая выбранные компоненты. »

Собственно, ISDone

у меня есть версия 1.11 »

Ага, она самая. Это самая последняя.

[valyok666]

Ребят, а можно ли как- нибудь подключить звуковые эффекты для кнопок, типа Click.wav и WFEnter.wav, только без Ботвы. Через BASS.dll например, или как-то по-другому. Спасибо! »

В примерах botva есть примеры вроде

[Johny777]

Nightwishh, http://krinkels.org/showpost.php?p=12678&postcount=667

===========================================================================

saurn, Касательно определения звуковой карты через bass.dll попробуй, вот пример возвращает список аудиокарт:

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

Код:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp

[Files]
Source: bass.dll; Flags: dontcopy


[code  ]
type
    BASS_DEVICEINFO = record
        name: String;    // description
        driver: String;  // driver
        flags: DWORD;
    end;

function BASS_Stop: BOOL; external 'BASS_Stop@files:bass.dll stdcall';
function BASS_Free: BOOL; external 'BASS_Free@files:bass.dll stdcall';
function BASS_GetDeviceInfo(device: DWORD; var info: BASS_DEVICEINFO): BOOL; external 'BASS_GetDeviceInfo@files:bass.dll stdcall';
function waveOutGetNumDevs: UINT; external 'waveOutGetNumDevs@winmm.dll stdcall';
function BASS_Init(device: Longint; freq, flags: DWORD; win: HWND; clsid: Longint): BOOL; external 'BASS_Init@files:bass.dll stdcall';

function GetSoundDevices(): array of String;
var
    di: BASS_DEVICEINFO;
    i, Len: Integer;
begin
    BASS_Init(-1, 44100, 0, 0, 0);
    try
        for i := 1 to waveOutGetNumDevs do if BASS_GetDeviceInfo(i, di) then
        begin
            Len := GetArrayLength(Result);
            SetArrayLength(Result, Len+1);
            Result[Len] := di.name;
        end;
    finally
        BASS_Stop;
        BASS_Free;
    end;
end;


procedure InitializeWizard();
var
    TestArray: array of String;
    i: Integer;
begin
    TestArray := GetSoundDevices();
    for i := 0 to GetArrayLength(TestArray)-1 do MsgBox(TestArray[i], mbInformation, MB_OK);
end;