Страница 127 из 127
Как закрасить рабочий стол по пикселю
// Напишите следующий код:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TCanvas *dt = new TCanvas ;
randomize();
dt->Handle = GetDC(0);
while (dt)
{
dt->Pixels[random(1024)][random(768)]= 0 ;
}
}