Test de l'exécution d'un appli VB

Adam Pietrasiewicz

19/01/2005 à 09:30

W ¶rodê 19-stycznia-2005 o godzinie 09:04:53 Informatique LIDV
napisa³/a

Bonjour,
Dans un programme VB, je souhaiterai tester si un autre programme VB est en
cours d'exécution ou non.

J'ai trouvé la fonction PrevInstance mais je ne sais pas comment déclarer
l'objet Application pour définir l'autre appli.

Je pense que nous avons ici un cas de confusion.

Expliquons nous:

App.PrevInstance sers a controler si LE MEME programme est deja actif.
LE MEME veut dire physiquement le meme fichier exe.

Pour controler si UN AUTRE programme est actif nous avons la
possibilite de lister par exemple les processus actifs pour voir si
celui que nous cherchons est actif.

--
Pozdrawiam
Adam Pietrasiewicz

LE TROLL

19/01/2005 à 09:48

Salut,

Voici le code (y en a beaucoup), on liste en boucle les handles et on
supprime celui recherché, tout y est, ci-joint sources aussi:

-----------------------------
' form 1 : FermerProg
'
Option Explicit
'
Private Declare Function GetForegroundWindow Lib "user32" () As Long
'hwnd (handle de la forme)
'
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA"
_
(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As
Long
'
Private Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
'
Private Declare Function CloseHandle Lib "kernel32" ( _
ByVal hObject As Long) As Long
'
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA"
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'
Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As
Long
'
Dim handle As Long
'

Sub Form_Load()
Dim x As Long
Dim i As Long
Dim hwnd As Long
Dim chaine As String
'
List1.Clear
List2.Clear
'
' handle de cette forme
hwnd = GetForegroundWindow
List2.AddItem "handle de cette form = " & hwnd
'
'lance bloc-notes pour tester ensuite sa fermeture
x = Shell("NotePad.exe ", 1)
'
GetWindowsList
'
Text2 = List1.ListCount
'------------------------------------------------
For i = 0 To List1.ListCount - 1
chaine = Mid(List1.List(i), 12, 256)
chaine = Trim(chaine)
Text1 = Text1 & List1.List(i) & vbCrLf
If chaine = "Sans titre - Bloc-notes" Then
List2.AddItem chaine
handle = Mid(List1.List(i), 1, 8)
List2.AddItem "handle à fermer = " & handle
End If
Next i
End Sub

Sub Command1_Click() 'fermer
Dim H As Long
H = FindWindow(vbNullString, "Sans titre - Bloc-notes")
CloseWindow H
List2.AddItem "FERMER handle = " & H
End Sub

Private Function EnumWindowsProc(ByVal lgHwnd As Long, ByVal lgParam As
Long) As Long
Dim stTmp As String, lgTmp As Long, lgRet As Long
'
stTmp = Space$(120)
lgTmp = 119
lgRet = GetWindowText(lgHwnd, stTmp, lgTmp)
If Len(stTmp) > 1 And lgRet <> 0 Then
Form1.List1.AddItem Format(lgHwnd, "00000000") & " : " & stTmp
End If
EnumWindowsProc = 1
End Function

------------------
MODULE1
------------------
Text2 = List1.ListCount
'
For i = 0 To List1.ListCount - 1
chaine = Mid(List1.List(i), 12, 256)
chaine = Trim(chaine)
Text1 = Text1 & List1.List(i) & vbCrLf
If chaine = "Sans titre - Bloc-notes" Then
List2.AddItem chaine
handle = Mid(List1.List(i), 1, 8)
List2.AddItem "handle à fermer = " & handle
End If
Next i
End Sub

Sub Command1_Click() 'fermer
Dim H As Long
H = FindWindow(vbNullString, "Sans titre - Bloc-notes")
CloseWindow H
List2.AddItem "FERMER handle = " & H
End Sub

Private Function EnumWindowsProc(ByVal lgHwnd As Long, ByVal lgParam As
Long) As Long
Dim stTmp As String, lgTmp As Long, lgRet As Long
'
stTmp = Space$(120)
lgTmp = 119
lgRet = GetWindowText(lgHwnd, stTmp, lgTmp)
If Len(stTmp) > 1 And lgRet <> 0 Then
Form1.List1.AddItem Format(lgHwnd, "00000000") & " : " & stTmp
End If
EnumWindowsProc = 1
End Function

"Informatique_LIDV" a écrit dans le
message de news: %23QoMY2f$

Bonjour,
Dans un programme VB, je souhaiterai tester si un autre programme VB est
en
cours d'exécution ou non.

J'ai trouvé la fonction PrevInstance mais je ne sais pas comment déclarer
l'objet Application pour définir l'autre appli.

Merci pour votre aide

Laëtitia

begin 666 FermerProg.vbp
M5'EP93U%>&4-"D9O<FT]1F]R;3$N9G)M#0I2969E<F5N8V4]*EQ'>S P,#(P
M-#,P+3 P,# M,# P,"U#,# P+3 P,# P,# P,# T-GTC,BXP(S C+BY<+BY<
M+BY<+BY<+BY<+BY<+BY<+BY<+BY<5TE.1$]74UQ3>7-T96TS,EQS=&1O;&4R
M+G1L8B-/3$;VUA=&EO;@T*36]D=6QE/4UO9'5L93$[($UO9'5L93$N
M8F%S#0I)8V]N1F]R;3TB1F]R;3$B#0I3=&%R='5P/2)&;W)M,2(-"D-O;6UA
M;F0S,CTB(@T*3F%M93TB4')O:F5T,2(-"DAE;'!#;VYT97AT240](C B#0I#
M;VUP871I8FQE36]D93TB,"(-"DUA:F]R5F5R/3$-"DUI;F]R5F5R/3 -"E)E
MþS:6]N5F5R/3 -"D%U=&]);F-R96UE;G1697(], T*4V5RõR4W5P<&]R
M=$9I;&5S/3 -"E9E<G-I;VY#;VUP86YY3F%M93TB4&5R<VB#0I#;VUP:6QA
M=&EO;E1Y<&4], T*3W!T:6UI>F%T:6]N5'EP93TP#0I&879O<E!E;G1I=6U0
M<FH=&TI/3 -"D-O9&56:65W1&5B=6=);F9O/3 -"DYO06QI87-I;F<], T*
M0F]U;F1S0VAE8VL], T*3W9E<F9L;W=#:&5C:STP#0I&;%!O:6YT0VAE8VL]
M, T*1D1)5D-H96-K/3 -"E5N<F]U;F1E9$90/3 -"E-T87)T36]D93TP#0I5
M;F%T=&5N9&5D/3 -"E)E=&%I;F5D/3 -"E1H<F5A9%!E<D]B:F5C=#TP#0I-
587A.=6UB97)/9E1H<F5A9',],0T*
`
end

begin 666 Form1.frm
M5D524TE/3B U+C P#0I"96=I;B!60BY&;W)M($9O<FTQ( T*(" @0V%P=&EO
M;B @(" @(" @(#T@(" B1F]R;3$B#0H@("!#;&EE;G1(96EG:'0@(" @/2 @
M(#@V,C4-"B @($-L:65N=$QE9G0@(" @(" ](" @,#0H@("!#;&EE;G14
M;W @(" @(" @/2 @(#4W, T*(" @0VQI96YT5VED=&@@(" @(#T@(" X-#,P
M#0H@("!,:6YK5&]P:6,@(" @(" @/2 @(")&;W)M,2(-"B @(%-C86QE2&5I
M9VAT(" @(" ](" @.#8R-0T*(" @4V-A;&57:61T:" @(" @(#T@(" X-#,P
M#0H@("!"96=I;B!60BY497AT0F]X(%1E>'0Q( T*(" @(" @0F5G:6Y0<F]P
M97)T>2!&;VYT( T*(" @(" @(" @3F%M92 @(" @(" @(" @(#T@(" B0V]U
M<FEE<B!.97<B#0H@(" @(" @("!3:7IE(" @(" @(" @(" @/2 @(#D-"B @
M(" @(" @($-H87)S970@(" @(" @(" ](" @, T*(" @(" @(" @5V5I9VAT
M(" @(" @(" @(#T@(" T,# -"B @(" @(" @(%5N9&5R;&EN92 @(" @(" ]
M(" @," @("=&86QS90T*(" @(" @(" @271A;&EC(" @(" @(" @(#T@(" P
M(" @)T9A;'-E#0H@(" @(" @("!3=')I:V5T:')O=6=H(" @/2 @(# @(" G
M1F%L<V4-"B @(" @($5N9%!R;W!E<G1Y#0H@(" @("!(96EG:'0@(" @(" @
M(" @/2 @(#,Q,S4-"B @(" @($QE9G0@(" @(" @(" @(" ](" @,3(P#0H@
M(" @("!-=6QT:4QI;F4@(" @(" @/2 @("TQ(" G5')U90T*(" @(" @4V-R
M;VQL0F%R<R @(" @(#T@(" R(" G5F5R=&EC86P-"B @(" @(%1A8DEN9&5X
M(" @(" @(" ](" @- T*(" @(" @5&5X=" @(" @(" @(" @(#T@(" B1F]R
M;3$N9G)X(CHP,# P#0H@(" @("!4;W @(" @(" @(" @(" @/2 @(#,W,C -
M"B @(" @(%=I9'1H(" @(" @(" @(" ](" @.# U-0T*(" @16YD#0H@("!"
M96=I;B!60BY#;VUM86YD0G5T=&]N($-O;6UA;F0Q( T*(" @(" @0V%P=&EO
M;B @(" @(" @(#T@(" B1F5R<FUE(@T*(" @(" @2&5I9VAT(" @(" @(" @
M(#T@(" T.34-"B @(" @($QE9G0@(" @(" @(" @(" ](" @-S(P, T*(" @
M(" @5&%B26YD97@@(" @(" @(#T@(" S#0H@(" @("!4;W @(" @(" @(" @
M(" @/2 @(#@P-# -"B @(" @(%=I9'1H(" @(" @(" @(" ](" @.3<U#0H@
M("!%;F0-"B @($)E9VEN(%9"+DQI<W1";W@@3&ES=#(@#0H@(" @("!(96EG
M:'0@(" @(" @(" @/2 @(#$R,S -"B @(" @($QE9G0@(" @(" @(" @(" ]
M(" @,3(P#0H@(" @("!486));F1E>" @(" @(" @/2 @(#(-"B @(" @(%1O
M<" @(" @(" @(" @(" ](" @-S X, T*(" @(" @5VED=&@@(" @(" @(" @
M(#T@(" V.#4U#0H@("!%;F0-"B @($)E9VEN(%9"+E1E>'1";W@@5&5X=#(@
M#0H@(" @("!(96EG:'0@(" @(" @(" @/2 @(#,W-0T*(" @(" @3&5F=" @
M(" @(" @(" @(#T@(" W,C P#0H@(" @("!486));F1E>" @(" @(" @/2 @
M(#$-"B @(" @(%1E>'0@(" @(" @(" @(" ](" @(E1E>'0R(@T*(" @(" @
M5&]P(" @(" @(" @(" @(#T@(" W,#@P#0H@(" @("!7:61T:" @(" @(" @
M(" @/2 @(#DW-0T*(" @16YD#0H@("!"96=I;B!60BY,:7-T0F]X($QI<W0Q
M( T*(" @(" @2&5I9VAT(" @(" @(" @(#T@(" S,S<U#0H@(" @("!,969T
M(" @(" @(" @(" @/2 @(#$R, T*(" @(" @4V]R=&5D(" @(" @(" @(#T@
M(" M,2 @)U1Rd-"B @(" @(%1A8DEN9&5X(" @(" @(" ](" @, T*(" @
M(" @5&]P(" @(" @(" @(" @(#T@(" Q,C -"B @(" @(%=I9'1H(" @(" @
M(" @(" ](" @.# U-0T*(" @16YD#0I%;F0-"D%T=')I8G5T92!60E].86UE
M(#T@(D9O<FTQ(@T*071T<FEBqE(%9"7T=L;V)A;$YA;653<&%C92 ]($9A
M;'-E#0I!='1R:6)U=&)?0W)E871A8FQE(#%L<V4-"D%T=')I8G5T
M92!60E]0<F5D96-L87)E9$ED(#')U90T*071T<FEBqE(%9"7T5X<&]S
M960@/2!&86QS90T*#0H@( T*(" G(&9O<FT@,2 Z($9E<FUE<E!R;V<-"B @
M(" G#0H@($]P=&EO;B!%>'!L:6-I= T*(" G#0H@(%!R:79A=&&5C;&%R
M92!&=6YC=&EO;B!'971&;W)E9W)O=6YD5VEN9&]W($QI8B B=7-E<C,R(B H
M*2!!<R!,;VYG#0H@("=H=VYD("AH86YD;&&4@;&$@9F]R;64I#0H@("<-
M"B @4')I=F%T92!$96-L87)E($9U;F-T:6]N($=E=%=I;F1O=U1E>'&EB
M(")U<V5R,S(B($%L:6%S(")'9717:6YD;WI7AT02(@7PT*(" @("A">59A
M;"!H=VYD($%S($QO;F<L($)Y5F%L(&QP4W1R:6YG($%S(%-T
($%S($QO;F<I($%S($QO;F<-"B @(" G#0H@(%!R:79A=&&5C
M;&%R92!&=6YC=&EO;B!%;G5M5VEN9&]W<R!,:6(@(G5S97(S,B(@7PT*(" @
M("A">59A;"!L<$5N=6U&=6YC($%S($QO;F<L($)Y5F%L(&Q087)A;2!!<R!,
M;VYG*2!!<R!,;VYG#0H@(" @)PT*("!0<FEV871E($1E8VQA
M;<V5(86YD;&&EB(")K97)N96PS,B(@*"!?#0H@(" @0GE686P@
M:$]B:F5C="!!<R!,;VYG*2!!<R!,;VYG#0H@(" @)PT*("!0<FEV871E($1E
M8VQA;%=I;F1O=R!,:6(@(G5S97(S,B(@06QI87,@
M(D9I;F17:6YD;W=!(B H0GE686P@;'!#;&%S<TYA;,@4W1R:6YG+"!"
M>59A;"!L<%=I;F1O=TYA;,@4W1R:6YG*2!!<R!,;VYG#0H@("<-"B @
M4')I=F%T92!$96-L87)E($9U;F-T:6]N($-L;W-E5VEN9&]W($QI8B B=7-E
M<C,R(B H0GE686P@:'=N9"!!<R!,;VYG*2!!<R!,;VYG#0H@("<-"B @1&EM
M(&AA;F1L92!!<R!,;VYG#0H@("<-"B @#0H@( T*4W5B($9O<FU?3&]A9"@I
M#0H@($1I;2!X($%S($QO;F<-"B @1&EM(&,@3&]N9PT*("!$:6T@:'=N
M9"!!<R!,;VYG#0H@($1I;2!C:&%I;,@4W1R:6YG#0H@("<-"B @3&ES
M=#$N0VQE87(-"B @3&ES=#(N0VQE87(-"B @)PT*(" G(&AA;F1L92!D92!C
M971T92!F;W)M90T*("!H=VYD(#]R96=R;W5N9%=I;F1O=PT*("!,
M:7-T,BY!9&1)=&5M(")H86YD;&&=&]R;2 ]("(@)B!H=VYD
M#0H@("<-"B @)VQA;F-E(&)L;V,M;F]T97,@<&]U<B!T97-T97(@96YSnT
M92!S82!F97)M971U<F4-"B @>" ](%-H96QL*").;W1E4&%D+F5X92 B+" Q
M*0T*(" G#0H@($=E=%=I;F1O=W-,:7-T#0H@("<-"B @5&5X=#(@/2!,:7-T
M,2Y,:7-T0V]U;G0-"B @)RTM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+0T*("!&;W(@:2 ](# @5&@3&ES=#$N3&ES
M=$-O=6YT("T@,0T*(" @(&-H86EN92 ]($UI9"A,:7-T,2Y,:7-T*&DI+" Q
M,BP@,C4V*0T*(" @(&-H86EN92 ](%1R:6TH8VAA:6YE*0T*(" @(%1E>'0Q
M(#&5X=#$@)B!,:7-T,2Y,:7-T*&DI("8@=F)#<DQF#0H@(" @
M:6YE(#T@(E-A;G,@=&ET<F4@+2!";&]C+6YO=&5S(B!4:&5N#0H@(" @("!,
M:7-T,BY!9&1)=&5M(&-H86EN90T*(" @(" @:&%N9&QE(#*$QI<W0Q
M+DQI<W0H:2DL(#$L(#@I#0H@(" @("!,:7-T,BY!9&1)=&5M(")H86YD;&4@
MX"!F97)M97(@/2 B("8@:&%N9&QE#0H@(" @16YD($EF#0H@($YE>'0@:0T*
M16YD(%*#0H-"E-U8B!#;VUM86YD,5]#;&EC:("ù7)M97(-"B @
M1&EM($@@07,@3&]N9PT*("!((#%=I;F1O=RAV8DYU;&Q3=')I;F<L
M(")386YS('1I=')E(";W1E<R(I#0H@($-L;W-E5VEN9&]W($@-
M"B @3&ES=#(N061D271E;2 B1D523452(&AA;F1L92 ]("(@)B!(#0I%;F0@
M4W5B#0H-"@T*4')I=F%T92!&=6YC=&EO;B!%;G5M5VEN9&]W<U!R;V,H0GE6
M86P@;&=(=VYD($%S($QO;F<L($)Y5F%L(&QG4&%,@3&],@
M3&]N9PT*("!$:6T@<W14;7 @07,@4W1R:6YG+"!L9U1M<"!!<R!,;VYG+"!L
M9U)E="!!<R!,;VYG#0H@("<-"B @<W14;7 @/2!3<&%C920H,3(P*0T*("!L
M9U1M<" ](#$Q.0T*("!L9U)E=" ]($=E=%=I;F1O=U1E>'0H;&=(=VYD+"!S
M=%1M<"P@;&=4;7 I#0H@($EF($QE;BAS=%1M<"D@/B Q($%N9"!L9U)E="
M/B P(%1H96X-"B @("!&;W)M,2Y,:7-T,2Y!9&1)=&5M($9O<FUA="AL9TAW
M;F0L("(P,# P,# P,"(I("8@(B Z("(@)B!S=%1M< T*("!%;"B @
E16YU;5=I;F1O=W-0<F]C(#T@,0T*16YD($9U;F-T:6]N#0H-"@``
`
end

begin 666 Form1.frx
&!51E>'0Q
`
end

begin 666 Module1.bas
M071T<FEBqE(%9"7TYA;64@/2 B36]D=6QE,2(-"@T*(" G(&UO9'5L92 Q
M(#;65R4')O9PT*(" @("<-"B @4'5B;&EC($1E8VQA
M;&]W5&5X="!,:6(@(G5S97(S,B(@06QI87,@(D=E=%=I;F1O
M=U1E>'1!(B!?#0H@(" @*$)Y5F%L(&AW;,@3&]@;'!3
M=')I;F<@07,@4W1R:6YG+"!">59A;"!C8V@@07,@3&],@3&]N9PT*
M(" @(" @)PT*("!0=6)L:6,@1&5C;&%R92!&=6YC=&EO;B!%;G5M5VEN9&]W
M<R!,:6(@(G5S97(S,B(@7PT*(" @("A">59A;"!L<$5N=6U&=6YC($%S($QO
M;F<L($)Y5F%L(&Q087)A;2!!<R!,;VYG*2!!<R!,;VYG#0H@(" @)PT*#0H-
M"E!U8FQI8R!&=6YC=&EO;B!'9717:6YD;W=S3&ES="@I#0H@($1I;2!L9U)E
M<"!!<R!,;VYG#0H@("<-"B @<W1'9717:6YD;W=S3&ES=" ]('9B3G5L;%-T
M<FEN9PT*("!L9U)E<" ]($5N=6U7:6YD;W=S*$%D9')E<W-/9B!%;G5M5VEN
M9&]W<U!R;V,L(# I#0I%;;VX-"@T*#0I0=6)L:6,@1G5N8W1I
M;;5=I;F1O=W-0<F]C*$)Y5F%L(&QG2'=N9"!!<R!,;VYG+"!">59A
M;"!L9U!A<F%M($%S($QO;F<I($%S($QO;F<-"B @1&EM('-T5&UP($%S(%-T
M<FEN9RP@;&=4;7 @07,@3&]N9RP@;&),@3&]N9PT*(" G#0H@('-T
M5&UP(#!A8V4D*#$R,"D-"B @;&=4;7 @/2 Q,3D-"B @;&)70@/2!'
M9717:6YD;WI7AT*&QG2'=N9"P@<W14;7 L(&QG5&UP*0T*("!)9B!,96XH
M<W14;7 I(#X@,2!!;F0@;&)70@/#X@,"!4:&5N#0H@(" @1F]R;3$N3&ES
M=#$N061D271E;2!&;W)M870H;&=(=VYD+" B,# P,# P,# B*2 F("(@.B B
M("8@<W14;7 -"B @16YD($EF#0H@($5N=6U7:6YD;W=S4')O8R ](#$-"D5N
.9"!&=6YC=&EO;@T*#0H`
`
end

Salut,

Voici le code (y en a beaucoup), on liste en boucle les handles et on
supprime celui recherché, tout y est, ci-joint sources aussi:

-----------------------------
' form 1 : FermerProg
'
Option Explicit
'
Private Declare Function GetForegroundWindow Lib "user32" () As Long
'hwnd (handle de la forme)
'
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA"
_
(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As
Long
'
Private Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
'
Private Declare Function CloseHandle Lib "kernel32" ( _
ByVal hObject As Long) As Long
'
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA"
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'
Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As
Long
'
Dim handle As Long
'

Sub Form_Load()
Dim x As Long
Dim i As Long
Dim hwnd As Long
Dim chaine As String
'
List1.Clear
List2.Clear
'
' handle de cette forme
hwnd = GetForegroundWindow
List2.AddItem "handle de cette form = " & hwnd
'
'lance bloc-notes pour tester ensuite sa fermeture
x = Shell("NotePad.exe ", 1)
'
GetWindowsList
'
Text2 = List1.ListCount
'------------------------------------------------
For i = 0 To List1.ListCount - 1
chaine = Mid(List1.List(i), 12, 256)
chaine = Trim(chaine)
Text1 = Text1 & List1.List(i) & vbCrLf
If chaine = "Sans titre - Bloc-notes" Then
List2.AddItem chaine
handle = Mid(List1.List(i), 1, 8)
List2.AddItem "handle à fermer = " & handle
End If
Next i
End Sub

Sub Command1_Click() 'fermer
Dim H As Long
H = FindWindow(vbNullString, "Sans titre - Bloc-notes")
CloseWindow H
List2.AddItem "FERMER handle = " & H
End Sub

Private Function EnumWindowsProc(ByVal lgHwnd As Long, ByVal lgParam As
Long) As Long
Dim stTmp As String, lgTmp As Long, lgRet As Long
'
stTmp = Space$(120)
lgTmp = 119
lgRet = GetWindowText(lgHwnd, stTmp, lgTmp)
If Len(stTmp) > 1 And lgRet <> 0 Then
Form1.List1.AddItem Format(lgHwnd, "00000000") & " : " & stTmp
End If
EnumWindowsProc = 1
End Function

------------------
MODULE1
------------------
Text2 = List1.ListCount
'
For i = 0 To List1.ListCount - 1
chaine = Mid(List1.List(i), 12, 256)
chaine = Trim(chaine)
Text1 = Text1 & List1.List(i) & vbCrLf
If chaine = "Sans titre - Bloc-notes" Then
List2.AddItem chaine
handle = Mid(List1.List(i), 1, 8)
List2.AddItem "handle à fermer = " & handle
End If
Next i
End Sub

Sub Command1_Click() 'fermer
Dim H As Long
H = FindWindow(vbNullString, "Sans titre - Bloc-notes")
CloseWindow H
List2.AddItem "FERMER handle = " & H
End Sub

Private Function EnumWindowsProc(ByVal lgHwnd As Long, ByVal lgParam As
Long) As Long
Dim stTmp As String, lgTmp As Long, lgRet As Long
'
stTmp = Space$(120)
lgTmp = 119
lgRet = GetWindowText(lgHwnd, stTmp, lgTmp)
If Len(stTmp) > 1 And lgRet <> 0 Then
Form1.List1.AddItem Format(lgHwnd, "00000000") & " : " & stTmp
End If
EnumWindowsProc = 1
End Function

"Informatique_LIDV" <alain.souniou.pasdepub@wanadoo.fr> a écrit dans le
message de news: %23QoMY2f$EHA.3368@TK2MSFTNGP15.phx.gbl...

Bonjour,
Dans un programme VB, je souhaiterai tester si un autre programme VB est
en
cours d'exécution ou non.

J'ai trouvé la fonction PrevInstance mais je ne sais pas comment déclarer
l'objet Application pour définir l'autre appli.

Merci pour votre aide

Laëtitia

begin 666 FermerProg.vbp
M5'EP93U%>&4-"D9O<FT]1F]R;3$N9G)M#0I2969E<F5N8V4]*EQ'>S P,#(P
M-#,P+3 P,# M,# P,"U#,# P+3 P,# P,# P,# T-GTC,BXP(S C+BY<+BY<
M+BY<+BY<+BY<+BY<+BY<+BY<+BY<5TE.1$]74UQ3>7-T96TS,EQS=&1O;&4R
M+G1L8B-/3$4@075T;VUA=&EO;@T*36]D=6QE/4UO9'5L93$[($UO9'5L93$N
M8F%S#0I)8V]N1F]R;3TB1F]R;3$B#0I3=&%R='5P/2)&;W)M,2(-"D-O;6UA
M;F0S,CTB(@T*3F%M93TB4')O:F5T,2(-"DAE;'!#;VYT97AT240](C B#0I#
M;VUP871I8FQE36]D93TB,"(-"DUA:F]R5F5R/3$-"DUI;F]R5F5R/3 -"E)E
MþS:6]N5F5R/3 -"D%U=&]);F-R96UE;G1697(], T*4V5RõR4W5P<&]R
M=$9I;&5S/3 -"E9E<G-I;VY#;VUP86YY3F%M93TB4&5R<VB#0I#;VUP:6QA
M=&EO;E1Y<&4], T*3W!T:6UI>F%T:6]N5'EP93TP#0I&879O<E!E;G1I=6U0
M<FH=&TI/3 -"D-O9&56:65W1&5B=6=);F9O/3 -"DYO06QI87-I;F<], T*
M0F]U;F1S0VAE8VL], T*3W9E<F9L;W=#:&5C:STP#0I&;%!O:6YT0VAE8VL]
M, T*1D1)5D-H96-K/3 -"E5N<F]U;F1E9$90/3 -"E-T87)T36]D93TP#0I5
M;F%T=&5N9&5D/3 -"E)E=&%I;F5D/3 -"E1H<F5A9%!E<D]B:F5C=#TP#0I-
587A.=6UB97)/9E1H<F5A9',],0T*
`
end

begin 666 Form1.frm
M5D524TE/3B U+C P#0I"96=I;B!60BY&;W)M($9O<FTQ( T*(" @0V%P=&EO
M;B @(" @(" @(#T@(" B1F]R;3$B#0H@("!#;&EE;G1(96EG:'0@(" @/2 @
M(#@V,C4-"B @($-L:65N=$QE9G0@(" @(" ](" @,C@U#0H@("!#;&EE;G14
M;W @(" @(" @/2 @(#4W, T*(" @0VQI96YT5VED=&@@(" @(#T@(" X-#,P
M#0H@("!,:6YK5&]P:6,@(" @(" @/2 @(")&;W)M,2(-"B @(%-C86QE2&5I
M9VAT(" @(" ](" @.#8R-0T*(" @4V-A;&57:61T:" @(" @(#T@(" X-#,P
M#0H@("!"96=I;B!60BY497AT0F]X(%1E>'0Q( T*(" @(" @0F5G:6Y0<F]P
M97)T>2!&;VYT( T*(" @(" @(" @3F%M92 @(" @(" @(" @(#T@(" B0V]U
M<FEE<B!.97<B#0H@(" @(" @("!3:7IE(" @(" @(" @(" @/2 @(#D-"B @
M(" @(" @($-H87)S970@(" @(" @(" ](" @, T*(" @(" @(" @5V5I9VAT
M(" @(" @(" @(#T@(" T,# -"B @(" @(" @(%5N9&5R;&EN92 @(" @(" ]
M(" @," @("=&86QS90T*(" @(" @(" @271A;&EC(" @(" @(" @(#T@(" P
M(" @)T9A;'-E#0H@(" @(" @("!3=')I:V5T:')O=6=H(" @/2 @(# @(" G
M1F%L<V4-"B @(" @($5N9%!R;W!E<G1Y#0H@(" @("!(96EG:'0@(" @(" @
M(" @/2 @(#,Q,S4-"B @(" @($QE9G0@(" @(" @(" @(" ](" @,3(P#0H@
M(" @("!-=6QT:4QI;F4@(" @(" @/2 @("TQ(" G5')U90T*(" @(" @4V-R
M;VQL0F%R<R @(" @(#T@(" R(" G5F5R=&EC86P-"B @(" @(%1A8DEN9&5X
M(" @(" @(" ](" @- T*(" @(" @5&5X=" @(" @(" @(" @(#T@(" B1F]R
M;3$N9G)X(CHP,# P#0H@(" @("!4;W @(" @(" @(" @(" @/2 @(#,W,C -
M"B @(" @(%=I9'1H(" @(" @(" @(" ](" @.# U-0T*(" @16YD#0H@("!"
M96=I;B!60BY#;VUM86YD0G5T=&]N($-O;6UA;F0Q( T*(" @(" @0V%P=&EO
M;B @(" @(" @(#T@(" B1F5R<FUE(@T*(" @(" @2&5I9VAT(" @(" @(" @
M(#T@(" T.34-"B @(" @($QE9G0@(" @(" @(" @(" ](" @-S(P, T*(" @
M(" @5&%B26YD97@@(" @(" @(#T@(" S#0H@(" @("!4;W @(" @(" @(" @
M(" @/2 @(#@P-# -"B @(" @(%=I9'1H(" @(" @(" @(" ](" @.3<U#0H@
M("!%;F0-"B @($)E9VEN(%9"+DQI<W1";W@@3&ES=#(@#0H@(" @("!(96EG
M:'0@(" @(" @(" @/2 @(#$R,S -"B @(" @($QE9G0@(" @(" @(" @(" ]
M(" @,3(P#0H@(" @("!486));F1E>" @(" @(" @/2 @(#(-"B @(" @(%1O
M<" @(" @(" @(" @(" ](" @-S X, T*(" @(" @5VED=&@@(" @(" @(" @
M(#T@(" V.#4U#0H@("!%;F0-"B @($)E9VEN(%9"+E1E>'1";W@@5&5X=#(@
M#0H@(" @("!(96EG:'0@(" @(" @(" @/2 @(#,W-0T*(" @(" @3&5F=" @
M(" @(" @(" @(#T@(" W,C P#0H@(" @("!486));F1E>" @(" @(" @/2 @
M(#$-"B @(" @(%1E>'0@(" @(" @(" @(" ](" @(E1E>'0R(@T*(" @(" @
M5&]P(" @(" @(" @(" @(#T@(" W,#@P#0H@(" @("!7:61T:" @(" @(" @
M(" @/2 @(#DW-0T*(" @16YD#0H@("!"96=I;B!60BY,:7-T0F]X($QI<W0Q
M( T*(" @(" @2&5I9VAT(" @(" @(" @(#T@(" S,S<U#0H@(" @("!,969T
M(" @(" @(" @(" @/2 @(#$R, T*(" @(" @4V]R=&5D(" @(" @(" @(#T@
M(" M,2 @)U1Rd-"B @(" @(%1A8DEN9&5X(" @(" @(" ](" @, T*(" @
M(" @5&]P(" @(" @(" @(" @(#T@(" Q,C -"B @(" @(%=I9'1H(" @(" @
M(" @(" ](" @.# U-0T*(" @16YD#0I%;F0-"D%T=')I8G5T92!60E].86UE
M(#T@(D9O<FTQ(@T*071T<FEBqE(%9"7T=L;V)A;$YA;653<&%C92 ]($9A
M;'-E#0I!='1R:6)U=&4@5D)?0W)E871A8FQE(#T@1F%L<V4-"D%T=')I8G5T
M92!60E]0<F5D96-L87)E9$ED(#T@5')U90T*071T<FEBqE(%9"7T5X<&]S
M960@/2!&86QS90T*#0H@( T*(" G(&9O<FT@,2 Z($9E<FUE<E!R;V<-"B @
M(" G#0H@($]P=&EO;B!%>'!L:6-I= T*(" G#0H@(%!R:79A=&4@1&5C;&%R
M92!&=6YC=&EO;B!'971&;W)E9W)O=6YD5VEN9&]W($QI8B B=7-E<C,R(B H
M*2!!<R!,;VYG#0H@("=H=VYD("AH86YD;&4@9&4@;&$@9F]R;64I#0H@("<-
M"B @4')I=F%T92!$96-L87)E($9U;F-T:6]N($=E=%=I;F1O=U1E>'0@3&EB
M(")U<V5R,S(B($%L:6%S(")'9717:6YD;WI7AT02(@7PT*(" @("A">59A
M;"!H=VYD($%S($QO;F<L($)Y5F%L(&QP4W1R:6YG($%S(%-T<FEN9RP@0GE6
M86P@8V-H($%S($QO;F<I($%S($QO;F<-"B @(" G#0H@(%!R:79A=&4@1&5C
M;&%R92!&=6YC=&EO;B!%;G5M5VEN9&]W<R!,:6(@(G5S97(S,B(@7PT*(" @
M("A">59A;"!L<$5N=6U&=6YC($%S($QO;F<L($)Y5F%L(&Q087)A;2!!<R!,
M;VYG*2!!<R!,;VYG#0H@(" @)PT*("!0<FEV871E($1E8VQA<F4@1G5N8W1I
M;VX@0VQO<V5(86YD;&4@3&EB(")K97)N96PS,B(@*"!?#0H@(" @0GE686P@
M:$]B:F5C="!!<R!,;VYG*2!!<R!,;VYG#0H@(" @)PT*("!0<FEV871E($1E
M8VQA<F4@1G5N8W1I;VX@1FEN9%=I;F1O=R!,:6(@(G5S97(S,B(@06QI87,@
M(D9I;F17:6YD;W=!(B H0GE686P@;'!#;&%S<TYA;64@07,@4W1R:6YG+"!"
M>59A;"!L<%=I;F1O=TYA;64@07,@4W1R:6YG*2!!<R!,;VYG#0H@("<-"B @
M4')I=F%T92!$96-L87)E($9U;F-T:6]N($-L;W-E5VEN9&]W($QI8B B=7-E
M<C,R(B H0GE686P@:'=N9"!!<R!,;VYG*2!!<R!,;VYG#0H@("<-"B @1&EM
M(&AA;F1L92!!<R!,;VYG#0H@("<-"B @#0H@( T*4W5B($9O<FU?3&]A9"@I
M#0H@($1I;2!X($%S($QO;F<-"B @1&EM(&D@07,@3&]N9PT*("!$:6T@:'=N
M9"!!<R!,;VYG#0H@($1I;2!C:&%I;F4@07,@4W1R:6YG#0H@("<-"B @3&ES
M=#$N0VQE87(-"B @3&ES=#(N0VQE87(-"B @)PT*(" G(&AA;F1L92!D92!C
M971T92!F;W)M90T*("!H=VYD(#T@1V5T1F]R96=R;W5N9%=I;F1O=PT*("!,
M:7-T,BY!9&1)=&5M(")H86YD;&4@9&4@8V5T=&4@9F]R;2 ]("(@)B!H=VYD
M#0H@("<-"B @)VQA;F-E(&)L;V,M;F]T97,@<&]U<B!T97-T97(@96YSnT
M92!S82!F97)M971U<F4-"B @>" ](%-H96QL*").;W1E4&%D+F5X92 B+" Q
M*0T*(" G#0H@($=E=%=I;F1O=W-,:7-T#0H@("<-"B @5&5X=#(@/2!,:7-T
M,2Y,:7-T0V]U;G0-"B @)RTM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+0T*("!&;W(@:2 ](# @5&@3&ES=#$N3&ES
M=$-O=6YT("T@,0T*(" @(&-H86EN92 ]($UI9"A,:7-T,2Y,:7-T*&DI+" Q
M,BP@,C4V*0T*(" @(&-H86EN92 ](%1R:6TH8VAA:6YE*0T*(" @(%1E>'0Q
M(#T@5&5X=#$@)B!,:7-T,2Y,:7-T*&DI("8@=F)#<DQF#0H@(" @268@8VAA
M:6YE(#T@(E-A;G,@=&ET<F4@+2!";&]C+6YO=&5S(B!4:&5N#0H@(" @("!,
M:7-T,BY!9&1)=&5M(&-H86EN90T*(" @(" @:&%N9&QE(#T@36ED*$QI<W0Q
M+DQI<W0H:2DL(#$L(#@I#0H@(" @("!,:7-T,BY!9&1)=&5M(")H86YD;&4@
MX"!F97)M97(@/2 B("8@:&%N9&QE#0H@(" @16YD($EF#0H@($YE>'0@:0T*
M16YD(%-U8@T*#0H-"E-U8B!#;VUM86YD,5]#;&EC:R@I("ù7)M97(-"B @
M1&EM($@@07,@3&]N9PT*("!((#T@1FEN9%=I;F1O=RAV8DYU;&Q3=')I;F<L
M(")386YS('1I=')E("T@0FQO8RUN;W1E<R(I#0H@($-L;W-E5VEN9&]W($@-
M"B @3&ES=#(N061D271E;2 B1D523452(&AA;F1L92 ]("(@)B!(#0I%;F0@
M4W5B#0H-"@T*4')I=F%T92!&=6YC=&EO;B!%;G5M5VEN9&]W<U!R;V,H0GE6
M86P@;&=(=VYD($%S($QO;F<L($)Y5F%L(&QG4&%R86T@07,@3&]N9RD@07,@
M3&]N9PT*("!$:6T@<W14;7 @07,@4W1R:6YG+"!L9U1M<"!!<R!,;VYG+"!L
M9U)E="!!<R!,;VYG#0H@("<-"B @<W14;7 @/2!3<&%C920H,3(P*0T*("!L
M9U1M<" ](#$Q.0T*("!L9U)E=" ]($=E=%=I;F1O=U1E>'0H;&=(=VYD+"!S
M=%1M<"P@;&=4;7 I#0H@($EF($QE;BAS=%1M<"D@/B Q($%N9"!L9U)E="
M/B P(%1H96X-"B @("!&;W)M,2Y,:7-T,2Y!9&1)=&5M($9O<FUA="AL9TAW
M;F0L("(P,# P,# P,"(I("8@(B Z("(@)B!S=%1M< T*("!%;F0@268-"B @
E16YU;5=I;F1O=W-0<F]C(#T@,0T*16YD($9U;F-T:6]N#0H-"@``
`
end

begin 666 Form1.frx
&!51E>'0Q
`
end

begin 666 Module1.bas
M071T<FEBqE(%9"7TYA;64@/2 B36]D=6QE,2(-"@T*(" G(&UO9'5L92 Q
M(#H@1F5R;65R4')O9PT*(" @("<-"B @4'5B;&EC($1E8VQA<F4@1G5N8W1I
M;VX@1V5T5VEN9&]W5&5X="!,:6(@(G5S97(S,B(@06QI87,@(D=E=%=I;F1O
M=U1E>'1!(B!?#0H@(" @*$)Y5F%L(&AW;F0@07,@3&]N9RP@0GE686P@;'!3
M=')I;F<@07,@4W1R:6YG+"!">59A;"!C8V@@07,@3&]N9RD@07,@3&]N9PT*
M(" @(" @)PT*("!0=6)L:6,@1&5C;&%R92!&=6YC=&EO;B!%;G5M5VEN9&]W
M<R!,:6(@(G5S97(S,B(@7PT*(" @("A">59A;"!L<$5N=6U&=6YC($%S($QO
M;F<L($)Y5F%L(&Q087)A;2!!<R!,;VYG*2!!<R!,;VYG#0H@(" @)PT*#0H-
M"E!U8FQI8R!&=6YC=&EO;B!'9717:6YD;W=S3&ES="@I#0H@($1I;2!L9U)E
M<"!!<R!,;VYG#0H@("<-"B @<W1'9717:6YD;W=S3&ES=" ]('9B3G5L;%-T
M<FEN9PT*("!L9U)E<" ]($5N=6U7:6YD;W=S*$%D9')E<W-/9B!%;G5M5VEN
M9&]W<U!R;V,L(# I#0I%;F0@1G5N8W1I;VX-"@T*#0I0=6)L:6,@1G5N8W1I
M;VX@16YU;5=I;F1O=W-0<F]C*$)Y5F%L(&QG2'=N9"!!<R!,;VYG+"!">59A
M;"!L9U!A<F%M($%S($QO;F<I($%S($QO;F<-"B @1&EM('-T5&UP($%S(%-T
M<FEN9RP@;&=4;7 @07,@3&]N9RP@;&)70@07,@3&]N9PT*(" G#0H@('-T
M5&UP(#T@4W!A8V4D*#$R,"D-"B @;&=4;7 @/2 Q,3D-"B @;&)70@/2!'
M9717:6YD;WI7AT*&QG2'=N9"P@<W14;7 L(&QG5&UP*0T*("!)9B!,96XH
M<W14;7 I(#X@,2!!;F0@;&)70@/#X@,"!4:&5N#0H@(" @1F]R;3$N3&ES
M=#$N061D271E;2!&;W)M870H;&=(=VYD+" B,# P,# P,# B*2 F("(@.B B
M("8@<W14;7 -"B @16YD($EF#0H@($5N=6U7:6YD;W=S4')O8R ](#$-"D5N
.9"!&=6YC=&EO;@T*#0H`
`
end

Vous avez filtré cet utilisateur ! Consultez son message

Salut,

Voici le code (y en a beaucoup), on liste en boucle les handles et on
supprime celui recherché, tout y est, ci-joint sources aussi:

-----------------------------
' form 1 : FermerProg
'
Option Explicit
'
Private Declare Function GetForegroundWindow Lib "user32" () As Long
'hwnd (handle de la forme)
'
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA"
_
(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As
Long
'
Private Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
'
Private Declare Function CloseHandle Lib "kernel32" ( _
ByVal hObject As Long) As Long
'
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA"
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'
Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As
Long
'
Dim handle As Long
'

Sub Form_Load()
Dim x As Long
Dim i As Long
Dim hwnd As Long
Dim chaine As String
'
List1.Clear
List2.Clear
'
' handle de cette forme
hwnd = GetForegroundWindow
List2.AddItem "handle de cette form = " & hwnd
'
'lance bloc-notes pour tester ensuite sa fermeture
x = Shell("NotePad.exe ", 1)
'
GetWindowsList
'
Text2 = List1.ListCount
'------------------------------------------------
For i = 0 To List1.ListCount - 1
chaine = Mid(List1.List(i), 12, 256)
chaine = Trim(chaine)
Text1 = Text1 & List1.List(i) & vbCrLf
If chaine = "Sans titre - Bloc-notes" Then
List2.AddItem chaine
handle = Mid(List1.List(i), 1, 8)
List2.AddItem "handle à fermer = " & handle
End If
Next i
End Sub

Sub Command1_Click() 'fermer
Dim H As Long
H = FindWindow(vbNullString, "Sans titre - Bloc-notes")
CloseWindow H
List2.AddItem "FERMER handle = " & H
End Sub

Private Function EnumWindowsProc(ByVal lgHwnd As Long, ByVal lgParam As
Long) As Long
Dim stTmp As String, lgTmp As Long, lgRet As Long
'
stTmp = Space$(120)
lgTmp = 119
lgRet = GetWindowText(lgHwnd, stTmp, lgTmp)
If Len(stTmp) > 1 And lgRet <> 0 Then
Form1.List1.AddItem Format(lgHwnd, "00000000") & " : " & stTmp
End If
EnumWindowsProc = 1
End Function

------------------
MODULE1
------------------
Text2 = List1.ListCount
'
For i = 0 To List1.ListCount - 1
chaine = Mid(List1.List(i), 12, 256)
chaine = Trim(chaine)
Text1 = Text1 & List1.List(i) & vbCrLf
If chaine = "Sans titre - Bloc-notes" Then
List2.AddItem chaine
handle = Mid(List1.List(i), 1, 8)
List2.AddItem "handle à fermer = " & handle
End If
Next i
End Sub

Sub Command1_Click() 'fermer
Dim H As Long
H = FindWindow(vbNullString, "Sans titre - Bloc-notes")
CloseWindow H
List2.AddItem "FERMER handle = " & H
End Sub

Private Function EnumWindowsProc(ByVal lgHwnd As Long, ByVal lgParam As
Long) As Long
Dim stTmp As String, lgTmp As Long, lgRet As Long
'
stTmp = Space$(120)
lgTmp = 119
lgRet = GetWindowText(lgHwnd, stTmp, lgTmp)
If Len(stTmp) > 1 And lgRet <> 0 Then
Form1.List1.AddItem Format(lgHwnd, "00000000") & " : " & stTmp
End If
EnumWindowsProc = 1
End Function

"Informatique_LIDV" a écrit dans le
message de news: %23QoMY2f$

Bonjour,
Dans un programme VB, je souhaiterai tester si un autre programme VB est
en
cours d'exécution ou non.

J'ai trouvé la fonction PrevInstance mais je ne sais pas comment déclarer
l'objet Application pour définir l'autre appli.

Merci pour votre aide

Laëtitia

begin 666 FermerProg.vbp
M5'EP93U%>&4-"D9O<FT]1F]R;3$N9G)M#0I2969E<F5N8V4]*EQ'>S P,#(P
M-#,P+3 P,# M,# P,"U#,# P+3 P,# P,# P,# T-GTC,BXP(S C+BY<+BY<
M+BY<+BY<+BY<+BY<+BY<+BY<+BY<5TE.1$]74UQ3>7-T96TS,EQS=&1O;&4R
M+G1L8B-/3$;VUA=&EO;@T*36]D=6QE/4UO9'5L93$[($UO9'5L93$N
M8F%S#0I)8V]N1F]R;3TB1F]R;3$B#0I3=&%R='5P/2)&;W)M,2(-"D-O;6UA
M;F0S,CTB(@T*3F%M93TB4')O:F5T,2(-"DAE;'!#;VYT97AT240](C B#0I#
M;VUP871I8FQE36]D93TB,"(-"DUA:F]R5F5R/3$-"DUI;F]R5F5R/3 -"E)E
MþS:6]N5F5R/3 -"D%U=&]);F-R96UE;G1697(], T*4V5RõR4W5P<&]R
M=$9I;&5S/3 -"E9E<G-I;VY#;VUP86YY3F%M93TB4&5R<VB#0I#;VUP:6QA
M=&EO;E1Y<&4], T*3W!T:6UI>F%T:6]N5'EP93TP#0I&879O<E!E;G1I=6U0
M<FH=&TI/3 -"D-O9&56:65W1&5B=6=);F9O/3 -"DYO06QI87-I;F<], T*
M0F]U;F1S0VAE8VL], T*3W9E<F9L;W=#:&5C:STP#0I&;%!O:6YT0VAE8VL]
M, T*1D1)5D-H96-K/3 -"E5N<F]U;F1E9$90/3 -"E-T87)T36]D93TP#0I5
M;F%T=&5N9&5D/3 -"E)E=&%I;F5D/3 -"E1H<F5A9%!E<D]B:F5C=#TP#0I-
587A.=6UB97)/9E1H<F5A9',],0T*
`
end

begin 666 Form1.frm
M5D524TE/3B U+C P#0I"96=I;B!60BY&;W)M($9O<FTQ( T*(" @0V%P=&EO
M;B @(" @(" @(#T@(" B1F]R;3$B#0H@("!#;&EE;G1(96EG:'0@(" @/2 @
M(#@V,C4-"B @($-L:65N=$QE9G0@(" @(" ](" @,#0H@("!#;&EE;G14
M;W @(" @(" @/2 @(#4W, T*(" @0VQI96YT5VED=&@@(" @(#T@(" X-#,P
M#0H@("!,:6YK5&]P:6,@(" @(" @/2 @(")&;W)M,2(-"B @(%-C86QE2&5I
M9VAT(" @(" ](" @.#8R-0T*(" @4V-A;&57:61T:" @(" @(#T@(" X-#,P
M#0H@("!"96=I;B!60BY497AT0F]X(%1E>'0Q( T*(" @(" @0F5G:6Y0<F]P
M97)T>2!&;VYT( T*(" @(" @(" @3F%M92 @(" @(" @(" @(#T@(" B0V]U
M<FEE<B!.97<B#0H@(" @(" @("!3:7IE(" @(" @(" @(" @/2 @(#D-"B @
M(" @(" @($-H87)S970@(" @(" @(" ](" @, T*(" @(" @(" @5V5I9VAT
M(" @(" @(" @(#T@(" T,# -"B @(" @(" @(%5N9&5R;&EN92 @(" @(" ]
M(" @," @("=&86QS90T*(" @(" @(" @271A;&EC(" @(" @(" @(#T@(" P
M(" @)T9A;'-E#0H@(" @(" @("!3=')I:V5T:')O=6=H(" @/2 @(# @(" G
M1F%L<V4-"B @(" @($5N9%!R;W!E<G1Y#0H@(" @("!(96EG:'0@(" @(" @
M(" @/2 @(#,Q,S4-"B @(" @($QE9G0@(" @(" @(" @(" ](" @,3(P#0H@
M(" @("!-=6QT:4QI;F4@(" @(" @/2 @("TQ(" G5')U90T*(" @(" @4V-R
M;VQL0F%R<R @(" @(#T@(" R(" G5F5R=&EC86P-"B @(" @(%1A8DEN9&5X
M(" @(" @(" ](" @- T*(" @(" @5&5X=" @(" @(" @(" @(#T@(" B1F]R
M;3$N9G)X(CHP,# P#0H@(" @("!4;W @(" @(" @(" @(" @/2 @(#,W,C -
M"B @(" @(%=I9'1H(" @(" @(" @(" ](" @.# U-0T*(" @16YD#0H@("!"
M96=I;B!60BY#;VUM86YD0G5T=&]N($-O;6UA;F0Q( T*(" @(" @0V%P=&EO
M;B @(" @(" @(#T@(" B1F5R<FUE(@T*(" @(" @2&5I9VAT(" @(" @(" @
M(#T@(" T.34-"B @(" @($QE9G0@(" @(" @(" @(" ](" @-S(P, T*(" @
M(" @5&%B26YD97@@(" @(" @(#T@(" S#0H@(" @("!4;W @(" @(" @(" @
M(" @/2 @(#@P-# -"B @(" @(%=I9'1H(" @(" @(" @(" ](" @.3<U#0H@
M("!%;F0-"B @($)E9VEN(%9"+DQI<W1";W@@3&ES=#(@#0H@(" @("!(96EG
M:'0@(" @(" @(" @/2 @(#$R,S -"B @(" @($QE9G0@(" @(" @(" @(" ]
M(" @,3(P#0H@(" @("!486));F1E>" @(" @(" @/2 @(#(-"B @(" @(%1O
M<" @(" @(" @(" @(" ](" @-S X, T*(" @(" @5VED=&@@(" @(" @(" @
M(#T@(" V.#4U#0H@("!%;F0-"B @($)E9VEN(%9"+E1E>'1";W@@5&5X=#(@
M#0H@(" @("!(96EG:'0@(" @(" @(" @/2 @(#,W-0T*(" @(" @3&5F=" @
M(" @(" @(" @(#T@(" W,C P#0H@(" @("!486));F1E>" @(" @(" @/2 @
M(#$-"B @(" @(%1E>'0@(" @(" @(" @(" ](" @(E1E>'0R(@T*(" @(" @
M5&]P(" @(" @(" @(" @(#T@(" W,#@P#0H@(" @("!7:61T:" @(" @(" @
M(" @/2 @(#DW-0T*(" @16YD#0H@("!"96=I;B!60BY,:7-T0F]X($QI<W0Q
M( T*(" @(" @2&5I9VAT(" @(" @(" @(#T@(" S,S<U#0H@(" @("!,969T
M(" @(" @(" @(" @/2 @(#$R, T*(" @(" @4V]R=&5D(" @(" @(" @(#T@
M(" M,2 @)U1Rd-"B @(" @(%1A8DEN9&5X(" @(" @(" ](" @, T*(" @
M(" @5&]P(" @(" @(" @(" @(#T@(" Q,C -"B @(" @(%=I9'1H(" @(" @
M(" @(" ](" @.# U-0T*(" @16YD#0I%;F0-"D%T=')I8G5T92!60E].86UE
M(#T@(D9O<FTQ(@T*071T<FEBqE(%9"7T=L;V)A;$YA;653<&%C92 ]($9A
M;'-E#0I!='1R:6)U=&)?0W)E871A8FQE(#%L<V4-"D%T=')I8G5T
M92!60E]0<F5D96-L87)E9$ED(#')U90T*071T<FEBqE(%9"7T5X<&]S
M960@/2!&86QS90T*#0H@( T*(" G(&9O<FT@,2 Z($9E<FUE<E!R;V<-"B @
M(" G#0H@($]P=&EO;B!%>'!L:6-I= T*(" G#0H@(%!R:79A=&&5C;&%R
M92!&=6YC=&EO;B!'971&;W)E9W)O=6YD5VEN9&]W($QI8B B=7-E<C,R(B H
M*2!!<R!,;VYG#0H@("=H=VYD("AH86YD;&&4@;&$@9F]R;64I#0H@("<-
M"B @4')I=F%T92!$96-L87)E($9U;F-T:6]N($=E=%=I;F1O=U1E>'&EB
M(")U<V5R,S(B($%L:6%S(")'9717:6YD;WI7AT02(@7PT*(" @("A">59A
M;"!H=VYD($%S($QO;F<L($)Y5F%L(&QP4W1R:6YG($%S(%-T
($%S($QO;F<I($%S($QO;F<-"B @(" G#0H@(%!R:79A=&&5C
M;&%R92!&=6YC=&EO;B!%;G5M5VEN9&]W<R!,:6(@(G5S97(S,B(@7PT*(" @
M("A">59A;"!L<$5N=6U&=6YC($%S($QO;F<L($)Y5F%L(&Q087)A;2!!<R!,
M;VYG*2!!<R!,;VYG#0H@(" @)PT*("!0<FEV871E($1E8VQA
M;<V5(86YD;&&EB(")K97)N96PS,B(@*"!?#0H@(" @0GE686P@
M:$]B:F5C="!!<R!,;VYG*2!!<R!,;VYG#0H@(" @)PT*("!0<FEV871E($1E
M8VQA;%=I;F1O=R!,:6(@(G5S97(S,B(@06QI87,@
M(D9I;F17:6YD;W=!(B H0GE686P@;'!#;&%S<TYA;,@4W1R:6YG+"!"
M>59A;"!L<%=I;F1O=TYA;,@4W1R:6YG*2!!<R!,;VYG#0H@("<-"B @
M4')I=F%T92!$96-L87)E($9U;F-T:6]N($-L;W-E5VEN9&]W($QI8B B=7-E
M<C,R(B H0GE686P@:'=N9"!!<R!,;VYG*2!!<R!,;VYG#0H@("<-"B @1&EM
M(&AA;F1L92!!<R!,;VYG#0H@("<-"B @#0H@( T*4W5B($9O<FU?3&]A9"@I
M#0H@($1I;2!X($%S($QO;F<-"B @1&EM(&,@3&]N9PT*("!$:6T@:'=N
M9"!!<R!,;VYG#0H@($1I;2!C:&%I;,@4W1R:6YG#0H@("<-"B @3&ES
M=#$N0VQE87(-"B @3&ES=#(N0VQE87(-"B @)PT*(" G(&AA;F1L92!D92!C
M971T92!F;W)M90T*("!H=VYD(#]R96=R;W5N9%=I;F1O=PT*("!,
M:7-T,BY!9&1)=&5M(")H86YD;&&=&]R;2 ]("(@)B!H=VYD
M#0H@("<-"B @)VQA;F-E(&)L;V,M;F]T97,@<&]U<B!T97-T97(@96YSnT
M92!S82!F97)M971U<F4-"B @>" ](%-H96QL*").;W1E4&%D+F5X92 B+" Q
M*0T*(" G#0H@($=E=%=I;F1O=W-,:7-T#0H@("<-"B @5&5X=#(@/2!,:7-T
M,2Y,:7-T0V]U;G0-"B @)RTM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+0T*("!&;W(@:2 ](# @5&@3&ES=#$N3&ES
M=$-O=6YT("T@,0T*(" @(&-H86EN92 ]($UI9"A,:7-T,2Y,:7-T*&DI+" Q
M,BP@,C4V*0T*(" @(&-H86EN92 ](%1R:6TH8VAA:6YE*0T*(" @(%1E>'0Q
M(#&5X=#$@)B!,:7-T,2Y,:7-T*&DI("8@=F)#<DQF#0H@(" @
M:6YE(#T@(E-A;G,@=&ET<F4@+2!";&]C+6YO=&5S(B!4:&5N#0H@(" @("!,
M:7-T,BY!9&1)=&5M(&-H86EN90T*(" @(" @:&%N9&QE(#*$QI<W0Q
M+DQI<W0H:2DL(#$L(#@I#0H@(" @("!,:7-T,BY!9&1)=&5M(")H86YD;&4@
MX"!F97)M97(@/2 B("8@:&%N9&QE#0H@(" @16YD($EF#0H@($YE>'0@:0T*
M16YD(%*#0H-"E-U8B!#;VUM86YD,5]#;&EC:("ù7)M97(-"B @
M1&EM($@@07,@3&]N9PT*("!((#%=I;F1O=RAV8DYU;&Q3=')I;F<L
M(")386YS('1I=')E(";W1E<R(I#0H@($-L;W-E5VEN9&]W($@-
M"B @3&ES=#(N061D271E;2 B1D523452(&AA;F1L92 ]("(@)B!(#0I%;F0@
M4W5B#0H-"@T*4')I=F%T92!&=6YC=&EO;B!%;G5M5VEN9&]W<U!R;V,H0GE6
M86P@;&=(=VYD($%S($QO;F<L($)Y5F%L(&QG4&%,@3&],@
M3&]N9PT*("!$:6T@<W14;7 @07,@4W1R:6YG+"!L9U1M<"!!<R!,;VYG+"!L
M9U)E="!!<R!,;VYG#0H@("<-"B @<W14;7 @/2!3<&%C920H,3(P*0T*("!L
M9U1M<" ](#$Q.0T*("!L9U)E=" ]($=E=%=I;F1O=U1E>'0H;&=(=VYD+"!S
M=%1M<"P@;&=4;7 I#0H@($EF($QE;BAS=%1M<"D@/B Q($%N9"!L9U)E="
M/B P(%1H96X-"B @("!&;W)M,2Y,:7-T,2Y!9&1)=&5M($9O<FUA="AL9TAW
M;F0L("(P,# P,# P,"(I("8@(B Z("(@)B!S=%1M< T*("!%;"B @
E16YU;5=I;F1O=W-0<F]C(#T@,0T*16YD($9U;F-T:6]N#0H-"@``
`
end

begin 666 Form1.frx
&!51E>'0Q
`
end

begin 666 Module1.bas
M071T<FEBqE(%9"7TYA;64@/2 B36]D=6QE,2(-"@T*(" G(&UO9'5L92 Q
M(#;65R4')O9PT*(" @("<-"B @4'5B;&EC($1E8VQA
M;&]W5&5X="!,:6(@(G5S97(S,B(@06QI87,@(D=E=%=I;F1O
M=U1E>'1!(B!?#0H@(" @*$)Y5F%L(&AW;,@3&]@;'!3
M=')I;F<@07,@4W1R:6YG+"!">59A;"!C8V@@07,@3&],@3&]N9PT*
M(" @(" @)PT*("!0=6)L:6,@1&5C;&%R92!&=6YC=&EO;B!%;G5M5VEN9&]W
M<R!,:6(@(G5S97(S,B(@7PT*(" @("A">59A;"!L<$5N=6U&=6YC($%S($QO
M;F<L($)Y5F%L(&Q087)A;2!!<R!,;VYG*2!!<R!,;VYG#0H@(" @)PT*#0H-
M"E!U8FQI8R!&=6YC=&EO;B!'9717:6YD;W=S3&ES="@I#0H@($1I;2!L9U)E
M<"!!<R!,;VYG#0H@("<-"B @<W1'9717:6YD;W=S3&ES=" ]('9B3G5L;%-T
M<FEN9PT*("!L9U)E<" ]($5N=6U7:6YD;W=S*$%D9')E<W-/9B!%;G5M5VEN
M9&]W<U!R;V,L(# I#0I%;;VX-"@T*#0I0=6)L:6,@1G5N8W1I
M;;5=I;F1O=W-0<F]C*$)Y5F%L(&QG2'=N9"!!<R!,;VYG+"!">59A
M;"!L9U!A<F%M($%S($QO;F<I($%S($QO;F<-"B @1&EM('-T5&UP($%S(%-T
M<FEN9RP@;&=4;7 @07,@3&]N9RP@;&),@3&]N9PT*(" G#0H@('-T
M5&UP(#!A8V4D*#$R,"D-"B @;&=4;7 @/2 Q,3D-"B @;&)70@/2!'
M9717:6YD;WI7AT*&QG2'=N9"P@<W14;7 L(&QG5&UP*0T*("!)9B!,96XH
M<W14;7 I(#X@,2!!;F0@;&)70@/#X@,"!4:&5N#0H@(" @1F]R;3$N3&ES
M=#$N061D271E;2!&;W)M870H;&=(=VYD+" B,# P,# P,# B*2 F("(@.B B
M("8@<W14;7 -"B @16YD($EF#0H@($5N=6U7:6YD;W=S4')O8R ](#$-"D5N
.9"!&=6YC=&EO;@T*#0H`
`
end

Guy DETIENNE

19/01/2005 à 13:35

Salut ;O)

Il est bien de signaler la confusion !
Aussi, il est bien de dire qu'il y a la possibilité de lister les processus,
mais un exemple ou un lien aurait été grandement plus pratique pour celui
qui a posé la question...

Si je devais pour chaque question signaler qu'il est possible de... sans
donner aucune autre piste, nous serions bien avancés.
Cette remarque n'engage bien entendu que moi.

Pour ce qui est de la liste des processus, LE TROLL a posté une source.

Guy

"Adam Pietrasiewicz" a écrit dans le message de
news:

W ¶rodê 19-stycznia-2005 o godzinie 09:04:53 Informatique LIDV
napisa³/a

>
>Bonjour,
>Dans un programme VB, je souhaiterai tester si un autre programme VB est

en

>cours d'exécution ou non.

>J'ai trouvé la fonction PrevInstance mais je ne sais pas comment déclarer
>l'objet Application pour définir l'autre appli.

Je pense que nous avons ici un cas de confusion.

Expliquons nous:

App.PrevInstance sers a controler si LE MEME programme est deja actif.
LE MEME veut dire physiquement le meme fichier exe.

Pour controler si UN AUTRE programme est actif nous avons la
possibilite de lister par exemple les processus actifs pour voir si
celui que nous cherchons est actif.

--
Pozdrawiam
Adam Pietrasiewicz

LE TROLL

19/01/2005 à 13:44

Eh l'ami, j'ai filé et le code, et la source...
-------

"Guy DETIENNE" a écrit dans le message de news:
%232nYfNi$

Salut ;O)

Il est bien de signaler la confusion !
Aussi, il est bien de dire qu'il y a la possibilité de lister les
processus,
mais un exemple ou un lien aurait été grandement plus pratique pour celui
qui a posé la question...

Si je devais pour chaque question signaler qu'il est possible de... sans
donner aucune autre piste, nous serions bien avancés.
Cette remarque n'engage bien entendu que moi.

Pour ce qui est de la liste des processus, LE TROLL a posté une source.

Guy

"Adam Pietrasiewicz" a écrit dans le message de
news:

W ¶rodê 19-stycznia-2005 o godzinie 09:04:53 Informatique LIDV
napisa³/a

>
>Bonjour,
>Dans un programme VB, je souhaiterai tester si un autre programme VB est

en
>cours d'exécution ou non.

>J'ai trouvé la fonction PrevInstance mais je ne sais pas comment
>déclarer
>l'objet Application pour définir l'autre appli.

Je pense que nous avons ici un cas de confusion.

Expliquons nous:

App.PrevInstance sers a controler si LE MEME programme est deja actif.
LE MEME veut dire physiquement le meme fichier exe.

Pour controler si UN AUTRE programme est actif nous avons la
possibilite de lister par exemple les processus actifs pour voir si
celui que nous cherchons est actif.

--
Pozdrawiam
Adam Pietrasiewicz

Guy DETIENNE

19/01/2005 à 14:22

C'est bien ce que je disais.

"LE TROLL" <le a écrit dans le message de
news:OjBfeSi$

Eh l'ami, j'ai filé et le code, et la source...
-------

"Guy DETIENNE" a écrit dans le message de news:
%232nYfNi$
> Salut ;O)
>
> Il est bien de signaler la confusion !
> Aussi, il est bien de dire qu'il y a la possibilité de lister les
> processus,
> mais un exemple ou un lien aurait été grandement plus pratique pour

celui

> qui a posé la question...
>
> Si je devais pour chaque question signaler qu'il est possible de...

sans

> donner aucune autre piste, nous serions bien avancés.
> Cette remarque n'engage bien entendu que moi.
>
> Pour ce qui est de la liste des processus, LE TROLL a posté une source.
>
> Guy
>
>
>
> "Adam Pietrasiewicz" a écrit dans le message de
> news:
>>
>>
>> W ¶rodê 19-stycznia-2005 o godzinie 09:04:53 Informatique LIDV
>> napisa³/a
>>
>> >
>> >Bonjour,
>> >Dans un programme VB, je souhaiterai tester si un autre programme VB

est

> en
>> >cours d'exécution ou non.
>>
>> >J'ai trouvé la fonction PrevInstance mais je ne sais pas comment
>> >déclarer
>> >l'objet Application pour définir l'autre appli.
>>
>>
>> Je pense que nous avons ici un cas de confusion.
>>
>> Expliquons nous:
>>
>> App.PrevInstance sers a controler si LE MEME programme est deja actif.
>> LE MEME veut dire physiquement le meme fichier exe.
>>
>> Pour controler si UN AUTRE programme est actif nous avons la
>> possibilite de lister par exemple les processus actifs pour voir si
>> celui que nous cherchons est actif.
>>
>> --
>> Pozdrawiam
>> Adam Pietrasiewicz
>>
>>
>>
>>
>
>

Informatique_LIDV

20/01/2005 à 08:47

Merci à LE TROLL pour l'exemple mais serait-il possible de m'envoyer la
source du Module1. En effet, tu as dû te planter dans le copier coller et le
fichier Module1.bas ne m'a pas été envoyé. Il me manque donc des choses pour
tester.

Merci d'avance

Laëtitia

"Guy DETIENNE" a écrit dans le message de news:
eezCpni$

C'est bien ce que je disais.

"LE TROLL" <le a écrit dans le message de
news:OjBfeSi$
Eh l'ami, j'ai filé et le code, et la source...
-------

"Guy DETIENNE" a écrit dans le message de news:
%232nYfNi$
> Salut ;O)
>
> Il est bien de signaler la confusion !
> Aussi, il est bien de dire qu'il y a la possibilité de lister les
> processus,
> mais un exemple ou un lien aurait été grandement plus pratique pour

celui
> qui a posé la question...
>
> Si je devais pour chaque question signaler qu'il est possible de...

sans
> donner aucune autre piste, nous serions bien avancés.
> Cette remarque n'engage bien entendu que moi.
>
> Pour ce qui est de la liste des processus, LE TROLL a posté une source.
>
> Guy
>
>
>
> "Adam Pietrasiewicz" a écrit dans le message de
> news:
>>
>>
>> W ¶rodê 19-stycznia-2005 o godzinie 09:04:53 Informatique LIDV
>> napisa³/a
>>
>> >
>> >Bonjour,
>> >Dans un programme VB, je souhaiterai tester si un autre programme VB

est
> en
>> >cours d'exécution ou non.
>>
>> >J'ai trouvé la fonction PrevInstance mais je ne sais pas comment
>> >déclarer
>> >l'objet Application pour définir l'autre appli.
>>
>>
>> Je pense que nous avons ici un cas de confusion.
>>
>> Expliquons nous:
>>
>> App.PrevInstance sers a controler si LE MEME programme est deja actif.
>> LE MEME veut dire physiquement le meme fichier exe.
>>
>> Pour controler si UN AUTRE programme est actif nous avons la
>> possibilite de lister par exemple les processus actifs pour voir si
>> celui que nous cherchons est actif.
>>
>> --
>> Pozdrawiam
>> Adam Pietrasiewicz
>>
>>
>>
>>
>
>

Merci à LE TROLL pour l'exemple mais serait-il possible de m'envoyer la
source du Module1. En effet, tu as dû te planter dans le copier coller et le
fichier Module1.bas ne m'a pas été envoyé. Il me manque donc des choses pour
tester.

Merci d'avance

Laëtitia

"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
eezCpni$EHA.2104@TK2MSFTNGP14.phx.gbl...

C'est bien ce que je disais.

"LE TROLL" <le troll@paris.fr> a écrit dans le message de
news:OjBfeSi$EHA.3700@tk2msftngp13.phx.gbl...

Eh l'ami, j'ai filé et le code, et la source...
-------

"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
%232nYfNi$EHA.4004@tk2msftngp13.phx.gbl...
> Salut ;O)
>
> Il est bien de signaler la confusion !
> Aussi, il est bien de dire qu'il y a la possibilité de lister les
> processus,
> mais un exemple ou un lien aurait été grandement plus pratique pour

celui

> qui a posé la question...
>
> Si je devais pour chaque question signaler qu'il est possible de...

sans

> donner aucune autre piste, nous serions bien avancés.
> Cette remarque n'engage bien entendu que moi.
>
> Pour ce qui est de la liste des processus, LE TROLL a posté une source.
>
> Guy
>
>
>
> "Adam Pietrasiewicz" <adpiet@polbox.com> a écrit dans le message de
> news:YNCGBC19012005093029.nqcvrg@cbyobk.pbz...
>>
>>
>> W ¶rodê 19-stycznia-2005 o godzinie 09:04:53 Informatique LIDV
>> napisa³/a
>>
>> >
>> >Bonjour,
>> >Dans un programme VB, je souhaiterai tester si un autre programme VB

est

> en
>> >cours d'exécution ou non.
>>
>> >J'ai trouvé la fonction PrevInstance mais je ne sais pas comment
>> >déclarer
>> >l'objet Application pour définir l'autre appli.
>>
>>
>> Je pense que nous avons ici un cas de confusion.
>>
>> Expliquons nous:
>>
>> App.PrevInstance sers a controler si LE MEME programme est deja actif.
>> LE MEME veut dire physiquement le meme fichier exe.
>>
>> Pour controler si UN AUTRE programme est actif nous avons la
>> possibilite de lister par exemple les processus actifs pour voir si
>> celui que nous cherchons est actif.
>>
>> --
>> Pozdrawiam
>> Adam Pietrasiewicz
>>
>>
>>
>>
>
>

LE TROLL

20/01/2005 à 17:57

Fait!
Je t'ai envoyé le code, mais j'ai aussi mis sur le forum les code dans ses
supports à charger en fichier (vbp, form1, module1), n'as-tu pas vu, vois le
trombone avec le message = à charger ???
--------

"Informatique_LIDV" a écrit dans le
message de news: %23mh$ORs$

Merci à LE TROLL pour l'exemple mais serait-il possible de m'envoyer la
source du Module1. En effet, tu as dû te planter dans le copier coller et
le fichier Module1.bas ne m'a pas été envoyé. Il me manque donc des choses
pour tester.

Merci d'avance

Laëtitia

"Guy DETIENNE" a écrit dans le message de news:
eezCpni$
C'est bien ce que je disais.

"LE TROLL" <le a écrit dans le message de
news:OjBfeSi$
Eh l'ami, j'ai filé et le code, et la source...
-------

"Guy DETIENNE" a écrit dans le message de news:
%232nYfNi$
> Salut ;O)
>
> Il est bien de signaler la confusion !
> Aussi, il est bien de dire qu'il y a la possibilité de lister les
> processus,
> mais un exemple ou un lien aurait été grandement plus pratique pour

celui
> qui a posé la question...
>
> Si je devais pour chaque question signaler qu'il est possible de...

sans
> donner aucune autre piste, nous serions bien avancés.
> Cette remarque n'engage bien entendu que moi.
>
> Pour ce qui est de la liste des processus, LE TROLL a posté une
> source.
>
> Guy
>
>
>
> "Adam Pietrasiewicz" a écrit dans le message de
> news:
>>
>>
>> W ¶rodê 19-stycznia-2005 o godzinie 09:04:53 Informatique LIDV
>> napisa³/a
>>
>> >
>> >Bonjour,
>> >Dans un programme VB, je souhaiterai tester si un autre programme VB

est
> en
>> >cours d'exécution ou non.
>>
>> >J'ai trouvé la fonction PrevInstance mais je ne sais pas comment
>> >déclarer
>> >l'objet Application pour définir l'autre appli.
>>
>>
>> Je pense que nous avons ici un cas de confusion.
>>
>> Expliquons nous:
>>
>> App.PrevInstance sers a controler si LE MEME programme est deja
>> actif.
>> LE MEME veut dire physiquement le meme fichier exe.
>>
>> Pour controler si UN AUTRE programme est actif nous avons la
>> possibilite de lister par exemple les processus actifs pour voir si
>> celui que nous cherchons est actif.
>>
>> --
>> Pozdrawiam
>> Adam Pietrasiewicz
>>
>>
>>
>>
>
>

Fait!
Je t'ai envoyé le code, mais j'ai aussi mis sur le forum les code dans ses
supports à charger en fichier (vbp, form1, module1), n'as-tu pas vu, vois le
trombone avec le message = à charger ???
--------

"Informatique_LIDV" <alain.souniou.pasdepub@wanadoo.fr> a écrit dans le
message de news: %23mh$ORs$EHA.3504@TK2MSFTNGP12.phx.gbl...

Merci à LE TROLL pour l'exemple mais serait-il possible de m'envoyer la
source du Module1. En effet, tu as dû te planter dans le copier coller et
le fichier Module1.bas ne m'a pas été envoyé. Il me manque donc des choses
pour tester.

Merci d'avance

Laëtitia

"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
eezCpni$EHA.2104@TK2MSFTNGP14.phx.gbl...

C'est bien ce que je disais.

"LE TROLL" <le troll@paris.fr> a écrit dans le message de
news:OjBfeSi$EHA.3700@tk2msftngp13.phx.gbl...

Eh l'ami, j'ai filé et le code, et la source...
-------

"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
%232nYfNi$EHA.4004@tk2msftngp13.phx.gbl...
> Salut ;O)
>
> Il est bien de signaler la confusion !
> Aussi, il est bien de dire qu'il y a la possibilité de lister les
> processus,
> mais un exemple ou un lien aurait été grandement plus pratique pour

celui

> qui a posé la question...
>
> Si je devais pour chaque question signaler qu'il est possible de...

sans

> donner aucune autre piste, nous serions bien avancés.
> Cette remarque n'engage bien entendu que moi.
>
> Pour ce qui est de la liste des processus, LE TROLL a posté une
> source.
>
> Guy
>
>
>
> "Adam Pietrasiewicz" <adpiet@polbox.com> a écrit dans le message de
> news:YNCGBC19012005093029.nqcvrg@cbyobk.pbz...
>>
>>
>> W ¶rodê 19-stycznia-2005 o godzinie 09:04:53 Informatique LIDV
>> napisa³/a
>>
>> >
>> >Bonjour,
>> >Dans un programme VB, je souhaiterai tester si un autre programme VB

est

> en
>> >cours d'exécution ou non.
>>
>> >J'ai trouvé la fonction PrevInstance mais je ne sais pas comment
>> >déclarer
>> >l'objet Application pour définir l'autre appli.
>>
>>
>> Je pense que nous avons ici un cas de confusion.
>>
>> Expliquons nous:
>>
>> App.PrevInstance sers a controler si LE MEME programme est deja
>> actif.
>> LE MEME veut dire physiquement le meme fichier exe.
>>
>> Pour controler si UN AUTRE programme est actif nous avons la
>> possibilite de lister par exemple les processus actifs pour voir si
>> celui que nous cherchons est actif.
>>
>> --
>> Pozdrawiam
>> Adam Pietrasiewicz
>>
>>
>>
>>
>
>

Vous avez filtré cet utilisateur ! Consultez son message

Fait!
Je t'ai envoyé le code, mais j'ai aussi mis sur le forum les code dans ses
supports à charger en fichier (vbp, form1, module1), n'as-tu pas vu, vois le
trombone avec le message = à charger ???
--------

"Informatique_LIDV" a écrit dans le
message de news: %23mh$ORs$

Merci à LE TROLL pour l'exemple mais serait-il possible de m'envoyer la
source du Module1. En effet, tu as dû te planter dans le copier coller et
le fichier Module1.bas ne m'a pas été envoyé. Il me manque donc des choses
pour tester.

Merci d'avance

Laëtitia

"Guy DETIENNE" a écrit dans le message de news:
eezCpni$
C'est bien ce que je disais.

"LE TROLL" <le a écrit dans le message de
news:OjBfeSi$
Eh l'ami, j'ai filé et le code, et la source...
-------

"Guy DETIENNE" a écrit dans le message de news:
%232nYfNi$
> Salut ;O)
>
> Il est bien de signaler la confusion !
> Aussi, il est bien de dire qu'il y a la possibilité de lister les
> processus,
> mais un exemple ou un lien aurait été grandement plus pratique pour

celui
> qui a posé la question...
>
> Si je devais pour chaque question signaler qu'il est possible de...

sans
> donner aucune autre piste, nous serions bien avancés.
> Cette remarque n'engage bien entendu que moi.
>
> Pour ce qui est de la liste des processus, LE TROLL a posté une
> source.
>
> Guy
>
>
>
> "Adam Pietrasiewicz" a écrit dans le message de
> news:
>>
>>
>> W ¶rodê 19-stycznia-2005 o godzinie 09:04:53 Informatique LIDV
>> napisa³/a
>>
>> >
>> >Bonjour,
>> >Dans un programme VB, je souhaiterai tester si un autre programme VB

est
> en
>> >cours d'exécution ou non.
>>
>> >J'ai trouvé la fonction PrevInstance mais je ne sais pas comment
>> >déclarer
>> >l'objet Application pour définir l'autre appli.
>>
>>
>> Je pense que nous avons ici un cas de confusion.
>>
>> Expliquons nous:
>>
>> App.PrevInstance sers a controler si LE MEME programme est deja
>> actif.
>> LE MEME veut dire physiquement le meme fichier exe.
>>
>> Pour controler si UN AUTRE programme est actif nous avons la
>> possibilite de lister par exemple les processus actifs pour voir si
>> celui que nous cherchons est actif.
>>
>> --
>> Pozdrawiam
>> Adam Pietrasiewicz
>>
>>
>>
>>
>
>

Test de l'exécution d'un appli VB

7 réponses

Veuillez sélectionner un problème