Eviter runtime error 6

Version imprimable

20/07/2006, 18h06
Hitchigo

Eviter runtime error 6

Salut all.
Voila dans mon application console au debut j'ai enlevé le : {$APPTYPE CONSOLE}
pour que la console ne s'affiche pas .
Mais a la fin j'ai ajouté un readln ; , evidemment ca affiche un Runtime error 6 , je sais que si je remet le {$APPTYPE CONSOLE} ca se regle , mais je ne veux pas que la console s'affiche , serait il possible de se debarasser de l'erreur en laissant le readln et sans mettre le {$APPTYPE CONSOLE} .
Merci
20/07/2006, 18h28
e-ric

Salut

Si ton application est de type console, en aucun cas, tu ne dois enlever le {$APPTYPE CONSOLE} car cela indique précisément au compilateur le type d'application. Les applications console et fenêtrées ne fonctionne pas de la même façon.

Si tu veux dissimuler ton application à l'exécution, il doit être possible de le faire avec CreateProcess si tu lance ton application depuis une autre dont tu maîtrise les sources. Consulte la doc du SDK Windows dans ce cas.

Une autre solution consiste à créer une application fenêtrée dont la taille de fiche principale est nulle. Mais ce n'est pas forcément une bonne solution.

Explication :
L'application console est plus adaptée si le traitement doit démarrer avec le lancement de l'exécutable. Par contre, une application fenêtrée se met en situation d'attente au démarrage, il faut alors ruser si l'on veut démarrer un traitement au lancement du programme. Tu la savais peut-être déjà.

cdlt

e-ric

si tu cherches bien à masquer entièrement l'activité de ton application, il existe une technique qui permet de masquer ton application en lui faisant croire qu'elle est une DLL, donc ne doit pas s'afficher : ceci se fait grâce à la variable IsLibrary. voici un exemple :

fichier .dpr :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 program Project1; uses _Init in '_Init.pas', // à placer absolument avant tous les autres ! SysUtils, // pour le Beep Forms; {$R *.res} // nécessaire pour l'icone du programme procedure Beeps; // procedure qui se contente de faire une dizaine de bips var i : Integer; begin for i := 0 to 50000000 do begin if (i mod 5000000) = 0 then Beep; end; end; begin IsLibrary := False; // on se replace dans un programme normal, mais masqué Application.Initialize; Application.Run; Beeps; Application.Terminate; end.
et surtout ne pas oublier le fichier _Init.pas :
Code:

1 2 3 4 5 6 7 8 9 10 11 unit _Init; interface implementation initialization IsLibrary:=True; // on fait croire qu'on est une DLL end.
voilà cette technique est issue du très bon bouquin Platinium Delphi 3, de Marco Cantù, éditeur Sybex (paix à leur âme)

20/07/2006, 20h33
Hitchigo

Deja merci pour les reponses...
@e-ric : Aucune autre application ne lance la mienne , ce n'est pas ce que je cherche , et sinon pour le APPTYPE CONSOLE , comme j'ai cité plus haut ya juste un readln ... je m'en fou un peu que ca marche correctement ou pas , du moment qu'aucune erreur ne s'affiche .
@denokan :Merci bien , sympa ta technique mais apparemment c'est pas pour les applications console , moi j'en cherche une pour une appli console
20/07/2006, 20h44
denokan

pourquoi une application console alors que tu cherches à masquer la console ?
20/07/2006, 21h20
Hitchigo

La librairie Forms , rend l'exe trop gros alors que j'en ai pas besoin de la form

alors retire-la du .dpr

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
program Project1;
 
uses
  _Init in '_Init.pas', // à placer absolument avant tous les autres !
  SysUtils; // pour le Beep
 
{$R *.res} // nécessaire pour l'icone du programme
 
procedure Beeps;
// procedure qui se contente de faire une dizaine de bips
var
  i : Integer;
begin
  for i := 0 to 50000000 do begin
    if (i mod 5000000) = 0 then
      Beep;
  end;
end;
 
begin
  IsLibrary := False; // on se replace dans un programme normal, mais masqué
 
// maintenant ton code
  Beeps;
end.

de plus tu peux encore gagner un peu de place en compressant l'exe (UPX par exemple)

avec cet exemple j'ai un .exe de 21 ko

20/07/2006, 22h34
Hitchigo

-_- , je connais UPX , FSG et tout le reste des packers , mais encore une fois c'est pas ce que je cherche .
21Ko c'est pas petit , je cherche principalement la taille d'un appli console sans avoir a utiliser UPX .:?
21/07/2006, 00h26
Jipété

Bonsoir.

1
> si tu cherches bien à masquer entièrement l'activité de ton application.
Mais visible avec Process Explorer par exemple et en règle générale
par les outils qui vont s'appuyer sur THelp32 et la fonction CreateToolHelp32SnapShot.

2
Ces "vieilles" instructions (readln) me semblent indubitablement liées à la console. J'ai peur que l'une n'aille pas sans l'autre...

My 2 cts,
JP
21/07/2006, 01h50
denokan

Citation:

Envoyé par Hitchigo

21Ko c'est pas petit , je cherche principalement la taille d'un appli console sans avoir a utiliser UPX .:?

8O si tu cherches à faire de la demo je comprends, sinon j'ai du mal à comprendre pourquoi chercher à descendre en-dessous de 20ko:?
21/07/2006, 04h30
Hitchigo

La n'est pas la question...
Sur les regles il est ecrit de pas sortir du sujet , merci de respecter ca .
Merci tout de meme
21/07/2006, 13h39
Pedro

Salut

Citation:

Envoyé par Hitchigo

Sur les regles il est ecrit de pas sortir du sujet , merci de respecter ca .

Quelles règles? :roll:
23/07/2006, 15h26
Laurent Dardenne

Salut,
si tu retires la directive Console la gestion des I/O standard (Stdin...) n'est plus prise en charge par le compilo. L'erreur rencontrée est donc compréhensible.
Regarde dans la FAQ
http://delphi.developpez.com/faq/?pa...ecacherfenetre