13 lines
122 B
ObjectPascal
13 lines
122 B
ObjectPascal
program testapp;
|
|
|
|
uses
|
|
beutils;
|
|
|
|
var
|
|
i: status_t;
|
|
begin
|
|
|
|
i := beep;
|
|
|
|
i := system_beep(NEWEMAIL_SOUND);
|
|
end. |