Текущий архив: 2003.01.16;
Скачать: CL | DM;

Вниз

как работать с PC Speaker`om?   Найти похожие ветки 

← →
Tuman   (2002-11-04 03:59) [0]

сабж собственно

---

← →
DC-AC   (2002-11-04 07:48) [1]

Через порт $0061 вроде бы... Примеры встречал, кстати, под какую ось нужно работать ?

---

← →
SottNick   (2002-11-04 08:52) [2]

включаем, выключаем
program PCSswitcher;

uses
windows, SysUtils;

var
bool:boolean;
s:string[5];
begin
s:=UpperCase(paramstr(1));
if s=""
then
begin
SyStemParametersInfo(SPI_GETBEEP,1,@bool,SPIF_UPDATEINIFILE);
if bool
then
begin
SyStemParametersInfo(SPI_SETBEEP,0,nil,SPIF_UPDATEINIFILE);
MessageBox(0,"PC Speaker - OFF","PC Speaker Switcher",MB_ok+mb_IconInformation);
end
else
begin
SyStemParametersInfo(SPI_SETBEEP,1,nil,SPIF_UPDATEINIFILE);
MessageBox(0,"PC Speaker - ON","PC Speaker Switcher",MB_ok+mb_IconInformation);
end;
end
else
if pos("OFF",s)<>0
then
SyStemParametersInfo(SPI_SETBEEP,0,nil,SPIF_UPDATEINIFILE)
else
if pos("ON",s)<>0
then
SyStemParametersInfo(SPI_SETBEEP,1,nil,SPIF_UPDATEINIFILE)
else
MessageBox(0,"Use command line keys:"+#13
+" /off - for Speaker OFF"+#13
+" /on - for Speaker ON"+#13
+" /? - for this HELP"
,"PC Speaker Switcher",MB_ok+mb_IconInformation);
end.

пиликаем
program PCSTest;

uses
windows;
var
i:byte;
begin
for i:=1 to 10 do
begin
MessageBeep($FFFFFFFF);
sleep(100);
end;
end.


остальным не интересовался

---

← →
Viktor Kushnir   (2002-11-04 08:58) [3]

А вот это когда-то пролетало в Ru.Delphi, только я это не испытовал.
procedure TForm1.mybeep(Tone: Word; Delay: Integer);
begin
asm
mov al, 0b6H
out 43H, al
mov ax,Tone
out 42h,al
ror ax,8
out 42h,al
in al, 61H
or al, 03H
out 61H, al
end;
sleep(Delay);
asm
in al, 61H
and al, 0fcH
out 61H, al
end;
end;

---

← →
Anatoly Podgoretsky   (2002-11-04 09:03) [4]

Viktor Kushnir © (04.11.02 08:58) - Tuman (04.11.02 03:59)
Это устаревшая версия, сейчас в том ЧаВо опубликована, новая универсальная и с исправленной ошибкой.

---

Страницы: 1 вся ветка

Текущий архив: 2003.01.16;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.008 c