Discussion :

[kermit-the-frog]

Slt tout le monde !!
je commence un peu le développement des petits trucs et je voudrais savoir si quelqu'un' un pouvait me renseigner:
en fait je cherche ouvrir un dossier apres avoir tapé un code ( une variable) et... je trouve pas ! quelqu' un pourrait m' aider
merci d' avance

Ps : un screen de mon prog...

[krachik]

Bonjour et bienvenue
J'avoue ne pas tres comprendre ce que tu veux dire
OUvrir un dossier pourquoi faire?

[kermit-the-frog]

Bien le bonjour et merci. Pour le programme, en fait quand tu tape le code, sa marque "Bienvenue ..." et je voudrais que sa ouvre un dossier un peu comme quand on ouvre la session tu tombe sur le bureau et bien la je voudrais tomber dans un dossier... voila :p

[droggo]

Xoe,

Je ne comprends pas non plus.

Pour ton code, fais un copier/coller sur le forum plutôt que poster une image (on a assez récemment parlé de ce problème [faux problème pour moi, mais...] sur ce forum).

[ALT]

Je ne connais pas de fonction qui permette d'ouvrir un répertoire.
Mais tu peux utiliser la fonction exec (de l'unité DOS) afin de te placer dans ledit répertoire.

Code :

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

exec('\dos\command.com','/C cd mon_répertoire');

Ensuite, libre à toi d'afficher ou non le contenu dudit répertoire.
Mais ça c'est autre chose.

[kermit-the-frog]

Désolé pour le screen mais quand je fais copier et ben je peux pas coller ou sa me colle le truc que j' ai copié avant ( de la barre recherche google ou autre chose)... et pareil dans l' autre sens... et pour le prog , en fait quand sa me dit "tapez votre code", je tape mon code et la je voudrais sa m' ouvre le fichier personnel de la personne a qui appartient le code ou mot de passe si vous préférez en gros c'est sa. voila voila...

[diden138]

Bonjour et bienvenu,
D'après ce que j'ai compris, suivant le code entré tu affichera les fichiers personnels de la personne ? si c'est cela tu peux exécuter tout simplement une petite commande dir chemindurep et le tour est joué

Code :

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

1
2
 
exec('\dos\command.com','/C dir chemindurépertoire');

sinon tu peux aussi (mais c'est un peu long) chercher d'abord tes fichiers avec la fonction findfirst ensuite les afficher
Cordialement,

[kermit-the-frog]

Slt! tu dis :

Code :

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

1
2
 
exec('\dos\command.com','/C dir chemindurépertoire');

mais il me mets error 3 : unknown identifier ... je sais pas quoi faire !!

[diden138]

Bonsoir,
ça doit être surement une erreur due à une apostrophe '
je corrige juste un petit truc

Code :

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

1
2
 
exec('c:\windows\system32\cmd.exe','/C dir chemindurépertoire');

Il faut mettre le chemin complet,
sinon pour avoir un code qui marche sur tous les windows tu travaille avec la variable d'environnement COMSPEC: pour la récupérer il existe la fonction GetEnv
et ça donne ça

Code :

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

1
2
 
exec(GetEnv('COMSPEC'),'/C dir chemindurépertoire');

Cordialement,

[kermit-the-frog]

Sa ne marche toujours pas peut-etre que turbo pascal n' est pas capable d' exécuter cette action... je vais essayer avec un autre compilateur... je vous tiens au courant

[diden138]

ah j'ai oublier de te le dire il faut ajouter l'unité CRT et Dos.
pour le compilateur essai avec freepascal.
Cordialement,

[kermit-the-frog]

J' ai télécharge Turbo Pascal for windows 1.5 et recopie mot a mot mon programme qui est sur turbo pascal 7.0 et la :

Code :

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

 Runtime error 105 at 0001:0032.

pourtant sur TP 7.0 il fonctionne très bien

PS:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Program maxx;
var code : integer;
BEGIN
  Write('Entrez votre code:');
  readLn(code);
  Case code of
  2548:WriteLn('Bienvenue personnage 0');
  5155:WriteLn('Bienvenue personnage 1');
  end;
  readLn;
END.

[diden138]

Essai d'ajouter au début de ton programme

Code :

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

1
2
 
Reset(output);

Sinon et c'est ce que je te conseil de faire c'est de compiler avec FreePascal.
Cordialement,

[kermit-the-frog]

Je le mets ou dans le prog parce-que il me le surligne en premiere place, en deuxieme place et en troisieme place !!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
!!ici!! 
Program maxx;
!!ici!! 
var code : integer;!!
et ici!!
BEGIN
  Write('Entrez votre code:');
  readLn(code);
  Case code of
  2548:WriteLn('Bienvenue personnage 0');
  5155:WriteLn('Bienvenue personnage 1');
  end;
  readLn;
END.

[diden138]

juste après le begin bien sur
Cordialement,

[kermit-the-frog]

XD merci mais maintenant il cherche des poux a :

Code :

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

Write('Entrez votre code:') ;

EDIT : j' installe free pascal

[diden138]

je me souviens que les noms des librairies changent sous TPW par exemple CRT devient WINCRT réessaie sinon installe FreePascal.
Cordialement,