IT
  WAP-
  
  
  
  
  Ѩ
   NEW
  
  
  X-INFO
  
  IT
  
  
  .
  
  

 

IP

54.167.44.32

: 329 ()






C win-api
 



, . , delphi . , , , , :

.......

implementation

{$R *.dfm}

procedure ForTimer;
begin
SetPixel(Form1.Canvas.Handle, random(300), random(300), 255);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SetTimer(Application.Handle, 10, 100, @ForTimer);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
KillTimer(Application.Handle, 10);
end;

end.

- SetTimer - ( ) 1000 . , - , - , ! , , 4 . . "" - - , , , .
. , , .

SLAyer

info@comp-info.ru
 



  
    
  IT
  WAP-
  
  
  
  
  Ѩ
   NEW
  
  
  X-INFO
  
  IT
  
  
  .
  
  

 

  
  
  MD5 Base64
   MD5 NEW
 
  
  
  
   IP
  
   IP (Whois)
  
   >
   php-

:
  
  
  
   Win- Linux
   HTTP
  







.
Copyright -. 2005