Bonjour, je cherche quelque fonctions bien particulières en Pascal:

1) Y a t il une commande pour éteindre le PC ?
2) Et une commande pour tester si un fichier existe.

pour savoir si un fichier existe je ne sais pas trop, je ne connait pa le pascal, mais eu pire, tu peut ouvrir le fichier et regardé s´il fait plus de 0 octet.

pour éteindre l´ordinateur, ça m´étonnerait sérieusement qu´il y a une commande pour le faire, c´est pas facile pour un programme d´éteindre le PC. enfin, tu peut peut-être appeler des commande system pour faire ça ( ou si tu utilise delphi passer par l´API.

Pour vérifier si un fichier existe, il suffit de tenter de l´ouvrir, et si il te renvoie un code d´erreur différent de zéro, le fichier n´existe pas.

Pour éteindre le PC, un simple shellexecute de " shutdown" ( à toi de voir pour les options en faisant shutdown / ? dans la console dos) devrait suffir !

Voici le code que je viens généreusement de te pondre pour tester l´existence d´un fichier:

uses crt;

var
f: File;
FileExist: Boolean;

begin
ClrScr;
Assign(f, ´C:\AUTOEXEC.BAT´);
{$I-}
Reset(f);
{$I+}
FileExist:= IORESULT = 0;

CASE FileExist OF
True: WriteLN(´Le fichier existe´);
False: WriteLN(´Le fichier n´´existe pas´);
END;

ReadKey;
end.

cool merci

Juste un petit Add-on, juste dessous le FileExist:= IORESULT = 0, ajoute la ligne suivante: Close(f);

meme si j´utilise le fichier juste apres ?

Ben non !
Je te conseille de faire une fonction FileExist juste pour tester la présence du fichier, du genre :

Function FileExists ( FileName: String);
Var F: File;
Begin
Assign(F, FileName);
{$I-}
Reset(F);
{$I+}
FileExist:=(IOResult=0);
Close(F);
End;

Et tu l´utilise de la manière suivante :

If FileExist(´C:\autoexec.bat´) Then
Begin
. .. {ouverture du fichier et exploitation de son contenu}
End
Else
WriteLN(´Le fichier n´´existe pas´);

OK c´est cool.
Juste une petite question: ca veut dire quoi tes commentaires {$l-} et {$l+} ?

Ce ne sont pas des commentaires, mais des directives de compilation.
Si je me souviens bien, {$I-} désactive la gestion des erreurs d´entrée/sortie pour te laisser les gérer toi même, et {$I+} la réactive.

et c´est bien un L entre $ et - ?

Non, un i Majuscule !

Ouais ok
Sauf que sa marche pas si je met le Close(F)
Si je le met pas tout va bien !

J´ai donné ce code de mémoire.
Met le juste avant le {$I+}

ok!
C´est cool merci.

C´était bien ça ?
Ça fonctionne maintenant ?