ShellExecute probleme
g0belin
Messages postés
155
Date d'inscription
jeudi 6 décembre 2001
Statut
Membre
Dernière intervention
19 avril 2010
-
29 déc. 2002 à 15:34
hardghost Messages postés 2 Date d'inscription jeudi 3 juillet 2008 Statut Membre Dernière intervention 1 septembre 2008 - 20 oct. 2008 à 10:36
hardghost Messages postés 2 Date d'inscription jeudi 3 juillet 2008 Statut Membre Dernière intervention 1 septembre 2008 - 20 oct. 2008 à 10:36
A voir également:
- Delphi shellexecute
- Shellexecute delphi - Meilleures réponses
- Delphi sw_shownormal - Meilleures réponses
- Delphi format - Conseils pratiques -Delphi
- Shellexecute delphi ✓ - Forum Delphi / Pascal
- Shellexecute c++ - Forum C / C++ / C++.NET
- Shellexecute vba - Forum VB.NET
- Shellexecute - Forum C / C++ / C++.NET
5 réponses
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
32
29 déc. 2002 à 16:56
29 déc. 2002 à 16:56
Pour ces arguments, ShellExecute attend des PChar. Il suffit de faire :
ShellExecute(0, nil, 'C:\WINDOWS\system32\cmd.exe', PChar('/c net send '+edit1.text+' '+edit2.text), nil, SW_SHOWNORMAL);
May Delphi be with you
ShellExecute(0, nil, 'C:\WINDOWS\system32\cmd.exe', PChar('/c net send '+edit1.text+' '+edit2.text), nil, SW_SHOWNORMAL);
May Delphi be with you
g0belin
Messages postés
155
Date d'inscription
jeudi 6 décembre 2001
Statut
Membre
Dernière intervention
19 avril 2010
29 déc. 2002 à 17:47
29 déc. 2002 à 17:47
merci de ta reponse rapide :)
elguevel
Messages postés
718
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
22 novembre 2016
3
1 août 2005 à 10:48
1 août 2005 à 10:48
- A mon avis meme pas besoin d'appeler la console cmd avant de faire ton net send, elle va se lencer toute seule.
- N'oublie pas d'ajouter "ShellApi" à la clause uses pour avoir accès au API.
- Caster tes arguments String en PChar = > Pchar( 'Chaine' );
Ex : ShellExecute(Self.Handle, PChar('open'), PChar( 'net send' + edit1.Text ), Pchar( edit2.Text ) , nil, SW_SHOWNORMAL );
(j'ai pas testé alors peut etre que çà marche pas mais il me semble que c'est comme çà que çà marche !)
Et si tu veux cacher la console au moment de l'execution pour eviter de voir une fenetre ms-dos aparaitre ou un sintillement tu peux changer le " SW_SHOWNORMAL" par un "SW_HIDE" (va voir la MSDN pour plus d'info => http://msdn.microsoft.com/)
-ElGuevel-
- N'oublie pas d'ajouter "ShellApi" à la clause uses pour avoir accès au API.
- Caster tes arguments String en PChar = > Pchar( 'Chaine' );
Ex : ShellExecute(Self.Handle, PChar('open'), PChar( 'net send' + edit1.Text ), Pchar( edit2.Text ) , nil, SW_SHOWNORMAL );
(j'ai pas testé alors peut etre que çà marche pas mais il me semble que c'est comme çà que çà marche !)
Et si tu veux cacher la console au moment de l'execution pour eviter de voir une fenetre ms-dos aparaitre ou un sintillement tu peux changer le " SW_SHOWNORMAL" par un "SW_HIDE" (va voir la MSDN pour plus d'info => http://msdn.microsoft.com/)
-ElGuevel-
elguevel
Messages postés
718
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
22 novembre 2016
3
16 août 2005 à 10:07
16 août 2005 à 10:07
dsl j'ai fait une erreur ...
Faut pas faire : ShellExecute(Self.Handle, PChar('open'), PChar( 'net send' + edit1.Text ), Pchar( edit2.Text ) , nil, SW_SHOWNORMAL );
Mais : ShellExecute(Self.Handle, 'open', PChar( 'net send' + edit1.Text ), Pchar( edit2.Text ) , nil, SW_SHOWNORMAL );
C'est tout
-ElGuevel-
Faut pas faire : ShellExecute(Self.Handle, PChar('open'), PChar( 'net send' + edit1.Text ), Pchar( edit2.Text ) , nil, SW_SHOWNORMAL );
Mais : ShellExecute(Self.Handle, 'open', PChar( 'net send' + edit1.Text ), Pchar( edit2.Text ) , nil, SW_SHOWNORMAL );
C'est tout
-ElGuevel-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
hardghost
Messages postés
2
Date d'inscription
jeudi 3 juillet 2008
Statut
Membre
Dernière intervention
1 septembre 2008
20 oct. 2008 à 10:36
20 oct. 2008 à 10:36
Slt
ex:
var
P:string;
begin
P:=(/c net send+edit1.Text+edit2.Text);
ShellExecute(Handle, 'open', 'cmd.exe',PChar(P),0, SW_SHOWNORMAL);
____
ex:
var
P:string;
begin
P:=(/c net send+edit1.Text+edit2.Text);
ShellExecute(Handle, 'open', 'cmd.exe',PChar(P),0, SW_SHOWNORMAL);
____
