MessageBox mit dem eigenen Bild???

[Luckie]

Probier es mal damit:

Delphi-Quellcode:

////////////////////////////////////////////////////////////////////////////////
// Procedure : MyMessageBox
// Comment   : Wrapper for MsgBoxParams

procedure MyMessageBox(hWnd: HWND; caption, Text: string; IDIcon: DWORD);
var
  MsgInfo                : TMsgBoxParams;
begin
  MsgInfo.cbSize := SizeOf(TMsgBoxParams);
  MsgInfo.hwndOwner := hWnd;
  MsgInfo.hInstance := GetWindowLong(hWnd, GWL_HINSTANCE);
  MsgInfo.lpszText := @Text[1];
  MsgInfo.lpszCaption := @Caption[1];
  MsgInfo.dwStyle := MB_USERICON;
  MsgInfo.lpszIcon := MAKEINTRESOURCE(IDICON);
  MessageBoxIndirect(MsgInfo);
end;

Das Icon muss in der Ressource sein und wird mit der ID übergeben.