Files
befpc/begui/begui/imports/pascal/examples/testapp5.pas

13 lines
122 B
ObjectPascal

program testapp;
uses
beutils;
var
i: status_t;
begin
i := beep;
i := system_beep(NEWEMAIL_SOUND);
end.