MessageBoxIndirect eigenes Symbol

[Colt Storm]

Ich wollte mit MessageBoxIndirect eine MessageBox mit eigenem Symbol machen, alles funktioniert, nur es kommt nicht mein Symbol...

Delphi-Quellcode:

var
  params: MSGBOXPARAMS;
begin
  with params do begin
    cbSize := SizeOf(TMsgBoxParams);
    dwContextHelpId := 0;
    dwLanguageId := LANG_NEUTRAL;
    dwStyle := MB_OK or MB_USERICON;
    hInstance := GetWindowLong(Handle, GWL_HINSTANCE);
    hwndOwner := Handle;
    lpfnMsgBoxCallback := nil;
    lpszCaption := 'blubb';
    lpszIcon := 'MAINICON';
    lpszText := 'blubb';
  end;
  MessageBoxIndirect(params);
end;

Das Icon MAINICON ist in der Anwendung vorhanden, hab extra mit dem ResourceHacker nachgeguckt, müsste also doch eigentlich alles so in Ordnung sein...

Was mach ich da falsch?

[Zacherl]

Du musst LoadRessource('MainIcon') oder so ähnlich verwenden ...

[Daniel G]

Ja, so ähnlich

Hab' Müll verzapft.

[Zacherl]

Wenn du dein Icon über einen Index einbindest (Mainicon ist meine ich 1), dann kannst du das verwenden:

Delphi-Quellcode:

function MyMessageBox(hWnd: HWND; Text, Caption: String; IconID: DWORD;
  const Buttons: Cardinal = MB_OK): Integer;
var MsgInfo: TMsgBoxParams;
begin
  With MsgInfo do
  begin
    cbSize := SizeOf(TMsgBoxParams);
    dwContextHelpId  := 0;
    dwLanguageId := LANG_NEUTRAL;
    dwStyle := Buttons or MB_USERICON or MB_APPLMODAL;
    hInstance := GetWindowLong(hWnd, GWL_HINSTANCE);
    hwndOwner := hWnd;
    lpfnMsgBoxCallback := nil;
    lpszCaption := @Caption[1];
    lpszIcon := MAKEINTRESOURCE(IconID);
    lpszText := @Text[1];
  end;
  Result := Integer(MessageBoxIndirect(MsgInfo));
end;

Florian

[Colt Storm]

Danke schonmal für die Hilfe, nur leider hat das alles nicht geklappt

Habs mit MAKEINTRESOURCE(1); und auch mit MAKEINTRESOURCE(0); versucht, ging beides nicht