PROCEDURE PL_ThreadPing(plFen, plCommande)
// On indique que le thread s'est chargé et lancé
ThreadEnvoieSignal(".")

// Contrôle du nombre de thread à un instant t grâce aux sémaphores
SémaphoreDébut("SEM_LIMITE")

chRes est une chaîne
chCodeàCompiler est une chaîne


SectionCritiqueDébut(plFen)

/////Ancien Code
//MDIOuvre(frmMain,plFen, ExtraitChaîne(plFen,1,"_",DepuisFin))
//gclMyDos:CommandLine_Let(plCommande)
//gclMyDos:ExecuteCommand(plFen)


/////Ici on déclare une variable par Thread
chCodeàCompiler="GLOBAL"+RC+"MyDos"+plFen+" est un MultiPING"
chRes=Compile("CompilePing",chCodeàCompiler)

SI chRes="" ALORS
	ExécuteTraitement("CompilePing", trtProcédure)
	MDIOuvre(frmMain,plFen)
	{"MyDos"+plFen}:CommandLine_Let(plCommande)
	{"MyDos"+plFen}:ExecuteCommand(plFen)
FIN

SectionCritiqueFin(plFen)