FreePascal.ru

evb87ar, напиши код, если не трудно)

Вот код всей программы:
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Unix, LCLIntf;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1KeyUp(Sender: TObject; var Key ...

У нас есть команда воспроизведения звука: FpSystem('aplay /home/swel/Загрузки/sirena_1_5/1.wav');
Вопрос: Как сделать чтобы этот звук воспроизводился постоянно?

Благодаря модулю LCLType заработал и SetCursorPos

Как на Linux будут выглядеть следующий код:
procedure TForm1.Button1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
);
begin
If key=VK_RETURN then
SetCursorPos(Form1.Left+Button2.Left+1,Form1.Top+Button2.Top+1);
check:=true;
end;

Добавлено спустя 16 минут 47 секунд:
В место VK ...

Благодарю, а я не нашёл(((

Всем привет! Интересует такой вопрос: Какой модуль можно использовать что бы по нажатию кнопки воспроизводилась музыка (.wav, постоянно). И какую команду надо вбивать? В Windows Delphi это выглядит вот так:
uses
Classes, mmsystem, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls ...