SCANER ET PINGER UN POSTE

Commentaire de JulioDelphi le 05/10/2004 13:06:39 administrateur CS

hello
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)

+++