//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include <math.h>
#include <mmsystem.h>
#include <string.h>

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

// Fetch the windows directory
char WinDir[MAX_PATH];
String FileName(WinDir);
String waveFile;

// This DOES NOT work well, since it changes the value of WinDir at each call.
// PlaySound("c:\\winnt\\media\\jungle asterisk.wav", "", SND_ASYNC);

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
   WinDir[MAX_PATH] = '\0';
   GetWindowsDirectory(WinDir,MAX_PATH);
   // MAX_PATH = 260
}
//---------------------------------------------------------------------------

// =========================================================== PLAY WAVE FILE
void play (String waveFile)
{
   FileName = WinDir;
   FileName += waveFile;
   PlaySound(FileName.c_str(), "", SND_ASYNC);
}

// ============================================================ ON MOUSE MOVE
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
   EditX->Text = AnsiString("       ")  + X;
   EditY->Text = AnsiString("       ")  + Y;

   // ========================================================= JUNGLE SOUNDS

   // Demonstrating several ways to make the call to PlaySound( )

   // Do it with a function call
   if (X == 10) {
       waveFile = "\\media\\jungle asterisk.wav";
       play(waveFile);
   }

   // Do it without a function call
   if (X == 20) {
       FileName = WinDir;
       FileName += "\\media\\jungle close.wav";
       PlaySound(FileName.c_str(), "", SND_ASYNC);
   }

   // Compress the function call into one line
   if (X == 30) {waveFile = "\\media\\jungle critical stop.wav";play(waveFile);}
   if (X == 40) {waveFile = "\\media\\jungle default.wav";play(waveFile);}
   if (X == 50) {waveFile = "\\media\\jungle error.wav";play(waveFile);}
   if (X == 60) {waveFile = "\\media\\jungle exclamation.wav";play(waveFile);}
   if (X == 70) {waveFile = "\\media\\jungle maximize.wav";play(waveFile);}
   if (X == 80) {waveFile = "\\media\\jungle menu command.wav";play(waveFile);}
   if (X == 90) {waveFile = "\\media\\jungle menu popup.wav";play(waveFile);}
   if (X == 100) {waveFile = "\\media\\jungle minimize.wav";play(waveFile);}
   if (X == 110) {waveFile = "\\media\\jungle open.wav";play(waveFile);}
   if (X == 120) {waveFile = "\\media\\jungle question.wav";play(waveFile);}
   if (X == 130) {waveFile = "\\media\\jungle recycle.wav";play(waveFile);}
   if (X == 140) {waveFile = "\\media\\jungle restore down.wav";play(waveFile);}
   if (X == 150) {waveFile = "\\media\\jungle restore up.wav";play(waveFile);}
   if (X == 160) {waveFile = "\\media\\jungle windows exit.wav";play(waveFile);}
   if (X == 170) {waveFile = "\\media\\jungle windows start.wav";play(waveFile);}

   // ========================================================== MUSICA SOUNDS

   if (Y == 10) {waveFile = "\\media\\musica asterisk.wav";play(waveFile);}
   if (Y == 20) {waveFile = "\\media\\musica close.wav";play(waveFile);}
   if (Y == 30) {waveFile = "\\media\\musica critical stop.wav";play(waveFile);}
   if (Y == 40) {waveFile = "\\media\\musica default.wav";play(waveFile);}
   if (Y == 50) {waveFile = "\\media\\musica error.wav";play(waveFile);}
   if (Y == 60) {waveFile = "\\media\\musica exclamation.wav";play(waveFile);}
   if (Y == 70) {waveFile = "\\media\\musica maximize.wav";play(waveFile);}
   if (Y == 80) {waveFile = "\\media\\musica menu command.wav";play(waveFile);}
   if (Y == 90) {waveFile = "\\media\\musica menu popup.wav";play(waveFile);}
   if (Y == 100) {waveFile = "\\media\\musica minimize.wav";play(waveFile);}
   if (Y == 110) {waveFile = "\\media\\musica open.wav";play(waveFile);}
   if (Y == 120) {waveFile = "\\media\\musica question.wav";play(waveFile);}
   if (Y == 130) {waveFile = "\\media\\musica recycle.wav";play(waveFile);}
   if (Y == 140) {waveFile = "\\media\\musica restore down.wav";play(waveFile);}
   if (Y == 150) {waveFile = "\\media\\musica restore up.wav";play(waveFile);}
   if (Y == 160) {waveFile = "\\media\\musica windows exit.wav";play(waveFile);}
   if (Y == 170) {waveFile = "\\media\\musica windows start.wav";play(waveFile);}

   // ========================================================= ROBOTZ SOUNDS

   if (X == 180) {waveFile = "\\media\\robotz asterisk.wav";play(waveFile);}
   if (X == 190) {waveFile = "\\media\\robotz close.wav";play(waveFile);}
   if (X == 200) {waveFile = "\\media\\robotz critical stop.wav";play(waveFile);}
   if (X == 210) {waveFile = "\\media\\robotz default.wav";play(waveFile);}
   if (X == 220) {waveFile = "\\media\\robotz error.wav";play(waveFile);}
   if (X == 230) {waveFile = "\\media\\robotz exclamation.wav";play(waveFile);}
   if (X == 240) {waveFile = "\\media\\robotz maximize.wav";play(waveFile);}
   if (X == 250) {waveFile = "\\media\\robotz menu command.wav";play(waveFile);}
   if (X == 260) {waveFile = "\\media\\robotz menu popup.wav";play(waveFile);}
   if (X == 270) {waveFile = "\\media\\robotz minimize.wav";play(waveFile);}
   if (X == 280) {waveFile = "\\media\\robotz open.wav";play(waveFile);}
   if (X == 290) {waveFile = "\\media\\robotz question.wav";play(waveFile);}
   if (X == 300) {waveFile = "\\media\\robotz recycle.wav";play(waveFile);}
   if (X == 310) {waveFile = "\\media\\robotz restore down.wav";play(waveFile);}
   if (X == 320) {waveFile = "\\media\\robotz restore up.wav";play(waveFile);}
   if (X == 330) {waveFile = "\\media\\robotz windows exit.wav";play(waveFile);}
   if (X == 340) {waveFile = "\\media\\robotz windows start.wav";play(waveFile);}

   // ========================================================= UTOPIA SOUNDS

   if (Y == 180) {waveFile = "\\media\\utopia asterisk.wav";play(waveFile);}
   if (Y == 190) {waveFile = "\\media\\utopia close.wav";play(waveFile);}
   if (Y == 200) {waveFile = "\\media\\utopia critical stop.wav";play(waveFile);}
   if (Y == 210) {waveFile = "\\media\\utopia default.wav";play(waveFile);}
   if (Y == 220) {waveFile = "\\media\\utopia error.wav";play(waveFile);}
   if (Y == 230) {waveFile = "\\media\\utopia exclamation.wav";play(waveFile);}
   if (Y == 240) {waveFile = "\\media\\utopia maximize.wav";play(waveFile);}
   if (Y == 250) {waveFile = "\\media\\utopia menu command.wav";play(waveFile);}
   if (Y == 260) {waveFile = "\\media\\utopia menu popup.wav";play(waveFile);}
   if (Y == 270) {waveFile = "\\media\\utopia minimize.wav";play(waveFile);}
   if (Y == 280) {waveFile = "\\media\\utopia open.wav";play(waveFile);}
   if (Y == 290) {waveFile = "\\media\\utopia question.wav";play(waveFile);}
   if (Y == 300) {waveFile = "\\media\\utopia recycle.wav";play(waveFile);}
   if (Y == 310) {waveFile = "\\media\\utopia restore down.wav";play(waveFile);}
   if (Y == 320) {waveFile = "\\media\\utopia restore up.wav";play(waveFile);}
   if (Y == 330) {waveFile = "\\media\\utopia windows exit.wav";play(waveFile);}
   if (Y == 340) {waveFile = "\\media\\utopia windows start.wav";play(waveFile);}
       
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Form1->Canvas->Pen->Color=clYellow;
   for (int i=10; i<=340; i=i+10) {
      Form1->Canvas->MoveTo(10, i);
      Form1->Canvas->LineTo(340, i);
      Form1->Canvas->MoveTo(i, 10);
      Form1->Canvas->LineTo(i, 340);
   }
}
//---------------------------------------------------------------------------