unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellAPI, MMSystem, MPlayer;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'Notepad.exe', 'Test.txt', nil, SW_NORMAL);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
MediaPlayer: TMediaPlayer;
begin
MediaPlayer := TMediaPlayer.Create(Application);
MediaPlayer.Parent := Self;
MediaPlayer.Visible := False;
MediaPlayer.FileName := 'Heart of Sword.mp3';
MediaPlayer.Open;
MediaPlayer.Play;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
PlaySound('Natasha.wav', 0, SND_FILENAME OR SND_ASYNC);
end;
end.