Discussion :

[T-B]

Bonjour,

je viens de faire un petit programe en mode console et je voudrais qu'il s'executre sans afficher la fenêtre.

Pourriez vous me dire comment faire cacher la fenêtre ?


merci.

[fremen167]

Bonjour,

Tu peux le faire de la manière suivante :
Menu Voir/Source du projet
Mettre en commentaire la ligne "Application.CreateForm(TForm1, Form1);"

De cette manière, la fenêtre ne sera pas ouverte.

Il y a peut-être une méthode moins "brutale" (sans modifier le source directement), mais je ne la connais pas.

[ero-sennin]

Bonjour,

Tu peux le faire de la manière suivante :
Menu Voir/Source du projet
Mettre en commentaire la ligne "Application.CreateForm(TForm1, Form1);"

De cette manière, la fenêtre ne sera pas ouverte.

Il y a peut-être une méthode moins "brutale" (sans modifier le source directement), mais je ne la connais pas.

Salut,

Je ne pense pas qu'il parle de la Form mais bien de la fenêtre console. J'ai pas delphi sous la main pour dire ce chercher comment faire ...

A+

[sjrd]

Je n'ai pas compris la question comme ça. Il me semble plutôt que T-B a déjà une application console, sans form, mais qu'il veut que la console elle-même n'apparaisse pas.

Si c'est bien ça, il suffit normalement de supprimer la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

{$APPTYPE CONSOLE}

dans le source du projet.
Attention toutefois ! Il ne faut alors plus faire appel à WriteLn et ReadLn !

[fremen167]

Je n'ai pas compris la question comme ça. Il me semble plutôt que T-B a déjà une application console, sans form, mais qu'il veut que la console elle-même n'apparaisse pas.

Dans ce cas, on peut le faire par le menu :
Projet/Option, onglet "Lieur", décocher "Générer une application console".

Mais ce n'est plus une application console

[pitango]

Bonjour,

Je ne connaissais pas cette option

Projet/Option, onglet "Lieur", décocher "Générer une application console"

mais sur le principe,

un petit programe en mode console

qui

s'execute sans afficher la fenêtre

ce n'est pas une application console.

A+

[T-B]

Merci, J'ai trouvé la fonction qui va bien.
{******************************************************************************
Fonction qui cache le fenetre console
******************************************************************************}
function GetConsoleHwnd : HWND ;
var
NewWindowTitle : string ;
OldWindowTitle : string ;
begin
SetLength(NewWindowTitle, 1024) ;

// Récupère le titre courant
GetConsoleTitle(PChar(OldWindowTitle), 1024);

NewWindowTitle := Format('%d/%d', [GetTickCount, GetCurrentProcessId]);

// Change le titre
SetConsoleTitle(PChar(NewWindowTitle));

// Attend pour que le titre de la fenêtre soit changé
Sleep(40);

// Charche le nouveau titre
Result := FindWindow(nil, PChar(NewWindowTitle)) ;

// Restore le titre originnal.
SetConsoleTitle(PChar(OldWindowTitle));
end ;

[pitango]

Bonjour,

As tu essayer la solution de sjrd de retirer
{$APPTYPE CONSOLE} ?

A+