Interner Lautsprecher

**delphi-anfänger**

Hallo erstmal!
Ihr kennt doch alle ddie internen lautsprecher eines pc´s, die nur 'piepen'.

ich lasse ihn jetzt mal zum beispiel mit

Code:

windows.beep(4000,2000);

für 2 sekunden mit der frequenz 400hz piepen. wie könnte ich denn das gepiepse unterbrechen?

Bis bald

**c113plpbr**

Vielleicht könntest du das in einen Thread legen, und diesen dann 'gewaltsam' beenden ... vielleicht geht das ja ...

ciao, Philipp

**Orbmu2k**

oder so

Delphi-Quellcode:

			for x := 1 to 20 do

begin

  Application.ProcessMessages;

  if brk then Exit;

  windows.beep(4000,100);

end;

und dann mit
brk := True abbrechen

**delphi-anfänger**

ok danke funktioniert!

delphi-anfänger Registriert seit: 19. Dez 2003 7 Beiträge	#1 Interner Lautsprecher 2. Dez 2004, 15:42 Hallo erstmal! Ihr kennt doch alle ddie internen lautsprecher eines pc´s, die nur 'piepen'. ich lasse ihn jetzt mal zum beispiel mit markieren Code: windows.beep(4000,2000); für 2 sekunden mit der frequenz 400hz piepen. wie könnte ich denn das gepiepse unterbrechen? Bis bald
	Zitat

c113plpbr Registriert seit: 18. Nov 2003 Ort: localhost 674 Beiträge Delphi 2005 Professional	#2 Re: Interner Lautsprecher 2. Dez 2004, 15:58 Vielleicht könntest du das in einen Thread legen, und diesen dann 'gewaltsam' beenden ... vielleicht geht das ja ... ciao, Philipp Philipp There is never enough time to do all the nothing you want. HABENWILL
	Zitat

Orbmu2k Registriert seit: 29. Nov 2004 Ort: Erfurt 254 Beiträge Turbo Delphi für Win32	#3 Re: Interner Lautsprecher 2. Dez 2004, 16:03 oder so markieren Delphi-Quellcode: for x := 1 to 20 do begin Application.ProcessMessages; if brk then Exit; windows.beep(4000,100); end; und dann mit brk := True abbrechen OrbLog
	Zitat

delphi-anfänger Registriert seit: 19. Dez 2003 7 Beiträge	#4 Re: Interner Lautsprecher 2. Dez 2004, 16:28 ok danke funktioniert!
	Zitat