Application.Messagebox erzeugt Standardton

[hathor]

Dann muss man freundlicherweise beim Programmstart den Zustand abfragen und bei Close wiederherstellen.

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var isON : Integer;
begin
isON:=0;
SystemParametersInfo(SPI_GETBEEP,0,isON,0);
Label1.caption:= IntToStr(isON); //0 = off, 1 = on
end;