1 files changed, 21 insertions, 0 deletions
diff --git a/include/delphi/m_helpers.inc b/include/delphi/m_helpers.inc
index f155f94866..d5160da04c 100644
--- a/include/delphi/m_helpers.inc
+++ b/include/delphi/m_helpers.inc
@@ -33,6 +33,9 @@ function Langpack_Register:int_ptr;
 
 function CreateProtoServiceFunction(const szModule, szService: PAnsiChar; serviceProc: TMIRANDASERVICE): int_ptr;
 
+function SkinAddNewSound(const name, description, defaultFile: PAnsiChar): int_ptr;
+function SkinPlaySound  (const name: PAnsiChar): int_ptr;
+
 function Menu_AddContextFrameMenuItem(mi:PMO_MenuItem):HGENMENU;
 function Menu_AddMainMenuItem        (mi:PMO_MenuItem):HGENMENU;
 function Menu_AddContactMenuItem     (mi:PMO_MenuItem):HGENMENU;
@@ -273,6 +276,24 @@ begin
   Result := CreateServiceFunction(szStr, @serviceProc);
 end;
 
+function SkinAddNewSound(const name, description, defaultFile: PAnsiChar): int_ptr;
+var
+  ssd: TSKINSOUNDDESCEX;
+begin
+  FillChar(ssd,SizeOf(ssd),0);
+  ssd.cbSize         := sizeof(ssd);
+  ssd.pszName        := name;
+  ssd.pszDescription.a := description;
+  ssd.pszDefaultFile.a := defaultFile;
+  Result := CallService(MS_SKIN_ADDNEWSOUND, hLangpack, lParam(@ssd));
+end;
+
+function SkinPlaySound (const name: PAnsiChar): int_ptr;
+  {$IFDEF AllowInline}inline;{$ENDIF}
+begin
+  Result := CallService(MS_SKIN_PLAYSOUND, 0, lParam(name));
+end;
+
 
 function Menu_AddContextFrameMenuItem(mi:PMO_MenuItem):HGENMENU;
 begin