Foros Club Delphi - Zumbido de pantalla!!!

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - Zumbido de pantalla!!! (https://www.clubdelphi.com/foros/showthread.php?t=55697)

Zumbido de pantalla!!!

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!!

Código:

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

no se preocupen ya encontre una forma de resolverlo con la ayuda de la ayuda del C++ Builder xD! falto un if en esta parte

Código:

  if(clip->HasFormat(CF_BITMAP))

  {

    bmp->Assing(clip);

    // demas codigo de esa parte

  }

  //obviamente aca libero la memoria del canvas y del bmp pero ya para q lo escribo xD

Gracias x las intenciones de todas maneras espero que pueda servirle a alguien en el futuro.

En la funcion que puse sale un error xq no se refresca el Clipboard. Que puedo hacer??