Neues Icon für Messagebox

[SirThornberry]

so gehts

Delphi-Quellcode:

{$R 101.res}  //Den Compiler anweisen die Datei "101.res" einzubinden (du kannst für deine .res-Datei bzw .rc-Datei auch jeden beliebigen anderen Namen nehmen, der spielt für den quelltext keine Rolle
procedure TForm1.Button1Click(Sender: TObject);
var
  MsgParams:     TMsgBoxParams;
begin
  MsgParams.cbSize:=SizeOf(TMsgBoxParams);
  MsgParams.hwndOwner:=Self.Handle;
  MsgParams.hInstance:=HInstance; //in Diesem Fall: HInstance = MainInstance
  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:=MAKEINTRESOURCE(101);;
  MsgParams.dwContextHelpId:=0;
  MsgParams.lpfnMsgBoxCallback:=nil;
  MsgParams.dwLanguageId:=0;

  MessageBoxIndirect(MsgParams);
end;

im übrigen kannst du -r auch weglassen (wird nicht mehr unterstützt)