====== Faire une appli Lazarus console sans console ======
Quand on fait un programme simplissime comme:
----
Program TestCmd;
Uses
Windows,SysUtils;
Var
i: Integer;
Begin
For i := 0 To 9999999 Do
Begin
Write(#13+IntToStr(i));
sleep(500);
End;
End.
----
{{::capture.jpg|}}
on obtient une ''conhost.exe'' attaché a notre petit programme.
Pour faire disparaitre ce ''conhost.exe'' voici les modifications a faire:
Program TestCmd;
{$APPTYPE GUI} //-> Ajouter cette directive de compilation
Uses
Windows,
SysUtils;
Var
i: Integer;
Begin
For i := 0 To 9999999 Do
Begin
//Write(#13+IntToStr(i)); -> ne rien envoyer sur la console, sinon BUG!!!
sleep(500);
End;
End.
Ajouter la directive de compilation ''{$APPTYPE GUI}''
Ne rien écrire sur la console avec des Write ou WriteLn...
Et voila...
{{::capture2.jpg|}}