SCANER ET PINGER UN POSTE
DevelOpeR13
Messages postés
7
Date d'inscription
jeudi 8 janvier 2004
Statut
Membre
Dernière intervention
4 octobre 2004
-
4 oct. 2004 à 13:58
JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 - 5 oct. 2004 à 13:06
JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 - 5 oct. 2004 à 13:06
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/26568-scaner-et-pinger-un-poste
https://codes-sources.commentcamarche.net/source/26568-scaner-et-pinger-un-poste
5 oct. 2004 à 13:06
a la place de :
ShellExecute(0,'Open', 'net', PChar('use \\' + Edit1.Text + ' /u:' + Edit2.Text + ' ' + Edit3.Text), nil, SW_HIDE);
tu peux utiliser la tres utile et propre fonction Format(); qui permet de formater du texte, ça donne :
ShellExecute(0,'Open', 'net', PChar(format('use \\%s /u:%s %s',[Edit1.Text,Edit2.Text,Edit3.Text])), nil, SW_HIDE);
%s : à remplacer par une string
%i : par un integer
yen a d'autre je pense (F1 pour l'aide)
+++