MessageBeep

← →
Manulo © (2002-09-29 15:56) [0]

Теоретически, эта процедура включает системный динамик... А вот практически как то не получаиться... может быть, кто нибудь заставил её работать? Или как ещё можно из под делфи включить динамик?

← →
PaRL © (2002-09-29 18:31) [1]

Попробуй Beep;

← →
Dot © (2002-09-29 19:13) [2]

procedure BPSnd(Frequency, Duration: Integer);
asm
cmp Win32Platform, VER_PLATFORM_WIN32_NT
jne @@9X
push edx
push eax
call Windows.Beep
ret
@@9X:
push ebx
push edx
mov bx, ax
mov ax, 34DDh
mov dx, 0012h
cmp dx, bx
jnc @@2
div bx
mov bx, ax
in al, 61h
test al, 3
jnz @@1
or al, 3
out 61h, al
mov al, 0B6h
out 43h, al
@@1:
mov al, bl
out 42h, al
mov al, bh
out 42h, al
call Windows.Sleep
in al, 61h
and al, 0FCh
out 61h, al
@@2:
pop ebx
end;

← →
Manulo © (2002-10-03 19:12) [3]

Блин! Вот пасибки!!! Вот это круто!

← →
Sharik_212 (2002-10-03 20:34) [4]

Попробуй еще так
procedure sound(frequency:word); label stop,j1; begin asm mov bx, frequency mov ax, 34DDh mov dx, 0012h cmp dx, bx jnb stop div bx mov bx, ax in al, 61h test al, 3 jne j1 or al, 3 out 61h, al mov al, 0B6h out 43h, al j1: mov al, bl out 42h, al mov al, bh out 42h, al stop: end;//asm end; procedure nosound; begin asm in al,61H and al, 0fcH out 61H, al end; end;

Если касаться только MessageBeep, то как сказано в хелпе:
0xFFFFFFFF Standard beep using the computer speaker

MessageBeep Найти похожие ветки