[luiggixD]

Muchachos, disculpen si los molesto demasiado pero estoy en serios apuros. Necesito esto lo mas pronto posible plz!
Tengo esta funcion que es para simular un zumbido en la pc, pero x algun ligero error no funciona, ayudenme a descubrir cual es por favor!!

void TForm1::ZumbidoPC()
{
  Graphics::TCanvas *can = new Graphics::TCanvas();
  Graphics::TBitmap *bmp = new Graphics::TBitmap();
  HDC hdc = GetDC(0);
  keybd_event(VK_SNAPSHOT,0,0,0);
  Sleep(100);
  TClipboard *clip = Clipboard();
  can->Handle = hdc;
  bmp->Assign(clip);
  int x, y, t;
  x = y = 0;
  t = random(9) + 80;
  while(t > 0)
  {
    switch(t % 8)
    {
      case 0:
        x = 0;
        y = -10;
        break;
      case 1:
        x = 10;
        y = -10;
        break;
      case 2:
        x = 10;
        y = 0;
        break;
      case 3:
        x = 10;
        y = 10;
        break;
      case 4:
        x = 0;
        y = 10;
        break;
      case 5:
        x = -10;
        y = 10;
        break;
      case 6:
        x = -10;
        y = 0;
        break;
      case 7:
        x = -10;
        y = -10;
        break;
    }
    can->Draw(x,y,bmp);
    Sleep(50);
    t--;
  }
  can->Draw(0,0,bmp);
  delete bmp;
  delete can;
}

Mientras mas pronto mejor. Disculpen la hora en que posteo xD!

Gracias de antemano, bytes

Luiggi