Discussion :

[Upal]

bonjour
voila j'aimerais savoir et si oui comment faire pour faire eteindre ou faire rebooter un ordi grace a une commande turbo pascal.
j'aimerais aussi savoir comment on fait pour que quand on lanec un prog turbo pascal celui ci soit en plein ecran directement.
Merci beaucoup

[Axiome]

Que veux-tu dire par plein écran?
Si tu travaille sur TP version 6 ou 7 sous DOS l'execution sera tjs en plein écran.

[Upal]

j'ai tp 7 et lorsque je lance mon .exe c'est dans une fenetre, pas en plein ecran...

[poppels]

pour l'avoir en plein écran, c'est pas une question de turbo pascal, je pense que Win gère ça :

click droit sur ton prog.exe
propriétés
onglet écran --> cocher plein écran

(mon pc tourne sous win XP, je sais pas si ca marche comme ca pour tous les win, mais tu peux tjrs essayer...)

[charly]

je ne crois pas que le probs est la .. tu peux passer en mode graphique avec l unites graph ou changer de mode text sa te metera en pleine ecran ... je te conseil l unites e hdd34 elle est dans les contib d haypo et elle est exelente ....

[Upal]

merci bcp tous les deux mon probleme a ete resolu en faisant les prorpietes de l'exe...
par contre si vous savez comment eteindre un PC grace a TP je suis preneur...

[charly]

grace a tp non ... et eteindre correctemement non plus ... masi je peux te cree une chtit unites avec une procedure!!!! en asm ou alors tu peux la faire tous seul masi bon si tu ne connasi pas beaucoup l asm tu vas galerer ...bref sinon le porbs de ton progfs ...c est que chez qq un d autre il va s afficher en fenetre et ma soltion contourner le probleme ... enfin bon c est pas grave ..... dans tous les cas pour l unites demmande ... en se moment j ai un chttit peux de temps

[Upal]

merci bcp
en fait c pas grave que cela ne s'affiche en plein ecran que chez moi parcequ'en fait c'est un prog de mot de passe qui se lance a l'ouverture de windows...
si le mot de passe etait mauvais je voulais que ca eteigne le PC mais si c impossible (ou trop complique pour le newbie que je suis je vais faire une boucle qui ne s'arretera que lorsque le bon mot de pass sera donne, en attendant de trouver mieux
merci encore

[M.Dlb]

Pour rebooter, y'a l'INT 19h mais c'est à vos risques et périls
Sous DOS, l'ordi reboote, mais sous windows ça ferme juste la fénêtre DOS ( et le programme ).
Ou alors encore pire on jumpe sur F000:FFF0h ( je crois que c'est la bonne addresse ) : ça doit marcher sous DOS, mais sous windows bonjour les dégats...( je sais pas j'ai jamais testé mais ça doit surement buguer après le boot )

a+

[haypo]

Pour quitter Windows, il y a une commande qui utilise Rundll32, mais je ne la connait plus. Faut chercher (sur un site d'astuces Windows) ! Après un p'tit Exec devrait fonctionner!

@+ Haypo

[Eric Sigoillot]

Alors alors....

Pour le mode réel Dos, l'int 19h permet de rebooter le PC lorsque qu'il n'y a pas de TSR en mémoire ! Donc quand Windows est derrière... Je n'en parle même pas.
Pourquoi ? Simplement pare que l'int 19h met à zéro la table des vecteurs d'interruption, et quand un TSR appelle un timer, on lance la procédure en 0000:0000. C'est pas joli à voir...
Mais sous Dos pur, juste au démarrage, ça marche super.

Code :

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

1
2
3
4
5
6
7
8
 
inline($CD/$19);
 
ou
 
asm
  int 19h
end;

Autrement, pour rebooter le PC, il y a une autre méthode, qui là encore, ne fonctionnera pas sous Windows car il s'agit d'écrire des données en mémoire far.

Pour éteindre le PC sous Windows, tu peux tenter d'appeler le programme suivant, en respectant le tout :

Code :

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

1
2
 
rundll32 user.exe,exitwindows

A+

[Upal]

merci pour votre aide mais je crois que je vais m'en tenir a une boucle, j'ai pas envie de faire sauter cette merde de windows (du moins pas tout de suite)...

[Eric Sigoillot]

Quand on aime, on ne s'en passe plus !

Une bonne vieille astuce :

Tu veux empêcher un utilisateur de démarrer Windows sans ton mot de passe dans une fenêtre Dos.
C'est plutôt simple. Une fois que tu as modifié les propriétés de ton exe de façon à ce qu'il s'exécute en plein écran et qu'il ne réagisse plus aux touches Windows, le dernier truc à faire est de bloquer Windows.

Pour ce faire, il suffit de passer ta fenêtre Dos en mode exclusif.

Voilà la méthode :

Code :

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

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
 
function WinPresent: Boolean; assembler;
asm
  mov ax, 1600h
  int 2Fh
end;
 
procedure WinProtect; assembler;
asm
  call WinPresent
  or   al, al
  je   @@1
  mov  ax, 1681h
  int  2Fh
@@1:
end;
 
procedure WinUnprotect; assembler;
asm
  call WinPresent
  or   al, al
  je   @@1
  mov  ax, 1682h
  int  2Fh
@@1:
end;

Avec ça, t'es tranquille. Par contre, n'oublie pas de débloquer Windows à la fin...

A+

[M.Dlb]

Ou sinon, pour rebooter, y'a l'API de windows:

AX = 1684h
BX = 9h

On y accède avec l'INT 2F mais j'ai jamais testé ça... ( je crois que saïd l'avait testé à l'époque mais je sais pas s'il avait réussi )
a+

[Eric Sigoillot]

L'API Windows que tu donnes utilise le VXD REBOOT, et ne fonctionnera qu'en mode protégé. De plus, je me demande même s'il n'est pas nécessaire d'avoir une appli graphique ou console.

Bref, ça ne fonctionne pas sous Turbo Pascal en mode réel (déjà testé...).

Pour expliquer mon code source, je ne dirais qu'une seule chose (enfin peut-être plus !) :

1. Il faut connaître un minimum d'assembleur (et je ne fais pas de cours, désolé)

2. Il faut avoir une doc sur les interruptions (comme la Ralph Brown's Interrupt List, va la chercher sur Google !)

3. Il faut mixer le tout !


En clair, mon code source vérifie si Windows est en mémoire avant d'appeler les fonctions servant à passer une appli en mode exclusif, puis à la repasser en mode normal.

A+

[Benoît-M]

Merci Hdd32 !

J'avais jamais compris pourquoi mon int 19h faisait tout planter (même au deuxième rebootage, je confirme !).

Je vais pouvoir reprendre certains programmes...
Cool !