uses
Classes, mmsystem, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if chek=true then
PlaySound('1.wav',0,SND_ASYNC or SND_LOOP);
end;
Модератор: Модераторы
uses
Classes, mmsystem, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if chek=true then
PlaySound('1.wav',0,SND_ASYNC or SND_LOOP);
end;
Сейчас этот форум просматривают: Majestic-12 [Bot] и гости: 233