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