Code : Tout sélectionner
Procedure.s GetExeName()
ExeName.s = Space(255)
GetModuleFilename_(0, @ExeName, 255)
ProcedureReturn ExeName
EndProcedure
MessageRequester("Fichier", GetExeName(), 16)
Code : Tout sélectionner
Procedure.s GetExeName()
ExeName.s = Space(255)
GetModuleFilename_(0, @ExeName, 255)
ProcedureReturn ExeName
EndProcedure
MessageRequester("Fichier", GetExeName(), 16)