Discussion :

[divil15]

Bonjour.

J'ai utilisé le trial limite de temps d'exécution. Je suis tombé sur un problème quand j'exécute le projet.
Un message s'affiche :

Co: (daysbetween(d1,d2))
Daysbetween n'est pas déclarer

[Charly910]

Bonsoir,

daysbetween est dans l'unité DateUtils. Il faut que tu l'ajoutes à ta clause Uses

A+
Charly

PS : c'est qui CV ?

[Roland Chastain]

PS : c'est qui CV ?

Après m'être posé la même question, j'ai supprimé cette partie du message.

[divil15]

Slt CV
Le problème est marche bien avec ton code.
Je cherche un code qui limite l'exécutable par seconde. Est ce possible?
Merci bien

[Charly910]

Bonjour,

de quel code parles tu ?

je ne comprends pas ce que tu veux dire par "qui limite l'exécutable par seconde" ?

tu veux que ton logiciel ne fonctionne plus au bout d'un certain temps ?

A+
Charly

[divil15]

Bonjour cv
Quand la page dialogue mot de passe s'exécute un label affiche un chrono dans 10 seconde et l'exécution s'arrête

[Charly910]

Bonjour,

dans ton dialogue de mot de passe, il faut que tu places un Timer

A+
Charly

@SergioMaster : cv : je pencherais plutôt pour "correspondant vénérable"

[divil15]

Bonsoir
Je vous le code dans timer
Begin

End;

[Charly910]

Bonjour,
à mettre dans ta boite de dialogue "Mot de passe" :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm2.FormShow(Sender: TObject);
begin
  Timer1.Interval := 5000 ;
end;
 
procedure TForm2.Timer1Timer(Sender: TObject);
begin
  Application.terminate  ;
end;

A+
Charly

[divil15]

Bonsoir
Merci beaucoup Charly A++++

[SergioMaster]

@SergioMaster : cv : je pencherais plutôt pour "correspondant vénérable"

Je n'avais jamais vu ce CV je le croyais placé en fin de texte. Vénérable ça fait un vieux non ?
En tout cas, perso, je n'arrive pas à suivre les demandes de divil15 donc chapeau bas pour avoir compris sa demande

[divil15]

bonjour
jai utiliser le code dans timer est ca marche
mais ce que je cherche c'est un label affiche 60seconde est l'application se ferme.

merci d'avance

[tourlourou]

Il suffit que l'événement OnTimer de Timer1 rende visible un Label et lance un second Timer, d'intervalle 60 s, dont l'événement OnTimer fermera l'application.

[divil15]

Bonsoir CV
Tu sais que j'ai une application avec boite de dialogue mot de passe .
Ce que je cherche quand la boite s'affiche pour saisie mot de passe , un label affiche 60 seconde , si l'utilisation ne saisie pas mot passe l'application se ferme .
Merci

[tourlourou]

Pour obtenir le comportement voulu, tous les éléments ont été fournis et le code et sa logique n'ont qu'à être transposés et adaptés, au prix de peu d'efforts.

[divil15]

Merci d'être gentil

[divil15]

Nul ne peut atteindre l'aube sans passer par le chemin de la nuit "

[tourlourou]

Bonjour divil15,
Ton problème n'a pê pas été bien exposé dès le début.

J'ai utilisé le trial limite de temps d'exécution : Daysbetween n'est pas déclaré
...
Je cherche un code qui limite l'exécutable par seconde. Est ce possible?
...
Quand la page dialogue mot de passe s'exécute un label affiche un chrono dans 10 seconde et l'exécution s'arrête
...
Je veux le code dans timer
...
jai utiliser le code dans timer est ca marche
mais ce que je cherche c'est un label affiche 60seconde est l'application se ferme.

Quand il m'arrive de buter sur un problème et de vouloir y chercher une solution sur le forum, il m'est arrivé qu'en l'expliquant bien, je trouve du coup la réponse et n'aie plus à la chercher.

Je ne sais pas non plus où en est le développement de ton application ni son ampleur : pê en es-tu au squelette de l'application et à son ouverture, ou bien pê est-elle complète et ajoutes-tu une fonctionnalité. Peut-être débutes-tu sous Delphi ? Pas d'indication.

En tout cas, tu n'as fourni aucun élément de ton code ni de recherche personnelle pour que l'on comprenne où tu bloques avec les notions apportées.

Le principe de ce forum repose sur l'entraide bénévole pour aider le demandeur à résoudre des problèmes en le faisant progresser : ce n'est pas un site de fourniture de solutions prêtes à l'emploi.

En revanche, ceux qui sont prêts à aider s'adaptent volontiers au demandeur, s'il a une démarche constructive en définissant précisément son but, en expliquant clairement ses problèmes, en donnant toutes les indications utiles. Qui donne du poisson à un homme le nourrit un jour ; qui lui apprend à pécher le nourrit toujours. (Confucius ?)

Pour ma part, je ne te répondrai rien de plus tant que tu n'auras pas apporté les précisions indispensables.
(exemples pour la définition du problème : le Label doit-il afficher "60 secondes", afficher son Caption pendant 60 secondes, décompter les secondes à partir de 60 ? Qu'est-ce que la boîte de saisie du mot de passe : une fiche (principale ou secondaire), un InputQuery ? etc.)

[Charly910]

Bonjour,
je ne comprends pas : le code que je t'ai fourni fait ce que tu demandes - tu mets 6000 au lieu de 5000 pour que l'application se termine au bout de 6 secondes. Si l'utilisateur entre le Pswd et clique sur Ok, tu arrêtes le timer et tu fermes la boite de dialogue.

Que veux tu de plus ?

A+
Charly

PS : je suis d'accord avec Tourlourou , fais un effort !

[divil15]

Bonsoir charly
J'ai mets 2 timer
Le premier affiche label
label1.Caption := TimeToStr(ss);
Le deuxième
Application. Terminate;
Dans l'intervalle 60000
Et ça marche