aide delphi

slt j'ai mit au point un programme mais il lui manque un touvhe final c'est secouer (vibrer) l'ecran comme un wiiiz de MSN si vous me comprenais

une aide de vous svp j'ai vraiment besoin de se source alors................

exuser moi si il y'a des fautes d'orthographe je suis algerie de 15ans

bonjour,
procedure WindowShake(wHandle: THandle) ;
const
   MAXDELTA = 4;
   SHAKETIMES = 500;
var
   oRect, wRect :TRect;
   deltax : integer;
   deltay : integer;
   cnt : integer;
   dx, dy : integer;
begin
   //remember original position
   GetWindowRect(wHandle,wRect) ;
   oRect := wRect;

   Randomize;
   for cnt := 0 to SHAKETIMES do
   begin
     deltax := Round(Random(MAXDELTA)) ;
     deltay := Round(Random(MAXDELTA)) ;
     dx := Round(1 + Random(2)) ;
     if dx = 2 then dx := -1;
     dy := Round(1 + Random(2)) ;
     if dy = 2 then dy := -1;
     OffsetRect(wRect,dx * deltax, dy * deltay) ;
     MoveWindow(wHandle, wRect.Left,wRect.Top,wRect.Right - wRect.Left,wRect.Bottom - wRect.Top,true) ;
   end;
   //return to start position
   MoveWindow(wHandle, oRect.Left,oRect.Top,oRect.Right - oRect.Left,oRect.Bottom - oRect.Top,true) ;
end;


Dom

slcomme je l'entre se source mec

Je ne comprends pas.

Pour le lancer :

windowshake(application.MainForm.Handle);

Dom

oui car ca m'ecrit qu'il y'a une faut mais moi se que je veut c'est que de bouger le form comme msn pas tout l'ecran

cela ne bouge que la form que tu spécifies ...

et la faute c'est ?

Dom

c'est koi la faute

slt et avec koi je l'essey un timer ou un boutton

la faute :
oui car ca m'ecrit qu'il y'a une "faut " mais ...

.. ?

dans un bouton, un timer, ce que tu veux ...

Dom

slt envoie moi un fichier pour voir