Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.07;
Скачать: CL | DM;

Вниз

Как заставить встроеный динамик пищать   Найти похожие ветки 

 
OlegM ©   (2003-06-25 09:35) [0]

Привет всем!
Помню где-то видел но сейчас найти не могу, подскажите кто знает как это сделать.


 
McSimm2   (2003-06-25 09:36) [1]

beep ??


 
McSimm2   (2003-06-25 09:38) [2]

Млин - динамик .... тады так :

Procedure Sound(Duration: Integer; Freq: Word);
var
Ver: TOsVersionInfo;
begin
Ver.dwOSVersionInfoSize := SizeOf(Ver);
GetVersionEx(Ver);
if ver.dwPlatformId = VER_PLATFORM_WIN32_NT then
Windows.Beep(Duration, Freq)
else begin
asm
mov al,0b6H
out 43H,al
mov ax,Freq
out 42h,al
ror ax,8
out 42h,al
in al,61H
or al,03H
out 61H,al
end;
sleep(Duration);
asm
in al,61H
and al,0fcH
out 61H,al
end;
end;
end;



 
Lord Warlock ©   (2003-06-25 09:39) [3]

Он не всегда работает


 
McSimm2   (2003-06-25 09:42) [4]

зависит от платформы


 
OlegM ©   (2003-06-25 09:46) [5]

Процедурка работает в Win2000, а не скажите в 98 потянет а то пока негде проверить


 
McSimm2   (2003-06-25 09:49) [6]

да


 
OlegM ©   (2003-06-25 09:52) [7]

Спасибочки


 
delphimun   (2003-06-25 10:18) [8]

Оно и в Досе потянет



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

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

Наверх




Память: 0.48 MB
Время: 0.013 c
9-19942
[Baradoo]
2003-01-21 21:26
2003.07.07
Небольшая полезная тема (для знатаков OpenGl)


6-20177
stas_a
2003-04-30 10:33
2003.07.07
Модемное соединение


14-20201
Феликс
2003-06-17 17:53
2003.07.07
22 июня. Льюис VS Кличко.


14-20310
frack
2003-06-21 09:42
2003.07.07
Работа с TreeView


14-20227
antoniz
2003-06-19 12:03
2003.07.07
Как в поле BLOB сохранить файл формата Excel ...