WINDOWS.BEEP für WINDOWS 7

[hathor]

Zitat von turboPASCAL:

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; ?