TaskDialogIndirect in einer 64bit Anwendung

[ringli]

Wenn ich das MSDN richtig verstehe, müsste InitCommonControlsEx True zurückgeben wenn es die Controls initialisieren konnte. Bei folgenden Code erscheint aber immer die Messagebox obwohl der Taskdialog danach angezeigt wird.

Delphi-Quellcode:

var
  ICC : TInitCommonControlsEx = (
    dwSize : SizeOf(TInitCommonControlsEx);
    dwICC  :
      ICC_LISTVIEW_CLASSES   or
      ICC_TREEVIEW_CLASSES   or
      ICC_BAR_CLASSES        or
      ICC_TAB_CLASSES        or
      ICC_UPDOWN_CLASS       or
      ICC_PROGRESS_CLASS     or
      ICC_HOTKEY_CLASS       or
      ICC_ANIMATE_CLASS      or
      ICC_DATE_CLASSES       or
      ICC_USEREX_CLASSES     or
      ICC_COOL_CLASSES       or
      ICC_INTERNET_CLASSES   or
      ICC_PAGESCROLLER_CLASS or
      ICC_NATIVEFNTCTL_CLASS or
      ICC_STANDARD_CLASSES   or
      ICC_LINK_CLASS
      );

begin
  if not InitCommonControlsEx(ICC) then
    begin
      MessageBox(0, 'InitCommonControlsEx!',
                    'Fehler',
                    MB_OK or MB_ICONSTOP);
      //Halt;
    end;