Application.Messagebox erzeugt Standardton

[hathor]

Man darf natürlich das Einschalten nicht vergessen:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//Beep On
SystemParametersInfo(SPI_SETBEEP, Word(true), nil, 0);
end;