Neues Icon für Messagebox

[SirThornberry]

wenn du mit Icon-Indexes arbeitest gehts so:

Delphi-Quellcode:

  MsgParams.cbSize:=SizeOf(TMsgBoxParams);
  MsgParams.hwndOwner:=Self.Handle;
  MsgParams.hInstance:=GetModuleHandle('shell32.dll');
  MsgParams.lpszText:='Lobby Broadcaster'+ #13 +'Version: 1.1.0'+ #13 +''+ #13 +'Copyright © 2000 - 2005 by Me.'+ #13 +'All Rights Reserved.';
  MsgParams.lpszCaption:='About Product';
  MsgParams.dwStyle:=MB_OK or MB_USERICON;
  MsgParams.lpszIcon:=Pointer(13);  //Icon13 aus IconGroup verwenden
  MsgParams.dwContextHelpId:=0;
  MsgParams.lpfnMsgBoxCallback:=nil;
  MsgParams.dwLanguageId:=0; //0 = Neutral

  MessageBoxIndirect(MsgParams);

oder laut msdn anstelle von:
MsgParams.lpszIcon:=Pointer(13); //Icon13 aus IconGroup verwenden lieber
MsgParams.lpszIcon:=MAKEINTRESOURCE(13); //Icon13 aus IconGroup verwenden wobei MAKEINTRESOURCE auch nur ein PChar ist was wiederum ein Pointer ist was also nichts anderes macht als die 13 zu einem Pointer zu casten.