Musik wenn das programm startet

[Heinz-Erich]

Hi ;)!
Wie kann ich es machen wenn einer das programm startet dann sofort die musik im hintergrund gespielt wird?

mfg bushido

[Chegga]

Hi,

schau dir mal Form.OnCreate an. :wink:

MfG Marc

[Stanlay Hanks]

Hi. Schaue dir mal die Mediaplayer Komponente an. Alternativ (eleganter): Verwende die Bass.dll (Sollte sich im Forum finden.
Es gibt entsprechende Ereignisse (OnFormCreate) in die du dann deinen Code einsetzen kannst :)

Man liest sich, Stanlay :hi:

[Neutral General]

Delphi-Quellcode:

uses mmsystem;

procedure TForm1.FormShow(Sender: TObject);
begin
  PlaySound(Dateiname,NIL,SND_ASYNC)   // ich glaube das in die Mitte Nil muss
end;

So gehts. Wie gesagt mit dem 2. Parameter bin ich mir nicht sicher. Es müssen .wav Dateien sein.

[SirThornberry]

du könntest als erstes gleich einen thread starten in dem du musik abspielst (im FormCreate oder direct in der Projectdatei). Allerdings kann es sein das der Ton abgehackt wird weil der Computer beim starten des programmes eventuell ausgelastet ist

[Heinz-Erich]

Hi !
nachdem ich on create auf form gezogen habe und da den code

Delphi-Quellcode:

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, mmsystem;

type
  TForm4 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);
begin
  PlaySound (mh.wav,Nil)   // ich glaube das in die Mitte Nil muss
end;

end.

mfg Bushido

[edit=Sharky]Tags gesetzt. Mfg, Sharky[/edit]
[edit=Sharky] Mfg, Sharky[/edit]

[turboPASCAL]

Zitat:

Zitat von Heinz-Erich

Hi !
nachdem ich on create auf form gezogen habe und da den code
[...]
mfg Bushido

Ja und was möchtest Du uns damit sagen ? :gruebel:


Richtiger:

Code:

[b]unit [/b]Unit4;

[b]interface[/b]

[b]uses[/b]
  Windows, [color=green]// ...[/color]

[color=green]// ...[/color]

[b]implementation[/b]

[color=green]{$R *.dfm}[/color]

[b]procedure [/b]TForm4.FormCreate(Sender: TObject);
[b]begin[/b]
  [color=red]PlaySound('mh.wav', 0, SND_ASYNC);[/color]
[b]end[/b];

[b]end[/b].

[Nils_13]

Bei mir läuft das nicht. Außerdem kann man keine mp3s abspielen und das ist sehr schlecht.
Alternative:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  MediaPlayer1.Open;
  MediaPlayer1.Visible := False;
  MediaPlayer1.Play;
end;

Du musst vorher beim MediaPlayer den FileName festlegen, sonst entstehen fehler.

Oder du nimmst einfach den bassdllplayer von gandalfus (einfach suchen, oder auf seine Homepage gehen), oder die bass.dll selbst.

Achja: benutze bitte zukünftig die Delphi-Tags

[Heinz-Erich]

was ist delphi tags?

[Stanlay Hanks]

Zitat:

Zitat von Heinz-Erich

was ist delphi tags?

Code:

[delphi] < Beginnt den Delphi Block

Dein Delphi Source, der dann schön formatiert wird. (Syntaxhighlighting)

[/delphi] < Beendet den Delphi Block