TaskDialogIndirect in einer 64bit Anwendung

[ringli]

Hallo,

ich habe mir heute mal die TaskDialogIndirect-Demo von Luckie (http://www.michael-puff.de/Programmi...skDialog.shtml) angesehen und diese als Win32- und Win64-Version kompiliert. Die Win32-Version funktioniert offenbar problemlos.

Auch die Win64-Version scheint auf den ersten Blick zu funktionieren. Allerdings tritt hier das Phänomen auf, das nur der Aufruf der einfachen TaskDialog-Funktion funktioniert. Klickt man danach jedoch auf den Button "Ja" um weiter zur Demo der TaskDialogIndirect-Funktion zu gelangen passiert nichts mehr. Keine Fehlermeldung, keine Exception, nichts. Es scheint so als ob der Aufruf der Funktion aus der "comctl32.dll" fehlschlägt. Mehr konnte ich selber leider noch nicht rausfinden.

Scheinbar ist das Problem im Internet nicht unbekannt, jedoch führt der Vorschlag das Manifest anzupassen, nicht zum Erfolg. Ich habe es mit verschiedenen Manifesten und Einstellungen probiert, unter anderem mit diesem hier:

Code:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
  version="1.9.0.0"
  processorArchitecture="*"
  name="Win32-API-Tutorials.Win32-API-Tutorials.Sample Code"
  type="win32"/>
<description>Sample Code</description>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
    <security>
      <requestedPrivileges>
        <requestedExecutionLevel
          level="asInvoker"
          uiAccess="false"/>
      </requestedPrivileges>
    </security>
  </trustInfo>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
    <application>
      <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/>
      <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
      <supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"/>
      <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>
    </application>
  </compatibility>
<dependency>
    <dependentAssembly>
        <assemblyIdentity type="win32"
          name="Microsoft.Windows.Common-Controls"
          version="6.0.0.0"
          processorArchitecture="*"
          publicKeyToken="6595b64144ccf1df"
          language="*" />
    </dependentAssembly>
</dependency>
</assembly>

Ist einem von Euch dieses Problem schon begegnet und konnte es irgendwie lösen? Wie gesagt, die Win32-Version funktioniert problemlos, nur die Win64-Version zickt rum. Daher schliesse ich erstmal einen Fehler in der Demo aus.

Achso, getestet habe ich bei einem Bekannten unter Delphi XE4 Pro da ich selber keine 64bit-Version zur Verfügung habe.

[ringli]

Hat keiner eine Idee? Selbst mit der TMS-Komponente funktioniert das irgendwie nicht.

[himitsu]

Delphi-Quellcode:

  <assemblyIdentity
    version="1.0.0.0"
    processorArchitecture="amd64"
    name="Private.Unknown.MySampleApp"
    type="Win32"/>

Hast du mal probehalber im Manifest auch das Win64 angegeben?
Also amd64 oder ia64, je nachdem, was du hast.

Und ich finde es immer wieder interessant, daß niemand den Namen anpasst oder gar die Version.


Ach ja, ich hab zwar sehr oft gesehn, daß bei processorArchitecture ein * angegeben wird,
aber aus leidlicher Erfahrung muß ich sagen, daß man da besser etwas angeben sollte, da Windows das * gern als ungültig erklärt und damit auch das komplette Manifest, bzw. die Anwendung sperrt.
(beim ersten assemblyIdentity, für die Anwendung ... im dependentAssembly stört das * nicht unbedingt ... aber ich hab bisher eigentlich nur Manifeste für Win32-Programme benutzt)

[ringli]

Ja, hatte ich auch schon ausprobiert. Das Ergebnis ist das selbe. Leider. Aber ich kann es heute Abend gerne noch mal ausprobieren.

[jaenicke]

Bei dir steht doch XE4, da sollte doch auch die integrierte Version der Taskdialoge problemlos funktionieren. Also wozu alles selbst deklarieren?
http://docwiki.embarcadero.com/CodeE...alogs_(Delphi)

[ringli]

Beantworte ich dir gerne. Weil ich die Taskdialoge auch ganz gerne in kleinen Starteranwendungen als MessageBox-Ersatz verwende. Und sobald ich die Taskdialoge über die VCL mit einbinde werden aus mal grade 400 kB weit über 1 MB. Jetzt kann man natürlich argumentieren das Speicherplatz nichts mehr kostet, aber ich bin da halt etwas altmodisch.

Ausserdem interessiert mich das technisch was da wirklich schief läuft.

@himitsu:
Das "amd64" fördert in dem Fall das gleiche zu Tage wie das "*", d.h. vom TaskDialogIndirect ist nach wie vor nichts zu sehen.

[ringli]

Ich habe jetzt mal jaenicke's Tip befolgt und mit dem vordefinierten TaskDialogIndirect aus Delphi XE4 ein kleines Testprogramm erstellt. So wie es das Programm im Anhang ist, funktioniert der Aufruf sowohl unter Win32 als auch unter Win64. Zumindest schon mal ein Fortschritt.

Allerdings habe ich jetzt noch das Problem das der durch TaskDialogIndirect erzeugte Hinweisdialog bei Anwendungen ohne Fenster nicht erscheint. Genau das benötige ich aber. Hat hier noch jemand einen Tip wie ich hier ans Ziel komme?

[jaenicke]

Wie du im Debugger siehst, wurde die comctl32.dll nicht geladen, so dass das GetModuleHandle in InitComCtl fehlschlägt. Ein LoadLibrary hilft. Die exportierte Funktion TaskDialogIndirect wird dennoch nicht gefunden, da müsste man mal schauen warum...

[ringli]

Also ich bin jetzt zumindest schon mal so weit gekommen das es ausreicht die VCL.Controls in die Uses-Klausel des Programmes bzw. der Unit mit aufzunehmen um die Dialoge in einer Anwendung ohne eigenes Fenster anzuzeigen. Allerdings bin ich da jetzt mit meinem Latein am Ende. Ich habe mir da auch schon mal den Initialization-Abschnitt in der VCL-Controls angesehen, aber die VCL ist ja dermassen verstrickt...

[EDIT]
Die Lösung hat sich jetzt doch einfacher rausgestellt als gedacht: InitCommonControls; (aus Winapi.CommCtrl) eingefügt in die DPR-Datei des Projektes und es funktioniert.

[ringli]

Zu früh gefreut.

Scheinbar hat es gestern nur geklappt weil irgendwas von den anderen Versuchen im Speicher geblieben ist. Nachdem ich es heute nochmal getestet habe funktioniert es nicht mehr richtig. Folgende Konstellationen habe ich getestet:

Anwendung mit Fenster:

• Win32 = TaskDialogIndirect zeigt ein Fenster an.
• Win64 = TaskDialogIndirect zeigt ein Fenster an.

Anwendung ohne Fenster:

• Win32 = TaskDialogIndirect zeigt ein Fenster an.
• Win64 = TaskDialogIndirect zeigt kein Fenster an.

Als weiteren Versuch habe ich auch noch mal InitCommonControlsEx aufgerufen. Sowohl zusätzlich zu InitCommonControls als auch einzeln. Mir gehen ehrlich gesagt die Ideen aus woran das liegen könnte.

So sieht derzeit die DPR der Anwendung ohne Fenster aus mit der ich teste:

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_WIN95_CLASSES      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
  InitCommonControls;
  InitCommonControlsEx(ICC);

  tdiMessageDialog('Anwendungsname',
                   'Nachricht',
                   'Nachrichtentext',
                   '<a href="http://www.delphipraxis.net">Delphi-PRAXiS</a>',
                   '',
                   TD_ERROR_ICON,
                   nil,
                   TDCBF_OK_BUTTON,
                   '',
                   ID_OK,
                   TDF_EXPANDED_BY_DEFAULT,
                   0); //Handle
end.

Hat jemand schon dieses Problem bei seinen Projekten gelöst und kann mir helfen?