diff --git a/components/playsoundpackage/latest_stable/aboutplaysound.pas b/components/playsoundpackage/latest_stable/aboutplaysound.pas
index 4bee04833..969bad882 100644
--- a/components/playsoundpackage/latest_stable/aboutplaysound.pas
+++ b/components/playsoundpackage/latest_stable/aboutplaysound.pas
@@ -585,7 +585,7 @@ begin
Font.Size:=10;
// BackGroundColor shows if no BackGround image is set
BackGroundColor := clWindow;
- Version := '0.0.4.0';
+ Version := '0.0.8.0';
AuthorName := 'Gordon Bamber';
AuthorEmail := 'minesadorada@charcodelvalle.com';
Organisation := 'Public Domain';
diff --git a/components/playsoundpackage/latest_stable/demo/demo.lps b/components/playsoundpackage/latest_stable/demo/demo.lps
index 91b203242..800eb4a31 100644
--- a/components/playsoundpackage/latest_stable/demo/demo.lps
+++ b/components/playsoundpackage/latest_stable/demo/demo.lps
@@ -2,7 +2,7 @@
-
+
@@ -16,9 +16,9 @@
+
-
@@ -28,11 +28,10 @@
-
+
-
@@ -43,24 +42,19 @@
-
+
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
diff --git a/components/playsoundpackage/latest_stable/demo/demo.res b/components/playsoundpackage/latest_stable/demo/demo.res
index 6c7c81ce6..e3872854a 100644
Binary files a/components/playsoundpackage/latest_stable/demo/demo.res and b/components/playsoundpackage/latest_stable/demo/demo.res differ
diff --git a/components/playsoundpackage/latest_stable/playwavepackage.lpk b/components/playsoundpackage/latest_stable/playwavepackage.lpk
index f3e683bc0..42a9bacd8 100644
--- a/components/playsoundpackage/latest_stable/playwavepackage.lpk
+++ b/components/playsoundpackage/latest_stable/playwavepackage.lpk
@@ -47,7 +47,7 @@
along with this library; if not, write to the Free Software Foundation,
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
"/>
-
+
diff --git a/components/playsoundpackage/latest_stable/uplaysound.pas b/components/playsoundpackage/latest_stable/uplaysound.pas
index eaee0e915..f3dcb170a 100644
--- a/components/playsoundpackage/latest_stable/uplaysound.pas
+++ b/components/playsoundpackage/latest_stable/uplaysound.pas
@@ -143,12 +143,13 @@ begin
AboutBoxBackgroundColor := clCream;
//AboutBoxFontName (string)
//AboutBoxFontSize (integer)
- AboutBoxVersion := '0.0.7';
+ AboutBoxVersion := '0.0.8';
AboutBoxAuthorname := 'Gordon Bamber';
AboutBoxOrganisation := 'Public Domain';
AboutBoxAuthorEmail := 'minesadorada@charcodelvalle.com';
AboutBoxLicenseType := 'MODIFIEDGPL';
- AboutBoxDescription := 'Plays WAVE sounds in Windows or Linux';
+ AboutBoxDescription := 'Plays WAVE sounds in Windows or Linux' + LineEnding +
+ 'Public methods: Execute and StopSound';
end;
destructor Tplaysound.Destroy;
@@ -164,6 +165,11 @@ procedure Tplaysound.Execute;
begin
if not FileExists(fPathToSoundFile) then
Exit;
+ {$IFDEF WINDOWS}
+ fDefaultPlayCommand := 'sndPlaySound';
+ {$ELSE}
+ fDefaultPlayCommand := GetNonWindowsPlayCommand; // Linux, Mac etc.
+ {$ENDIF}
Try
PlaySound(fPathToSoundFile);
Except