Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 16 oct. 2008 à 10:03
comme ça, sous VB6, qui n'est pas un Exe console, on passe par AllocConsole (et FreeConsole, y'a un flag qui est mis en place)
en compilé normal, on passe aussi par AllocConsole
et en compilé Console, on squatte la console, sans AllocConsole, sans rien changer... juste a passer l'exe en type Console.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 16 oct. 2008 à 10:00
j'ai pas mal modifié ton code, j'en avais besoin dans un de mes programmes...
j'ai ajouté entre autres ce test, qui permet de se passer de ta variable de compilation :
'# Si l'exe client n'est pas un exe de type console, on en alloue une nouvelle
If &H4550& <> SHGetFileInfo(sBuffer, 0, ByVal 0&, 0, SHGFI_EXETYPE) Then
AllocConsole
...
Ca n'a pas l'air de fonctionner chez moi. J'ai juste le "Press any key to continue ..." qui s'affiche puis fermeture de la console.
VB6SP6US XPSP3US
__
Kenji
ghuysmans99
Messages postés2496Date d'inscriptionjeudi 14 juillet 2005StatutContributeurDernière intervention 5 juin 20161 18 juil. 2008 à 08:46
Et j'avais oublié de préciser : j'utilise ton addon pour la compilation de l'exe en mode console ...
Ce qui fait que le développement est beaucoup plus simple !!
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 18 juil. 2008 à 06:07
16 oct. 2008 à 10:03
en compilé normal, on passe aussi par AllocConsole
et en compilé Console, on squatte la console, sans AllocConsole, sans rien changer... juste a passer l'exe en type Console.
16 oct. 2008 à 10:00
j'ai ajouté entre autres ce test, qui permet de se passer de ta variable de compilation :
sBuffer = Space$(260)
nLength = GetModuleFileName(GetModuleHandle(ByVal 0&), sBuffer, 260)
sBuffer = Left$(sBuffer, nLength)
'# Si l'exe client n'est pas un exe de type console, on en alloue une nouvelle
If &H4550& <> SHGetFileInfo(sBuffer, 0, ByVal 0&, 0, SHGFI_EXETYPE) Then
AllocConsole
...
18 juil. 2008 à 18:04
Nickel, Merci.
__
Kenji
18 juil. 2008 à 17:41
Ou alors tu peux changer l'argument de compilation Console et le mettre à 1
18 juil. 2008 à 11:23
Ca n'a pas l'air de fonctionner chez moi. J'ai juste le "Press any key to continue ..." qui s'affiche puis fermeture de la console.
VB6SP6US XPSP3US
__
Kenji
18 juil. 2008 à 08:46
Ce qui fait que le développement est beaucoup plus simple !!
18 juil. 2008 à 06:07
couplé avec une compilation de l'exe en mode console, sera nikel
http://www.vbfrance.com/codes/APPLICATION-TYPE-CONSOLE-ADDIN_41156.aspx