Discussion :

[Okaryn]

Hello,

Je suis en train de rendre mes applis Turbo Delphi/Win32 compatibles avec Windows Vista. L'article publié ici même me sert de base.

Je n'arrive pas à utiliser les boites de dialogue car il ne trouve pas la fonction 'Taskdialog' dans Comctl32 (ou n'arrive pas à l'assigner à ma fonction TaskDialogProc) . Que ce soit avec le code diffusé ici ou celui repiqué sur TmsSoftware :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
var
...
  TaskDialogProc: function(HWND: THandle; hInstance: THandle; cTitle, cDescription, cContent: pwidechar; Buttons: Integer; Icon: integer;
       ResButton: pinteger): integer; cdecl stdcall;
 
begin
...
    DLLHandle := LoadLibrary('comctl32.dll');
    if DLLHandle >= 32 then
    begin
      @TaskDialogProc := GetProcAddress(DLLHandle,'TaskDialog');
      if Assigned(TaskDialogProc) then
      begin
...
      end;
      FreeLibrary(DLLHandle);
    end;

L'instruction if Assigned(TaskDialogProc) renvoit toujours False

En essayant avec le programme d'exemple (étape 5) j'ai pourtant bien une boite de dialogue qui s'affiche.

Qu'est-ce qui pourrait clocher dans mon programme et qui pourrait empêcher le chargement de cette fonction ?

Merci...

[Okaryn]

A force de test, j'ai trouvé d'où venait le problème : il faut le composant TXPManifest pour que cela fonctionne !!!

Il serait utile de la préciser dans l'article en question