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

Soyez le premier à donner votre avis sur cette source.

Vue 5 034 fois - Téléchargée 391 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

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

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

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!
Messages postés
225
Date d'inscription
mardi 4 mars 2003
Statut
Membre
Dernière intervention
30 juillet 2008

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 :-)
Messages postés
113
Date d'inscription
vendredi 16 août 2002
Statut
Modérateur
Dernière intervention
15 mai 2005

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 :)
Messages postés
225
Date d'inscription
mardi 4 mars 2003
Statut
Membre
Dernière intervention
30 juillet 2008

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.