Скачать: CL | DM;

Rezidentnaya proqramma   Найти похожие ветки 

← →
ruslan ©   (2004-07-19 15:45) [0]

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.

---

← →
DK   (2004-07-19 15:49) [1]

Form1.Visible:=false;

---

← →
Anatoly Podgoretsky ©   (2004-07-19 16:03) [2]

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

---

← →
ruslan ©   (2004-07-19 16:38) [3]

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:43) [4]

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

---

← →
ruslan ©   (2004-07-19 17:22) [5]

VOBSE DRUQOY SPOSOB EST NA ETU TEMU?

---

← →
Anatoly Podgoretsky ©   (2004-07-19 17:27) [6]

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

---

← →
ruslan ©   (2004-07-19 17:36) [7]

Anatoly Podgoretsky [5]

OK. A otvet.:)

---

← →
Arm79   (2004-07-19 21:15) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c