Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];

Вниз

Звук на спикер?   Найти похожие ветки 

 
zx   (2002-12-26 17:51) [0]

Как послать сигнал на спикер?
Всё время идёт на звук. карточку! : (


 
sancho   (2002-12-26 17:58) [1]

messagebeep($ffffff)


 
gsu   (2002-12-26 18:12) [2]

$ffffff (-:|~


 
zx   (2002-12-27 10:43) [3]

да я читал об этом в help.
однако звук всё равно идёт на звуковую карточку а не на спикер. : (


 
Programist21   (2002-12-27 12:00) [4]

Включи спикер :)


 
zx   (2002-12-27 12:15) [5]

> Programist21 (27.12.02 12:00)
можно конечно попробовать в bios"е отключить звуковую карточку. : (


 
zx   (2002-12-27 15:34) [6]

нашел если кому интересно:
Windows.Beep(1000,100);
правда говорят не работает под win9x.


 
Wizard_Ex   (2002-12-27 16:27) [7]

Реально работающий код // под любой ОС

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;



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

Форум: "Система";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.033 c
1-87483
San
2003-02-17 22:22
2003.02.27
MDI child из dll


1-87527
Борис_
2003-02-09 02:23
2003.02.27
Красиво писАть в Richedit e...


3-87311
Klim Samgin
2003-02-10 13:27
2003.02.27
SQL


1-87362
Victa
2003-02-15 22:42
2003.02.27
DCOM Events


7-87731
borya
2002-12-26 13:29
2003.02.27
Запускаю CreateProcess ом прогу как скрыть её окошко ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский