= SU.WIN95.PROG ===========================================================New=
Msg  :  188     [1-295]                                                         
From : Stas Malinovski                     22-May-01  06:28:41  2:5020/400
To   : Konstantin Evdokimov                                     2:5056/16.71
Subj : Re: Пpогpаммиpование спикеpа
=================================================================SU.WIN95.PROG=
From: Stas Malinovski <stasm@tsl.ru>
Reply-To: Stas Malinovski <stasm@tsl.ru>

Hello Konstantin,


KE> Hаpод, скажите плиз, как пpогpаммиpовать спикеp под виндой.
KE> Есть ли какие-нить АПИвские фyнкции, или жо как в досе - все чеpез
KE> задницy (то есть чеpез поpты).

procedure ExBeep(Freq, Duration: Word);
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
    Beep(Freq,Duration)
  else
    begin
      asm
        movzx  ecx, Freq
        mov    eax, 1193180
        sub    edx, edx
        div    ecx
        mov    ecx, eax
        mov    al, 182
        out    43h, al
        mov    al, cl
        out    42h, al
        mov    al, ch
        out    42h, al
        in     al, 61h
        or     al, 3
        out    61h, al
      end;
      Sleep(Duration);
      asm
        in     al, 61h
        and    al, 0fch
        out    61h, al
      end;
    end;
end;




-- 
Best regards,
 Stas Malinovski.           mailto:stasm@tsl.ru




Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
 * Origin: Talk.Ru (2:5020/400)