| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Rezidentnaya proqramma [D6, Win95/98, WinME, NT4, Win2k, WinXP]

ruslan ©   (2004-07-19 15:45:00) 

U menya takoy vopros.
Narpimer ya sozdal malenenkuyu proqrammu kotoriy cerez opredelenniy vremya iqraet wav fayl. Kakie kodi nado dabavit tuda ctobi eto proqramma bila rezidentniy to est sidela v pamyati i nujniy moment vipolnyalos?

Zaranie Sposibo vsem

unit mai;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, MPlayer, StdCtrls, ExtCtrls;

type
 TForm1 = class(TForm)
   MediaPlayer1: TMediaPlayer;
   Timer1: TTimer;
   procedure Timer1Timer(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
MediaPlayer1.Filename :='1.wav';
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

end.

---

Arm79   (2004-07-19 21:15:00) [1]

А что не устраивает, то? Пропиши программу в автозагрузку, установи Application.ShowMainForm в false (например, в основном файле проекта), сохрани и загружай список моментов времени, когда тебе надо проигрывать wav-файл. Можешь воспользоваться супер-пупер функцией PlaySound, не используя при этом MediaPlayer. Если такой вариант тебя категорически не устраивает, напиши свой сервис. Вот и все.
PS. Я бы выбрал первый вариант

---

ruslan   (2004-07-19 17:36:00) [2]

Anatoly Podgoretsky [5]

OK. A otvet.:)

---

Anatoly Podgoretsky   (2004-07-19 17:27:00) [3]

ruslan ©   (19.07.04 17:22) [5]
Совсем не обязательно об этом всем сообщать.
Вопросы в форуме можно задавать без оповещения.

---

ruslan   (2004-07-19 17:22:00) [4]

VOBSE DRUQOY SPOSOB EST NA ETU TEMU?

---

Anatoly Podgoretsky   (2004-07-19 16:43:00) [5]

Можно поставить и timer2 если одного недостаточно.

---

ruslan   (2004-07-19 16:38:00) [6]

DK [1]
Form1.Visible:=false;
eto prostoy sposob eto mne ne ustraivaet.

Anatoly Podgoretsky [2]

Ono etoqo budet delat esli ya postavlyu timer2

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Form1.Visible:=False;
end;

A kakoy to druqoy variant  est?

---

Anatoly Podgoretsky   (2004-07-19 16:03:00) [7]

ruslan ©   (19.07.04 15:45)  
То что ты привел, уже это делает.

---

DK   (2004-07-19 15:49:00) [8]

Form1.Visible:=false;

---

Наверх