¡Alguna idea de como podre hacer Esto!!

[[nlsgarcia]]

Anitan,

Empezado por Anitan

...¡Alguna idea de como podre hacer Esto!...ejecutar este bloc de notas...archivos de musicas de fondo (*.mp3)...

Código Delphi [-]
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
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Abre el archivo Test.txt con Notepad
procedure TForm1.Button1Click(Sender: TObject);
begin
   ShellExecute(Handle, 'open', 'Notepad.exe', 'Test.txt', nil, SW_NORMAL);
end;

// Reproduce un Archivo de Sonido MP3
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;

// Reproduce un Archivo de Sonido WAV
procedure TForm1.Button3Click(Sender: TObject);
begin
   PlaySound('Natasha.wav', 0, SND_FILENAME OR SND_ASYNC);
end;

end.

El código anterior ejecuta el programa Notepad.exe de Windows y reproduce archivos de sonido MP3 y WAV.

Espero sea útil

Nelson.