Главная страница
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.019 c
3-20002
Cranium
2003-06-13 14:42
2003.07.07
Можно ли получить список таблиц открытых пользователем ...


7-20324
Alta
2003-04-25 02:23
2003.07.07
добавить юзеров на win2000


1-20051
Kostya
2003-06-25 11:27
2003.07.07
как получить число Integer зная его два Byte


14-20237
McSimm
2003-06-19 15:07
2003.07.07
Московская пирушка 6 июня. Долгожданный отчет :)


1-20118
edicon
2003-06-24 17:29
2003.07.07
DatetimePicker