안녕 하세요?

BacTeria 박종민 입니다.

제가 질문하고 제가 답을 하네요.

WAVE화일 실행 화일에 내장하기...

알고나니 별거 아니네요. <-- 역시 사람이란 간사해...

다음은 핵심 소스입니다.

WAVE.RC의 내용(BRCC32.EXE를 이용 WAVE.RES로 만든다)
----------------------------------------
WAVE1   RCDATA  "1.WAV"
WAVE2   RCDATA  "2.WAV"
----------------------------------------

소스에 '{$R WAVE.RES}' 를 포함한다.

procedure TForm1.Button1Click(Sender: TObject);  // 버튼을 누를 때
var                                              // '1.wav' 화일을 연주한다.
  ResStream: TResourceStream;
  FSound: Pointer;
begin
  ResStream := TResourceStream.Create(Hinstance, 'WAVE1', RT_RCDATA);
  FSound := AllocMem(ResStream.Size);
  ResStream.Read(FSound^, ResStream.Size);
  PlaySound(FSound, 0, SND_ASYNC or SND_MEMORY or SND_NODEFAULT);
  ResStream.Free;
end;


이상입니다.

궁금 하신것 있으면 메일 주세요. 함께 연구(?)해 보는 것도 좋겠죠?

청주에서 종미니...