Petit prog marrant qui déplace le boutton démarrer de windows.

Soyez le premier à donner votre avis sur cette source.

Vue 5 167 fois - Téléchargée 399 fois

Description

Pour arrêter se programme, taper Ctrl + Alt + Suppr puis fermer le processus "DemBalad" :-)

Conclusion :


Merci Cyrille2.
La source est de lui maintenant.
Enfin... On en apprend tous les jours !

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Bombela
Messages postés
225
Date d'inscription
mardi 4 mars 2003
Statut
Membre
Dernière intervention
30 juillet 2008

11 mars 2005 à 21:40
C'est dingue... Quand je vois cette source et mes comentaires desssus et bien je me dis que j'ai progressé depuis ;0) huhu
cs_Cyrille2
Messages postés
113
Date d'inscription
vendredi 16 août 2002
Statut
Membre
Dernière intervention
15 mai 2005

7 mars 2003 à 23:56
mouarf, c juste une petite retouche, y a plus besoin de passer par différents fichiers et g épuré les uses, g pas comparé mais la taille de l'exe à du en prendre un joli coup :) Par contre, je la jugerai pas d'application console quand meme :) Juste une application de fond !
Bonne continuation!
Bombela
Messages postés
225
Date d'inscription
mardi 4 mars 2003
Statut
Membre
Dernière intervention
30 juillet 2008

7 mars 2003 à 16:01
Et ben mon pote...
Y a pas a dire ça c du prog.
je savais pas q'une application console avais les fonctionnalitées windows !
Je croyais que c'était du turbo pascal 7 ! (j'en ai fais)
Je vais réactualisée la source :-)
cs_Cyrille2
Messages postés
113
Date d'inscription
vendredi 16 août 2002
Statut
Membre
Dernière intervention
15 mai 2005

6 mars 2003 à 22:36
J'avais écrit un commentaire mais il a pas été pris en compte :( Bon, je te donnais qques conseils et puis finnallement g décidé de les mettre en oeuvre pr voir :) regarde :

program ballad;

uses
Windows, Messages, sysutils, forms;

var
i : integer;
reverse : boolean;
Tray, Child : hwnd;
C : array[0..127] of char;

{$R *.res}

begin
i := 0;

Tray := FindWindow('Shell_TrayWnd', NIL);
Child := GetWindow(Tray, GW_CHILD);

while Child <> 0 do
Begin
if GetClassName(Child, C, SizeOf (C)) > 0 Then
If SameText(StrPAS(C),'BUTTON') then
Break;

Child := GetWindow(Child, GW_HWNDNEXT);
end;

while not Application.Terminated Do
Begin
If reverse then
dec(i,10)
else
inc(i,10);

if ((i >= Screen.Width - 79) and not reverse) or ((i <= 0) and reverse) Then
reverse := not reverse;

movewindow(Child,i,0,79,22,true);
sleep(10);
end;

movewindow(Child,0,0,79,22,true);

end.

Voila tu me dira ce que t'en penses :)
Bombela
Messages postés
225
Date d'inscription
mardi 4 mars 2003
Statut
Membre
Dernière intervention
30 juillet 2008

6 mars 2003 à 16:43
Ouai mais c moin drôle...
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.