[Rat]

В FAQ на этом форуме есть следующая тема: Рисование на минимизированной иконке

Меня интересует что такое

Код:

1	PS: TPaintStuff;

И что значит

...осуществляем отрисовку с помощью вызовов Windows GDI...

Это как?

[Rat]

В общем пример не рабочий...

Вот на просторах инета нарыл функцию для создания иконки:
Как создать ICO из BMP
Нужно создать два bitmap'а: bitmap-маску ("AND" bitmap) и bitmap-картинку (XOR bitmap). Потом передать дескрипторы "AND" и "XOR" bitmap-ов API функции CreateIconIndirect():

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

procedure TForm1.Button1Click(Sender: TObject); var   IconSizeX: integer;   IconSizeY: integer;   AndMask: TBitmap;   XOrMask: TBitmap;   IconInfo: TIconInfo;   Icon: TIcon; begin   {Get the icon size}   IconSizeX := GetSystemMetrics(SM_CXICON);   IconSizeY := GetSystemMetrics(SM_CYICON);   {Create the "And" mask}   AndMask := TBitmap.Create;   AndMask.Monochrome := true;   AndMask.Width := IconSizeX;   AndMask.Height := IconSizeY;   {Draw on the "And" mask}   AndMask.Canvas.Brush.Color := clWhite;   AndMask.Canvas.FillRect(Rect(0, 0, IconSizeX, IconSizeY));   AndMask.Canvas.Brush.Color := clBlack;   AndMask.Canvas.Ellipse(4, 4, IconSizeX - 4, IconSizeY - 4);   {Draw as a test}   Form1.Canvas.Draw(IconSizeX * 2, IconSizeY, AndMask);   {Create the "XOr" mask}   XOrMask := TBitmap.Create;   XOrMask.Width := IconSizeX;   XOrMask.Height := IconSizeY;   {Draw on the "XOr" mask}   XOrMask.Canvas.Brush.Color := ClBlack;   XOrMask.Canvas.FillRect(Rect(0, 0, IconSizeX, IconSizeY));   XOrMask.Canvas.Pen.Color := clRed;   XOrMask.Canvas.Brush.Color := clRed;   XOrMask.Canvas.Ellipse(4, 4, IconSizeX - 4, IconSizeY - 4);   {Draw as a test}   Form1.Canvas.Draw(IconSizeX * 4, IconSizeY, XOrMask);   {Create a icon}   Icon := TIcon.Create;   IconInfo.fIcon := true;   IconInfo.xHotspot := 0;   IconInfo.yHotspot := 0;   IconInfo.hbmMask := AndMask.Handle;   IconInfo.hbmColor := XOrMask.Handle;   Icon.Handle := CreateIconIndirect(IconInfo);   {Destroy the temporary bitmaps}   AndMask.Free;   XOrMask.Free;   {Draw as a test}   Form1.Canvas.Draw(IconSizeX * 6, IconSizeY, Icon);   {Assign the application icon}   Application.Icon := Icon;   {Force a repaint}   InvalidateRect(Application.Handle, nil, true);   {Free the icon}   Icon.Free; end;