Советы по Delphi

кровмаркет          

Можно ли сделать так, чтобы в


В файл MyWave.rc пишешь: MyWave RCDATA LOADONCALL MyWave.wav brcc32.exe MyWave.rc, получаешь MyWave.res.

В своей программе пишешь:

    {$R MyWave.res}

Все!

Предупреждая следующий твой вопрос "а как прочитать wave-файл из исполняемого файла?"



    procedure RetrieveMyWave;
var
hResource: THandle; pData: Pointer; begin
hResource:=LoadResource( hInstance, FindResource(hInstance, 'MyWave', RT_RCDA TA));
try pData := LockResource(hResource);
if pData = nil then raise Exception.Create('Cannot read MyWave');
// Здесь pData указывает на MyWave // Теперь можно, например, проиграть его (Win32): PlaySound('MyWave', 0, SND_MEMORY); finally FreeResource(hResource); end; end;

Nomadic [001554]



Содержание раздела