Aplicacion En Ejecucion

[Khronos]

Te dejo una unidad de una aplicación que estoy desarrollando, espero que te sirva .


En el archivo UniquePhoenix.pas cambia el valor de la constante exeName por el nombre
de tu ejecutable.
En el archivo dpr de tu proyecto, pon la unidad de primera.
Ejemplo:

Código Delphi [-]
program phxmp;

uses
  UniquePhoenix,
  Forms,
  frm_main in 'frm_main.pas' {FMain},
  helper_global in 'helper_global.pas',
  iPhoenix in 'iPhoenix.pas',
  helper_styles in 'helper_styles.pas',
  phxplayer in 'phxplayer.pas',
  frm_copy in 'frm_copy.pas' {FCopy},
  frm_about in 'frm_about.pas' {FAbout},
  frm_styles in 'frm_styles.pas' {FStyles},
  frm_options in 'frm_options.pas' {FOptions},
  helper_CDRip in 'helper_CDRip.pas',
  helper_GoogleSearchs in 'helper_GoogleSearchs.pas',
  Opciones in 'Opciones.pas';
{$R *.res}
begin
  Application.Initialize;
  Application.Title := 'Reproductor Multimedia Phoenix';
  Application.CreateForm(TFMain, FMain);
  Application.CreateForm(TFCopy, FCopy);
  Application.CreateForm(TFAbout, FAbout);
  Application.CreateForm(TFStyles, FStyles);
  Application.CreateForm(TFOptions, FOptions);
  Application.Run;
end.