MAINICON laden

[Luckie]

Das Anwendungsicon legt Delphi mit der Ressourcen ID MAINICON in der Ressource ab. Wie komme ich jetzt an das Icon über die ID dran?

Delphi-Quellcode:

class procedure TAboutWnd.MsgBox(hParent: THandle; IconID: DWORD);
var
  MsgInfo           : TMsgBoxParams;
  s: String;
begin
  s := Format('%s - %s' + #13#10#13#10 + '%s' + #13#10 + '%s', [TAboutWnd.GetFileInfo(ParamStr(0), 'ProductName'),
    TAboutWnd.GetFileVersion(ParamStr(0)), COPYRIGHT, URI]);

  MsgInfo.cbSize := SizeOf(TMsgBoxParams);
  MsgInfo.hwndOwner := hParent;
  MsgInfo.hInstance := GetWindowLong(hParent, GWL_HINSTANCE);
  MsgInfo.lpszText := PChar(s);
  MsgInfo.lpszCaption := PChar(TAboutWnd.GetFileInfo(ParamStr(0), 'ProductName'));
  MsgInfo.dwStyle := MB_USERICON;
  MsgInfo.lpszIcon := MAKEINTRESOURCE(IconID);
  MessageBoxIndirect(MsgInfo);
end;

Wenn ich bei MAKEINTRESOUORCE 'MAINICON' angebe passiert nichts.

[himitsu]

Notfalls über TResourceStream in ein TIcon reinladen und dessen Handle verwenden.
ach nee, diese API will wohl die Resource

[Uwe Raabe]

Am einfachsten geht es über Application.Icon

[himitsu]

[quote="Luckie"]Das Anwendungsicon legt Delphi mit der Ressourcen ID MAINICON in der Ressource ab. Wie komme ich jetzt an das Icon über die ID dran?

[add]

Zitat:

To load one of the standard system-defined icons, set the hInstance member to NULL and set lpszIcon to one of the values listed with the LoadIcon function.

???

Delphi-Quellcode:

MsgInfo.hInstance := 0;
MsgInfo.dwStyle := MB_USERICON;
MsgInfo.lpszIcon := MAKEINTRESOURCE(LoadIcon(GetWindowLong(hParent, GWL_HINSTANCE), IDI_APPLICATION));

oder meinen die es so?

Delphi-Quellcode:

MsgInfo.hInstance := 0;
MsgInfo.dwStyle := MB_USERICON;
MsgInfo.lpszIcon := IDI_APPLICATION;

[Luckie]

Beide Lösungen zeigen das Icon nicht an.

[DeddyH]

Aus der Forms.pas:

Zitat:

Delphi-Quellcode:

function TApplication.GetIconHandle: HICON;
begin
  Result := FIcon.Handle;
  if Result = 0 then Result := LoadIcon(0, IDI_APPLICATION);
end;

[Luckie]

Ich brauche allerdings eine ID und kein Handle. Das ist das Problem.

[DeddyH]

Dazu hab ich im Moment leider auch keine Idee.

[p80286]

Hilft Dir Das vielleicht weiter?
ist zwar c+ ...

Gruß
K-H

[Luckie]

Nein, ich will ja keine Ressource ändern.