Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Звук на спикер? [D6, Win2k]

zx © (2002-12-26 17:51:00)
Как послать сигнал на спикер?
Всё время идёт на звук. карточку! : (

Wizard_Ex (2002-12-27 16:27:00) [1]
Реально работающий код // под любой ОС

procedure Delay(msecs : Longint);
var
FirstTick:Longint;
begin
FirstTick:=GetTickCount;
repeat
Application.ProcessMessages;
until GetTickCount - FirstTick >= msecs;
end;

function IsNT : boolean;
begin
case Win32Platform of
VER_PLATFORM_WIN32_NT: Result:=True;
else Result:=False;
end;
end;
procedure myBeep(Freq, Duration: Integer);
begin
if IsNT then begin windows.Beep(Freq, Duration); exit end;

asm
IN AL, 61h
OR AL,3
OUT 61h, AL

MOV AL, 182
OUT 43h, AL

sub edx, edx
mov eax, 1190000
xor ecx, ecx
mov ecx, Freq
div ecx
OUT 42h, AL
MOV AL, AH
OUT 42h, AL
end;
Delay(Duration);
asm
IN AL, 61h
AND AL, 252
OUT 61h, AL
end;
end;

zx (2002-12-27 15:34:00) [2]
нашел если кому интересно:
Windows.Beep(1000,100);
правда говорят не работает под win9x.

zx (2002-12-27 12:15:00) [3]
> Programist21 (27.12.02 12:00)
можно конечно попробовать в bios"е отключить звуковую карточку. : (

Programist21 (2002-12-27 12:00:00) [4]
Включи спикер :)

zx (2002-12-27 10:43:00) [5]
да я читал об этом в help.
однако звук всё равно идёт на звуковую карточку а не на спикер. : (

gsu (2002-12-26 18:12:00) [6]
$ffffff (-:|~

sancho (2002-12-26 17:58:00) [7]
messagebeep($ffffff)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »