Программирование Delphi

Добавляем изображение иконки на форму в системное меню. Используется функция LoadIcon и SendMessage с сообщением WM_SETICON.

HICON hIcon1 = LoadIcon(GetModuleHandle(NULL), MAKEINTRESOURCE(MAIN_ICON));
SendMessage(hwnd, WM_SETICON, 1, (LPARAM)hIcon1);