DECALER LE LANCEMENT D'UN EXECUTABLE

Commentaire de jmluc le 24/04/2003 08:29:50

En même temps que je réponds je teste...
Déjà il faudrait que ton prog une fois le décompte lancé soit se ferme, soit passe en toile de fond ...
Ensuite on obtient un programme lancé mais les menus sont innaccessible...
Je pense qu'il faudrait utiliser un fonction shell plus développée je te soumet :
'dans un module, tu déclares
Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

'Dans ta feuille
'FName est le chemin et le nom du fichier à ouvrir
Tmp = ShellExecute(0, "open", FName, 0&, 0&, 1)

ça devrait ouvrir ton fichier avec le programme par défaut. Si l'extension n'est pas reliée à un programme par défaut, tu dois spécifier le programme qui l'ouvrira.
Tmp = ShellExecute(0, "open", "Notepad.exe", FName, 0&, 1)
jmluc@jmlucienvb.org

Commentaire de payen le 24/04/2003 14:47:48

OUPSSS !!!!
je recommence la derniere phrase : le but etait de lancer un PROGRAMME, et pas d'ouvrir un FICHIER.
voila

Commentaire de payen le 24/04/2003 15:46:05

merci  merci ...
d'ailleurs, si tu veux bien me mettre ce 8/10, je suis pas contre (ma premiere note ...)
la source est modifie, et j'ai rajoute l'executable ...

Commentaire de Renfield le 26/04/2003 21:25:15 administrateur CS

si tu veux pas que la fenetre se gèle , il te faudrait detacher une thread.....

'-----------------------------
' Dans une Form
'-----------------------------

Private Sub Command1_Click()
    Lancement_Decale "VbFrance", 10
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Arreter_Lancement
End Sub


'-----------------------------------
' Dans un module
'-----------------------------------

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public hThread As Long, hThreadID As Long

Public NbSec As Single
Public ToLaunch As String

Public Sub AsyncThread()
    Sleep 1000 * NbSec
    MsgBox "lancement du fichier " & ToLaunch
    hThread = 0
End Sub

Public Sub Arreter_Lancement()
    'Si le thread est lancé , on le ferme
    If hThread <> 0 Then TerminateThread hThread, 0
End Sub

Public Sub Lancement_Decale(Launch As String, InNbSec As Single)
    NbSec = InNbSec
    ToLaunch = Launch
    'Si le thread est lancé , on le kill
    Arreter_Lancement
    hThread = CreateThread(ByVal 0&, ByVal 0&, AddressOf AsyncThread, ByVal 0&, ByVal 0&, hThreadID)
    CloseHandle hThread 'on n'a pas besoin du hThread !!
End Sub

Commentaire de Renfield le 25/06/2003 19:53:49 administrateur CS

ok, je n'ai pas vu ce message, me semble-t'il...

dans les variables d'environnement, il y en a une qui s'appelle PATH , si Windows ne trouve pas un executable, il cherchera dans chacun des repertoires designés par PATH.....

ca fait comme quand tu fait demarrer, executer....... Winword / Excel / Calc / Notepad / MsPaint ............... Je m'en sers tout le temps, c'est plus rapide !!

Commentaire de Renfield le 26/06/2003 17:51:55 administrateur CS

oui, il y a une API....

Declare Function SetEnvironmentVariable Lib "kernel32" Alias "SetEnvironmentVariableA" (ByVal lpName As String, ByVal lpValue As String) As Long