copretns wrote:

> 내 질문에 대한 답변은 왜 안해주이소..흑흑...--;

> 3개씩이나 올렸는네...쩝...

> 제발 부디...@.@.....

>

> 여기두...답변안해주는 사이트가 되지않기를...흘흘...

> 너무 섭행...

>

> ps. copretns라는 아이디루 찾아보면 답변이 안되어있는게

> 3개정도 안올꺼에염...흑흑--;





API에서 상수? 하는 질문 맞습니까?

음.. 맞으면 좋겠군요..

그런데 그 질문을 보니 SystemInfoParameter(..)라고 함수명이

써 있던데? 그런 함수명이 있나요?

SystemParametersInfo를 말씀하신게 아닌가요?

만약 그렇다면 아래 쓰는 예제를 간단히 올리죠.

윈도우 경고음(Beep)소리를 제어하는 예제입니다.



그럼.. 즐거운 프로그래밍 되시길~





procedure TForm1.Button1Click(Sender: TObject);

begin

SystemParametersInfo(SPI_SETBEEP, 1, Pchar(0), 0); //Beeper ON

Label1.Caption := 'Beep On';

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

SystemParametersInfo(SPI_SETBEEP, 0, Pchar(0), 0); //Beeper OFF

Label1.Caption := 'Beep Off';



end;



procedure TForm1.Button3Click(Sender: TObject);

begin

MessageBeep(MB_OK);

end;