Utiliser un Timer en mode console
Résolu
Utilisateur anonyme
-
19 avril 2006 à 22:17
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 - 22 avril 2006 à 21:53
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 - 22 avril 2006 à 21:53
4 réponses
Cirec
Messages postés
3833
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2022
50
20 avril 2006 à 13:30
20 avril 2006 à 13:30
Salut,
Voici ce que j'ai trouvé :
Par Dave Nottage :
program Project1;
{$APPTYPE CONSOLE}
uses
Windows;
var
TimerId: UINT;
procedure TimerProc(Handle: HWND; uMsg: UINT; idEvent: UINT; dwTime:DWORD);
stdcall;
begin
if Integer(KillTimer(0, idEvent)) <> 0 then
MessageBox(0, 'Yo!', 'Yo!', MB_OK);
TimerId := 0;
end ;
procedure Pump;
var
M: TMsg;
begin
while (TimerID <> 0) and GetMessage(M, 0, 0, 0) do
DispatchMessage(M);
end;
begin
TimerId : = SetTimer(0, 1, 100, @TimerProc);
Pump;
Readln;
end.
Source :
http://groups.google.fr/group/borland.public.delphi.nativeapi/browse_thread/thread/f2dbcd80e0733da7/b40ddb614f0cada0%23b40ddb614f0cada0
@+
Cirec
Voici ce que j'ai trouvé :
Par Dave Nottage :
program Project1;
{$APPTYPE CONSOLE}
uses
Windows;
var
TimerId: UINT;
procedure TimerProc(Handle: HWND; uMsg: UINT; idEvent: UINT; dwTime:DWORD);
stdcall;
begin
if Integer(KillTimer(0, idEvent)) <> 0 then
MessageBox(0, 'Yo!', 'Yo!', MB_OK);
TimerId := 0;
end ;
procedure Pump;
var
M: TMsg;
begin
while (TimerID <> 0) and GetMessage(M, 0, 0, 0) do
DispatchMessage(M);
end;
begin
TimerId : = SetTimer(0, 1, 100, @TimerProc);
Pump;
Readln;
end.
Source :
http://groups.google.fr/group/borland.public.delphi.nativeapi/browse_thread/thread/f2dbcd80e0733da7/b40ddb614f0cada0%23b40ddb614f0cada0
@+
Cirec
f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
35
20 avril 2006 à 14:33
20 avril 2006 à 14:33
holala tu te fait bien chier mon ami cirec :
fichiers > nouveau > module de données
glisse le timer dedans ou tout autre composant non visuel ... et hop le tours est joué.
on cherche parfois midi a 14h ... pas de chance il est 14h30
fichiers > nouveau > module de données
glisse le timer dedans ou tout autre composant non visuel ... et hop le tours est joué.
on cherche parfois midi a 14h ... pas de chance il est 14h30
Cirec
Messages postés
3833
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2022
50
21 avril 2006 à 10:25
21 avril 2006 à 10:25
@ F0xi
je croyais que ce n'était pas possible de mettre des composants dans une application console
Pour tout les composants il faut un container qui en général est la Form mais en mode console il n'y a pas de Form
@+
Cirec
je croyais que ce n'était pas possible de mettre des composants dans une application console
Pour tout les composants il faut un container qui en général est la Form mais en mode console il n'y a pas de Form
@+
Cirec
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
32
22 avril 2006 à 21:53
22 avril 2006 à 21:53
Je suis entièrement d'accord avec Cirec. Sauf, évidemment si on inclut toutes les unités nécessaires, qu'on initialise un objet application etc...Autant faire une application fenêtrée !
Le seul recours recours possible en mode console est de faire appel aux API (voir SetTimer ci-dessus comme exemple).
Je ne sais pas qui a validé les deux réponses ci-dessus mais au moins une des deux est inexacte
May Delphi be with you !
<HR color=#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
Le seul recours recours possible en mode console est de faire appel aux API (voir SetTimer ci-dessus comme exemple).
Je ne sais pas qui a validé les deux réponses ci-dessus mais au moins une des deux est inexacte
May Delphi be with you !
<HR color=#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.