Как сделать дырку в окне?

procedure TForm1.Button4Click(Sender: TObject);
var
 HRegion1, Hreg2, Hreg3: THandle;
 Col: TColor;
begin
 ShowMessage ('Ready for a real crash?');
 Col := Color;
 Color := clRed;
 PlaySound ('boom.wav', 0, snd_sync);
 HRegion1 := CreatePolygonRgn (Pts,
  sizeof (Pts) div 8,
  alternate);
 SetWindowRgn (
  Handle, HRegion1, True);
 ShowMessage ('Now, what have you done?');
 Color := Col;
 ShowMessage ('Вам лучше купить новый монитор');
end;

PlaySound не работает Pts = ошибка и вообще нет ни какой дырки в окне!

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
Проверка
Антиспам проверка
Image CAPTCHA
...