PETIT PROG MARRANT QUI DÉPLACE LE BOUTTON DÉMARRER DE WINDOWS.
cs_Nono40
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
-
6 mars 2003 à 00:06
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
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
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12397-petit-prog-marrant-qui-deplace-le-boutton-demarrer-de-windows
https://codes-sources.commentcamarche.net/source/12397-petit-prog-marrant-qui-deplace-le-boutton-demarrer-de-windows
11 mars 2005 à 21:40
7 mars 2003 à 23:56
Bonne continuation!
7 mars 2003 à 16:01
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 :-)
6 mars 2003 à 22:36
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 :)
6 mars 2003 à 16:43
6 mars 2003 à 00:06