Irgendwie funzt bei mir nicht Messagebeep

[iLLe]

Zitat von Christian Seehase:

Moin iLLe,

Zitat von iLLe:

also wen ichd as programm starte kommt das hier "Das Fenster hat keine Bildlaufleisten" dann klick ich ok und wen ich dann knopf "beep" drücke passiert einfach nix.

Die ShowMessage Zeile gehört unmittelbar hinter die MessageBeep Zeile.

Wo hast Du die denn eingetragen?

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
messagebeep(Cardinal(-1));ShowMessage(SysErrorMessage(GetLastError));
ShowMessage(IntToStr(GetLastError));
end;

end.