TaskDialogIndirect in einer 64bit Anwendung

[ringli]

Scheinbar muß InitCommonControls trotzdem aufgerufen werden, sonst gibt InitCommonControlsEx immer False zurück obwohl der anschliessende Aufruf vom Taskdialog funktioniert.
Ich meine auch in den letzten Tagen bei der Lösungsrecherche etwas gelesen zu haben das es diesbezgl. mal einen Bug in der (Winapi.)CommCtrl.pas gegeben hat oder vielleicht sogar noch gibt.

Jedenfalls sieht der funktionierende Code jetzt so aus:

Delphi-Quellcode:

var
  ICC : TInitCommonControlsEx = (
    dwSize : SizeOf(TInitCommonControlsEx);
    dwICC  : ICC_STANDARD_CLASSES);
.
.
.
  InitCommonControls;
  if not InitCommonControlsEx(ICC) then
    begin
      MessageBox(0, 'InitCommonControlsEx!',
                    'Fehler',
                    MB_OK or MB_ICONSTOP);
      Halt;
    end;
.
.
.

[EDIT]
Ich habe den Link wiedergefunden: http://www.entwickler-ecke.de/topic_...ug_5384,0.html

Allerdings habe ich jetzt nicht mehr nachgeprüft ob das immer noch so implementiert ist.