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

Вниз

как включить спейкер программно?   Найти похожие ветки 

 
Масим   (2002-12-23 20:46) [0]

Как вкл динамик который стоит в корпусе и как его выкл через прогу?


 
Cobalt   (2002-12-23 20:58) [1]

Windows.Beep +F1


 
Масим   (2002-12-23 21:12) [2]

Нету не чего в поиске
ты мне не могбы не много растолковать и примерчик
описать?
Если не трудно


 
Cobalt   (2002-12-24 01:26) [3]

Напиши Windows.Beep и нажми F1
Ты, когда ставил Дельфи, надеюсь, хелп не удалял?(Shared Files -- MS SDK Help Files - при установке)
Всего 40 мегов - и ты на коне!


 
mukha   (2002-12-24 07:47) [4]

Выключить SystemParametersInfo(SPI_SETBEEP,0,nil,SPIF_UPDATEINIFILE);
Включить SystemParametersInfo(SPI_SETBEEP,1,nil,SPIF_UPDATEINIFILE);


 
GrayWolf   (2002-12-24 20:35) [5]

Я помнится когда начинал программировать, сделал для этого отдельный компонент. Он он не работал под WinNT системами...


 
Масим   (2002-12-25 20:21) [6]

Не пашет не песчит ни фига спейкер и на 98 проверял и ХР
нет может что не так ???
хотя копилирует нормально!


 
Dark One   (2002-12-25 20:48) [7]

to Масим
Вопрос не по делу...
Ты(или Вы) действительно такой умный или это "типа крутой язык супер программиста"А?


 
Morfein   (2002-12-25 20:54) [8]

2 Dark One : спокойно! %)))

2 Масим : Хы... товарисч... Вы вопрос ставить не умеете... а что значит "включить спикер?". Чтобы он чё-нить пропищал?


 
Масим   (2002-12-25 21:37) [9]

ну чтоб записчал!!!


 
Масим   (2002-12-25 21:43) [10]

чточнее писчал и не отсанавливался!


 
Anatoly Podgoretsky   (2002-12-25 21:49) [11]

Масяна тебе не сестра?


 
Масим   (2002-12-25 22:08) [12]

нет ну народ хваток флудить помогите советом!


 
Cobalt   (2002-12-26 01:06) [13]

Для начала, начни писать на русском языке, а то уже заколебало
писчал, спейкер, не чего, примерчик описать
Совет тебе дали (Cobalt © (23.12.02 20:58))
Разъяснения к совету - напиши в Дельфи (ну, где ты код пишешь), нажми клавишу F1. И откроется справка по этой функции, где нормальным английским языком написано, что делает эта функция, и что надо ей указывать в параметрах.


 
GrayWolf   (2002-12-26 09:35) [14]

Держи код... Опять же не пашет он под NT... И не попутай цифры - я как-то попутал, так система перезагрузилась быстрее, чем после нажатию клавиши на клаве...

// включение
asm
in al,$61
or al,3
out $61,al
end;

// выключение
asm
in al,$61
and al,$0fc
out $61,al
end;

Помню один дружок взял у меня этот код, точнее только часть на включение. А у него к спикеру подключены 50-ваттные колонки были... Я даже представлять себе не стал что у него там было - просто закатился в приступе смеха...


 
Масим   (2002-12-27 16:25) [15]

Работаети но только в 98 в хр не пашет может
поможете чтоб в хр тоже пахала а?


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

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

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;




 
масим   (2002-12-28 11:21) [17]

А нет ли кода поменьше мне главное чтоб работало под виндами 98 2000 и ХР НТ не обязательно...


 
Diamond Cat   (2002-12-29 04:12) [18]

не ну нормально, человеку кидают код на асме а он порсит покороче, странно что не сказал типа -а то программка по весу должна быть маленькая


 
BOBAKO   (2002-12-29 09:29) [19]

ну на делпхи маленькую не состряпаеешь :))
ну все таки ладно хотя код огромный!



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

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

Наверх





Память: 0.6 MB
Время: 0.045 c
1-87477
CAHbKA
2003-02-18 07:32
2003.02.27
работа с датами


3-87276
kerkonst
2003-02-08 21:09
2003.02.27
Вывод в xxxReport в несколько колонок


4-87753
MyNameIsVova
2003-01-14 13:10
2003.02.27
Аналог функции Format.


4-87736
R4D][
2003-01-08 16:57
2003.02.27
Как определить какой браузер установлен по умолчанию?


7-87727
Uka
2002-12-30 10:54
2003.02.27
Люди добрые!





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский