HFS and Windows Sound Events

[Mars]

In the base of register, there is a key grouping together all audio events of Windows:

HKEY_CURRENT_USER\AppEvents\EventLabels

some audio events are : systemstart , systemexit , ....  and are defined in the audio properties

I have tested a new macro {{play|A}} or {{play eventlabel|systemstart}} that we can include somewhere in a template to inform us that a specific event occurred, (sound play on the server)

{{play eventlabel|mailbeep}}

Actualy working only with windows sounds

uses
   MMSystem
.........
 procedure PlayEventLabel();
    begin
    result:='';
    p:=par(0);
    if p='' then exit;
    PlaySound(PAnsiChar(p), 0 , SND_ALIAS or SND_ASYNC) ;
   end;
.......
  if name = 'play eventlabel' then
        PlayEventLabel();

  if pars.Count < 1 then exit;

[rejetto]

ok for {{play system event|NAME}}
thank you

[Mars]

please rejetto can you wait before include this into  hfs,
I will to see if it is possible to add a box as Mimes Type Box , to give the admin a possibility to have choice events sounds events into hfs, it will be more cool.

 PlaySound(PAnsiChar(p), application.handle , SND_ALIAS or SND_ASYNC) ;

The opening of the topic was a essay of opening to see the reactions.

some name will be proposed

open
close
connected
disconnected
upload success
upload failed
........

and more

[rejetto]

as you can see, that is in the to-do-list
i don't see why wait
and i'm not sure the dialog should be the way. maybe sections with macros that are fired on events will be more flexible. you can play sound, but also move files, etc.

[Mars]

playing a system sound is not the first priority to HFS

Let I study a little the question and my discoveries shall open you can be the other possibilities in which you have can be still thought
 thanks