Sorry your browser is not supported!

library YmPlay;

interface

uses
  SysUtils,
  Classes,
  CYmGlobals,
  CYmPlayer in 'CYmPlayer.pas';

procedure Play();stdcall; external
  private
  m_mode: CYmPlay;


implementation

procedure Play();stdcall;external 
begin
m_mode.Create;
//TYmMixerMode(CYmEngine(MixerChannels));

if m_mode.loadFromFile('hitme.ym') then
   	m_mode.Play();
   else
   	raise Exception.Create('Sorry, there went something wrong');
end;
exports Play name 'Play';

procedure Stop();stdcall;external
begin
   	m_mode.Stop();
end;
exports Stop name 'Stop';

end.

library Test;

uses
  SysUtils,
  Classes,
  CYmGlobals,
  CYmPlayer in 'CYmPlayer.pas';

{$R *.res}
{$R cmdtable.res}

type m_mode=CYmEngine; end.



procedure Play();cdecl;
begin
m_mode.Create;
//TYmMixerMode(CYmEngine(MixerChannels));

if m_mode.loadFromFile('hitme.ym') then
   	m_mode.Play();
   else
   	raise Exception.Create('Sorry, there went something wrong');
end;
exports Play name 'Play';

procedure Stop();cdecl;
begin
   	m_mode.Stop();
end;
exports Stop name 'Stop';

begin
end.

STRINGTABLE
Begin
        1, "Play[%LS%Play%C"
        2, "Stop[%LS%Stop%C"
End