Probleme avec une boucle While et un shellexecute

Question

Bonjour a tous, donc voila mon petit blem :
Je n'arrive pas a executer ce code mais pourquoi ?? Je n'arrive pas a trouver la reponse (et j'ai cherch&#233;...)
Voila mon code
---------------------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
Var i:integer;
begin
i:=1
While i<10 do
begin
ShellExecute(0, nil, 'C:\WINDOWS\system32\cmd.exe', PChar('/c net send '+edit1.Text+' '+memo1.Text), nil, SW_SHOWNORMAL);
i:=i+1
end;
end;
---------------------------------------------------------------------------------------------

Donc si quelqu'un pourrait corriger mon code sa m'aiderais beaucoup et lui serais tres reconnaissant
Merci d'avance a tout ceux qui repondront

neorazor · Answer

RESOLU.... manquait jute un ; a i:=1;

jmp77 · Answer

Heureux que tu es pu te depanner mais pense a valider reponse accept&#233;e afin de cloturer ta demande.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

Probleme avec une boucle While et un shellexecute

2 réponses

Votre réponse

Discussions similaires