how to detect if an other copy from the same script if runing

[nacerbaaziz]

This is the source file
Please evaluate the program and solve this problem please
note :
First :
this script is directed to the blind in particular
The rest is general
Excuse me for not arranging the icons and the general format
Please correct that
If there is no inconvenience or embarrassment
second :
please after you solve this problem   Attach the script as a file
Because I am a blind person and it is difficult for me to identify all this script to copy it
Thank you all and i  apologize for bothering you
But most programs are not compatible with programs for the blind so I want to be the first which design a program that serves all the blind and Through which they can listen to their audio files with comprehensive control

easyAudioPlayer.rar

[Jos]

Did you test with the compiled version as I expect that is the only way it will work?

Jos

[Jos]

One other question: You only perform  UDF check(@ScriptName) one time, but don't you want to do that when you press buttons in the GUI?

Jos

[nacerbaaziz]

 

it work with you !

1. yes i tested it with the compiled script but it not work

2. no i need just to check when the script start

please try to help me to fix the icon if you can

thank you

Edited July 25, 2017 by nacerbaaziz

[nacerbaaziz]

are the icons is good

please i need your answer &

[Jos]

So you only want to kill any other instance of the same compiled script in case you start it... right? 

I am not sure what you are asking about the icons and can't run your script as it requires other includes.

Jos

[nacerbaaziz]

yes i need to kill any other copy from the compiledare the icons is good

please i need your answer &

[Jos]

Ok... found the issue. The test in Check() is wrong and should be the below code. It requires brackets around the condition or else the Not doesn't work properly!

Func check($exefile)
    Local $OwnPID = @AutoItPID
    Local $aProcessList = ProcessList($exefile)
    If @error Then Return - -1
    For $i = 1 To $aProcessList[0][0]
        If Not ($aProcessList[$i][1] = $OwnPID) Then
            $rc = ProcessClose($aProcessList[$i][1])
        EndIf
    Next
    Return 1
EndFunc   ;==>check

Update that and things should be working when compiled.

Jos

PS: I do have another life which means I do sleep and work for a big chunk of the day,  so just relax and wait till me or somebody has the time and want to spend the effort to help you.

 

[nacerbaaziz]

mister it work, yes it work with me

thank you very very very much

am sorry if i bothered you

thanks to all

 

[nacerbaaziz]

Hello again
I have a last question if you can
It is not in the same subject but in the same program
I've updated all the icons and I want to add a drag to up / down the volume
Is this possible in autoit language
But it is not a slider because it has many problems with the screen reader

[nacerbaaziz]

or if we can make the slider as the label

i know that is imposible