(C) ъБКГЕЧ пМЕЗ 1998-2000	рТПЗТБННЙТПЧБОЙЕ ОБ Delphi ПВНЕО ПРЩФПН
	уЙУФЕНБ | тЕЕУФТ | зТБЖЙЛБ | уЕФЙ | нХМШФЙНЕДЙБ | WEB | тБЪТБВПФЛБ_ЛПНРПОЕОФ | цЕМЕЪП | рТПЮЕЕ

	нХМШФЙНЕДЙБ тБВПФБ У НХМШФЙНЕДЙБ - ВБЪПЧЩЕ РТЙЕНЩ, ИЙФТПУФЙ, РТЙНЕТЩ

• лБЛ РПНЕУФЙФШ Ч ЙУРПМОСЕНЩК ЖБКМ wav-ЖБКМ, Й ЪБФЕН РТПЙЗТБФШ ЕЗП?

MYWAVE RCDATA LOADONCALL MyWave.wav

brcc32.exe MyWave.rc, РПМХЮБЕН MyWave.res.

{$R MyWave.res} // оЕ ЪБВХДЕН РПДЛМАЮЙФШ ОБЫ ТЕУХТУ
procedure RetrieveMyWave;
var
  hResource : THandle;
  pData     : Pointer;
begin
  hResource:=LoadResource( hInstance, FindResource(hInstance, 'MYWAVE', RT_RCDATA));
  try
    pData := LockResource(hResource);
    if pData = nil then raise Exception.Create('Cannot read MyWave');
    // ъДЕУШ pData ХЛБЪЩЧБЕФ ОБ MyWave
    // фЕРЕТШ НПЦОП, ОБРТЙНЕТ, РТПЙЗТБФШ ЕЗП (Win32):
    PlaySound('MyWave', 0, SND_NODEFAULT);
  finally
    FreeResource(hResource);
  end;
end;

ъБДБФШ ЧПРТПУ

оБЧЕТИ

    с УПЧЕФХА РПУЕФЙФШ Й ДТХЗЙЕ УБКФЩ, РПУЧСЭЕООЩЕ РТПЗТБННЙТПЧБОЙА. ьФП МЕЗЛП УДЕМБФШ РП ЛПМШГХ:

Algorithm project: лПМШГП УБКФПЧ, РПУЧСЭЕООЩИ РТПЗТБННЙТПЧБОЙА (РПДТПВОЕЕ П РТПЕЛФЕ WebRing...) [ рТЕДЩДХЭЙЕ 5 УБКФПЧ | рТЕДЩДХЫЙК | уМЕДХАЭЙК | уМЕДХАЭЙЕ 5 УБКФПЧ | чЩВТБФШ УБКФ УМХЮБКОЩН ПВТБЪПН | уРЙУПЛ ЧУЕИ УБКФПЧ ]