звук на клавиатуре

[Михаил Юрьевич]

Сообщение от mutabor

По событию OnClose главной формы, сохраняй все что надо в ини-файл, в том числе и значение этого чекбокса. При событии OnCreatе последней ! формы* прочесть ини-файл и применить сохранения.
Как работать с ини-файлами много раз обсуждалось на этом форуме, также есть в сети полноценные статьи, также это есть в справке Дельфи.

* Последней чтобы исключить обращение к ещё не созданным объектам. Порядок создания форм можно поменять, если не менять то они создаются в порядке нумерации.

Я знаю как сохранять,я не пойму каким образом присвоить к значению
чекбокса функцию PlaySound('C:\sound.wav',0,SND_LOOP ); чтобы при
true было PlaySound('C:\sound.wav',0,SND_LOOP ); а при false PlaySound(0,0,SND_LOOP);

[vitalik007]

if checkbox.checked then PlaySound('C:\sound.wav',0,SND_LOOP )
else PlaySound(0,0,SND_LOOP);
Что тут не ясного

[Михаил Юрьевич]

Сообщение от vitalik007

if checkbox.checked then PlaySound('C:\sound.wav',0,SND_LOOP )
else PlaySound(0,0,SND_LOOP);
Что тут не ясного

Я вот здесь не могу сообразить что вставить в скобки?
procedure TForm2.RbCheckBox2Click(Sender: TObject);
begin
if RbCheckBox2.Checked=false then
form1.RichEdit1KeyPress();
else form1.RichEdit1KeyPress();

end;

[mutabor]

Давайте уточним. Нужно при нажатии клавиш воспроизводить звук, и если чекбокс не отмечен то звук воспроизводить не надо. Так? Если так, то вот ответ:
1. При клике на чекбоксе делать ничего не надо.
2. При нажатии клавиши проверяй или чекбокс включен, если включен то воспроизводим звук, если выключен не делаем ничего, т.е. else не нужен.

[DOLBY]

тут ничего вставлять не нужно, как я понял должно быть так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, mmsystem;

type
  TForm1 = class(TForm)
    RbCheckBox2: TCheckBox;
    RichEdit1: TRichEdit;
    procedure RichEdit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function PlaySound(pszSound: Pchar; hmod: HINST; fdwSound: Cardinal):boolean; stdcall; external 'winmm.dll';

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
 if RbCheckBox2.Checked then
  PlaySound('C:\sound.wav',0,SND_ASYNC);
end;

end.

при нажатии клавиши на RichEdit'e воспроизводится звук "C:\Sound.wav".
а где и зачем его нужно отключать? и зачем этот звук, о чём он будет оповещать?

[Лубышев]

mutabor, я "бибиколку" через windows.Beep тоже также пробывал (с помощью цикла), но звук прерывистый. Попробуйте сами...

[mutabor]

Сообщение от Лубышев

mutabor, я "бибиколку" через windows.Beep тоже также пробывал (с помощью цикла), но звук прерывистый. Попробуйте сами...

Да, прерывистый. Можно попробовать принудительно прерывать выполнение Beep, но как это сделать, ведь она не возвращает управление пока не завершится. Может в отдельном потоке её запускать, не уверен. А зачем она тебе надо?

[Лубышев]

mutabor если честно, то не нужно, просто для изучения.
Но мне постоянно этот вопрос задают, а что сказать даже не знаю.