[Gareth]

Как уже давно многим известно, микрософты убили beep.
Можно ли как нибудь извратится, дабы заставить спикер пикать?
сразу скажу, спикер есть, он рабочий.
при включении пк издается бип.
Но при попытке бипнуть в delphi через спикер, звук идёт в наушники или колонки.
винда 10 х64
delphi rio

[DenSarych]

Можно ли как нибудь извратится, дабы заставить спикер пикать?

Можно:
1. Установить или написать свой, дополнительный драйвер спикера и использовать его как в XP. Например, такой как beepxp.sys.
2. Либо, напрямую запрограммировать порты ввода/вывода. Например, через библиотеку inpout32.dll/inpout64.dll.

[Vayrus]

Код:

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;

компоненты