WinAPI: Icon nach CreateWindowEx noch ändern

[turboPASCAL]

Ein Beispiel:

Delphi-Quellcode:

 
var hAppIcon: HICON;      
begin
  // ...

  hAppIcon:= LoadImage(hInstance, MAKEINTRESOURCE(1), IMAGE_ICON, 0, 0, 0);

  if SendMessage(hAppHnd, WM_SETICON, ICON_SMALL, INTEGER(hAppIcon) ) = 0 then
    SendMessage(hAppHnd, WM_SETICON, ICON_BIG, INTEGER(hAppIcon) );

  DestroyIcon(Icon);

  // ...
end