bonjour a tous,
voila j'ai un gros souci sur le quel je buche depuis quelques jours
je suis en train de faire un programme pour sinplifier l'utilisation de windows xp
mais je doit a partir d'un command demarrer un logiciel dot je n'ai pas acces au code puisque c'est un logiciel payant
mais je n'arrive a le demarrer j'ai essaye plusieurs facon
avec shell....
avec set form= nothing
dim stappname as string
stappname =" c: programme files .........."
call shell (stappname, vbmaximizedfocus)
ne marche pas non plus ca ne fai rien du tout et pourtant avec d'autre prog sa marche comme media player sans souci
a savoir que ce logiciel n'a pas de handle il n'est pas redimensionnable car demarre par double click sont icon est prend tout l'ecran sans possibilite de le reduire
sinon j'aimerai aussi savoir comment reduir media player a partir d'un command et dememe pour l'agrandir
il ne me manque plus que sa et ma source devrai bientot etre fini
je vous remerci pour votre aide
Euh, je ne sais pas si c'est une erreur dans le code ou non, mais c'est pas "programme files", mais "program files"
Et essaye cela :
Shell("""c:\Program Files\...""")
Nous captons le cockpit coupable qui a capoté
VB (6, .NET1&2), C++, C#.Net1
Mon site
non tkt pas il n'y a pas d'erreur j'airetaper le exte je n'ai pas fait decopier coller
je te proment renfield que sa ne marche pas et j'en suis sur car c'est le seul logiciel de qui ne demarre pas je n'ai aucun probleme avec les autres logiciel
je pense mais je sais pas si c'est possible de simuler le double ou smple click de la souri quand on clique sur l'icone
dsl Renfield mais ce "foutu" logiciel ce lance toujour pas jai essayer quelques ligne avec tes conseils je peu metre n'importe quel autre logiciel genre mediaplayer le bloc note ou d'autre sa lance sans probleme mais lui y veu rien savoir je comprend carrement pas
sinon vous pourriez pas me dire comment je pourrai a l'aide d'un command reduir et d'un autre command agrandir Wmp mais bon je prefererai reussir a lancer ce logiciel je vai passer plus de temps juste pour ca que j'ai passer afaire tout le reste
pour jouer avec la taille d'une fenetre:
Private Const SC_MAXIMIZE As Long = &HF030&
Private Const SC_MINIMIZE As Long = &HF020&
Private Const SC_RESTORE As Long = &HF120&
Private Const WM_SYSCOMMAND As Long = &H112
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
si je peu abusé de ta gentilesse Renfield pourrai tu stp me faire un exemple
pour resise le notepad car jdoit oublie de faire quelque chose soit j'ai une erreur a chaque ou alors je redemarre l'appli a chaque au lieu juste de redimansioner
merci bcp
oui lolokun c'est bien un exe si je clique avec ma dessus il demarre trankil mais par vb impossible je ne sais plus quoi faire j'ai cherche et trouver plusieur source sur le site mais rien ne marche
A part le chemin incorrect je ne vois pas ce qui pourrait bloquer..Dans
le nom ou le chemin de cet exe, y'a t'il des caractères spéciaux ou des
espaces?
L'expérience, c'est une connerie par jour, mais jamais la même..
non c'est rien de plus simple mais sa lance pas il n'y a pas d'erreur dans le chemin car j'ai fe un copier coller de l'adresse du racourci dans propriete mais j'ai essayer avec d'autre apli sa marche nickel il y a que avec se logiciel la
Etrange..Je ne vois pas du tout ce qui pourrait bloquer
Et avec ceci ?
Private 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
bon j 'arrive toujour pas a le lancer j'ai trouver un autre log aussi qui fe pareil si vous voulez essayer clavicom est un logiciel de clavier virtuel ba lui non plus y se lance pas il est telechargable gratuitement sur internet
Bah j'ai téléchargé le programme en question ça fonctionne avec l'API Shellexecute :
Private 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