Как издать звук через beeper?

← →
Slonco (2004-10-14 12:22) [0]

Есть функция Beep WinAPI, но Дельфи путает ее со своей функцией, которая вызывает MessageBeep WinAPI.
Есть код на Си - помогите перевести на Дельфи.

using System;
using System.Runtime.InteropServices;

namespace Basic
{
/// <summary>
/// Summary description for beep.
/// </summary>
public class beeper
{
[DllImport("kernel32.dll")]
public static extern int Beep(int nFreq, int nDuration );

public beeper()
{
//
// TODO: Add constructor logic here
//
Beep(600,100);
}
}
}

← →
VMcL © (2004-10-14 12:34) [1]

Windows.Beep(600, 100);
?

← →
Дмитрий Ботвин (2004-10-14 12:35) [2]

На на asm:

procedure TForm1.mybeep(Tone: Word; Delay: Integer);
begin
asm
mov al, 0b6H
out 43H, al
mov ax,Tone
out 42h,al
ror ax,8
out 42h,al
in al, 61H
or al, 03H
out 61H, al
end;
sleep(Delay);
asm
in al, 61H
and al, 0fcH
out 61H, al
end;
end;

← →
VMcL © (2004-10-14 12:43) [3]

>>Дмитрий Ботвин (14.10.04 12:35) [2]

На Win2K? Ню-ню.

← →
Slonco (2004-10-14 12:46) [4]

Ну-ка, щас забью...
Ага, вот такой эррор дает на вот этой строке out 43H, al

Project AlerterClient.exe raised exception class EPrivilege with message "Privileged instruction".

← →
Дмитрий Ботвин (2004-10-14 12:47) [5]

Тьфу, ё...!!! Не посмотрел на указанную ОС :-)))

← →
Slonco (2004-10-14 12:53) [6]

О! Windows.Beep(600, 100); помогло!
Большое спасибо :)

Как издать звук через beeper? Найти похожие ветки