__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{ //Основано на коде EXP`a
/*** [__EXP`s EYES__] ***/
HANDLE hRgn1, hRgn2, hRgn;
String c = Form1->Caption;
Form1->Caption = "ЫЫЫ Ни у кого нет такого Caption`а";
HWND hWnd = FindWindow(0, "ЫЫЫ Ни у кого нет такого Caption`а");
hRgn1 = CreateEllipticRgn(20, 20, 80, 80);
hRgn2 = CreateEllipticRgn(120, 20, 180, 80);
hRgn = CreateRectRgn(0, 0, 600, 400);
CombineRgn(hRgn, hRgn1, hRgn2, RGN_XOR);
SetWindowRgn(hWnd, hRgn,TRUE);
Form1->Caption = c;
/*** [/_EXP's EYES__] ***/
} |