title image


Smiley Grundgerüst
Wenn du ein totaler Anfänger bist, solltest du dir einfachere Beispiele zum lernen aussuchen.

Hier ist einmal ein Grundgerüst für dich. Aber es ist nicht die beste Lösung.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, MPlayer, StdCtrls;



type

TForm1 = class(TForm)

MediaPlayer1: TMediaPlayer;

Button1: TButton;

Button2: TButton;

procedure MediaPlayer1Notify(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

public

end;



var

Form1: TForm1;

PlayCount: integer;



implementation

{$R *.dfm}



procedure TForm1.MediaPlayer1Notify(Sender: TObject);

begin

if MediaPlayer1.Mode = mpPlaying then begin

if PlayCount > 1 then begin

Dec(PlayCount);

MediaPlayer1.Notify := true;

MediaPLayer1.Play;

end else begin

MediaPlayer1.Close;

MediaPlayer1.Notify := false;

end;

end;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

MediaPlayer1.Close;

MediaPlayer1.FileName := 'c:\windows\media\ringin.wav';

PlayCount := 2;

MediaPlayer1.Open;

MediaPlayer1.Notify := true;

MediaPlayer1.Play;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

MediaPlayer1.Close;

MediaPlayer1.FileName := 'c:\windows\media\ringout.wav';

PlayCount := 4;

MediaPlayer1.Open;

MediaPlayer1.Notify := true;

MediaPlayer1.Play;

end;



end.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: