Table des matières

Faire une appli Lazarus console sans console

Quand on fait un programme simplissime comme: 

  1. Program TestCmd;
  2. Uses
  3.    Windows,SysUtils;
  4.  
  5. Var
  6.    i: Integer;
  7. Begin
  8.    For i := 0 To 9999999 Do
  9.    Begin
  10.       Write(#13+IntToStr(i));
  11.       sleep(500);
  12.    End;
  13. End.

on obtient une conhost.exe attaché a notre petit programme.

Pour faire disparaitre ce conhost.exe voici les modifications a faire: 

  1. Program TestCmd;
  2. {$APPTYPE GUI}  //-> Ajouter cette directive de compilation
  3. Uses
  4.    Windows,
  5.    SysUtils;
  6.  
  7. Var
  8.    i: Integer;
  9. Begin
  10.    For i := 0 To 9999999 Do
  11.    Begin
  12.       //Write(#13+IntToStr(i)); -> ne rien envoyer sur la console, sinon BUG!!!
  13.       sleep(500);
  14.    End;
  15. End.

Ajouter la directive de compilation {$APPTYPE GUI}

Ne rien écrire sur la console avec des Write ou WriteLn…

Et voila…