Wäre es so:
Delphi-Quellcode:
function Beep(Freq, Duration: cardinal): Bool;
begin
Result := WindowsBeep(Freq, Duration) = S_OK;
sleep(0);
end;
nicht besser ?
Das kann man zusätzlich definieren.
Aber bei meinen vorhandenen Sourcecodes muss ich nur den Punkt entfernen in "Windows.Beep" und eine
Unit WBEEP einfügen.
Man könnte am Ende gleich das erforderliche
Sleep(50); einfügen, dann erspart man sich das zwischen 2 Funktionsaufrufen.
Wenn
Freq oder Duration =0, warum nicht gleich
Exit; ?