Discussion :

[ChrisR91]

Bonjour,

Je suis nouveau ici et je suis également a mes premiers pas sur Delphi pascal.
Pour mon premier Dev, je suis parti des sources Delphi 2007 d'un ancien ami (Je n'ai pas réussi à le contacter) et j'essaye de le convertir vers Delphi XE et Win64. Dans un premier temps !
L'appli crée une barre des tâches avec Shell API, Class Shell_TrayWnd, TsRebarWnd, TrayNotifyWnd et CreateWindowEx, WindowProc, SendMessage. Il n'est sans doute pas le plus simple pour mon démarrage sur Delphi



Après quelques efforts, la version 32-bit fonctionne mais je n'arrive pas a la faire fonctionner la version 64-bit
Voici là ou je bloque actuellement, dans Tray.pas

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
19
20
21
22
23
24
type
  PTrayNotifyCDS  = ^TTrayNotifyCDS;
  TTrayNotifyCDS = record
    cookie: DWORD;
    notify_code: DWORD;
    nicon_data: TNotifyIconData;
 end;
 
function OnCopyData(hWnd: HWND; wParam: WPARAM; lParam: LPARAM): LRESULT;
var
  pcd: PCopyDataStruct;
  TnCDS: PTrayNotifyCDS;
  NID: NotifyIconData;
 
begin
  Result := 1;
  pcd := PCopyDataStruct(lParam);
  if pcd^.dwData = 1 then begin
    TnCDS:=PTrayNotifyCDS(pcd.lpData);
    nid:=TnCDS^.nicon_data;
    if nid.cbSize >= TNotifyIconData.SizeOf then
 
    case TnCDS^.notify_code of
         NIM_ADD:

En 64-bit nid.cbSize = 956 alors que TNotifyIconData.SizeOf = 976 et les données sont décalées.
Voici les sources du projet pour ceux qui sont intéressés
TaskBar.7z

Merci pour votre aide

[ChrisR91]

Hum, j'ai sans doute mal présenté mon souci pour être aider
Je précise que j'ai déjà fait plusieurs modif (dans le projet partagé ci-dessus) pour pouvoir compiler le programme en 64-bits et pour qu'il fonctionne.
Cependant, je bloque toujours sur la zone de notification. Il semble être un soucis suite à la copie de la DataStructure WM_COPYDATA dans la structure TNotifyIconData !

J'aurais sans doute plus de chance avec ce source beaucoup plus léger et plus facile à débuguer
Un bel exemple pour afficher dans une Form les Icônes de la zone de notification système via Shell_NotifyIconW.
L'exemple fonctionne bien en 32-bit. Pas de problème en x64 pour le compiler et le lancer mais je reproduis le même soucis avec les données dans la structure NotifyIconData!

Page de l'exemple: http://www.delphiworld.narod.ru/base/shell_tray.html
et le source du projet de démonstration: http://www.delphiworld.narod.ru/base...s/demotray.zip (10 Ko)

Note: Pour le lancer (32 ou 64), il faut arrêter au préalable le process explorer.exe via TaskMgr.
et toujours dans le gestionnaire des tâches, utiliser "Fichier/Nouvelle tâche" et exécuter explorer.exe pour relancer le Shell après le Test/Débug.

[tourlourou]

Y aurait-il une différence de taille des données UINT et HWND de la déclaration de NOTIFYICONDATA entre versions 32 et 64 bits ? Du style un écart de 4 à 8 octets, soit 5*4=20 octets en plus ?

Dans ce cas, un essai en remplaçant par DWORD le ferait-il ?

[ChrisR91]

Merci
Il semble bien s'agir bien d'un décalage de quelques octets entre 32 et 64 bit.
J'ai ajouté la déclaration de NotifyIconData en interne, puis en essayant avec DWORD mais sans succès pour l'instant.
Comme je l'ai dit dans mon premier post, je suis débutant, il va peut falloir que je commence par des choses plus facile

[tourlourou]

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
function OnCopyData(hWnd: HWND; wParam: WPARAM; lParam: LPARAM): LRESULT;
var
  pcd: PCopyDataStruct;
  TnCDS: PTrayNotifyCDS;
  NID: NotifyIconData;
//...
begin
  FillChar(NID, SizeOf(TNotifyIconData), 0); // pourquoi ici ? Et pourquoi avec SizeOf(TNotifyIconData) et non TNotifyIconData.SizeOf ?
  Result := 1;
  pcd := PCopyDataStruct(lParam);
  if pcd^.dwData = 1 then begin // qui envoie ces messages en settant à 1 ?
    TnCDS:=PTrayNotifyCDS(pcd.lpData); // que vaut pcd^.cbData ? en principe, taille de lpData, soit ici TNotifyIconData.SizeOf 
    NID:=TnCDS^.nicon_data;
    if NID.cbSize >= TNotifyIconData.SizeOf then
 
    case TnCDS^.notify_code of
         NIM_ADD:
         begin
          Result := 1;
          NewTrayIcon(NID);
         end;
 
        NIM_DELETE:
         begin
          Result := 1;
          DeleteTrayIcon(NID);
         end;
 
       NIM_MODIFY:
         begin
            ModifyTrayIcon(NID);
            Result := 1;
        end;
 
      end;
   end;
end;

En te basant sur NOTIFYICONDATA.szInfoTitle TCHAR[64], peux-tu vérifier le décalage ?

[ChrisR91]

Y aurait-il une différence de taille des données UINT et HWND de la déclaration de NOTIFYICONDATA entre versions 32 et 64 bits ? Du style un écart de 4 à 8 octets, soit 5*4=20 octets en plus ?

Dans ce cas, un essai en remplaçant par DWORD le ferait-il ?

En continuant sur cette voie, merci , j'ai également remplacé HICON par DWORD.
et maintenant, je n'ai plus l'écart, le décalage et les icones du systray s'affiche maintenant à la fois en 32 et 64 bit. Whaouuuu
Un peu de mal a bien comprendre , cependant, voici la structure déclaré en interne:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
type
  PNotifyIconDataA = ^TNotifyIconDataA;
  PNotifyIconDataW = ^TNotifyIconDataW;
  PNotifyIconData = PNotifyIconDataW;
  _NOTIFYICONDATAA = record
    cbSize: DWORD;
    Wnd: DWORD;
    uID: DWORD;
    uFlags: UINT;
    uCallbackMessage: UINT;
    hIcon: DWORD;
    szTip: array [0..127] of AnsiChar;
    dwState: DWORD;
    dwStateMask: DWORD;
    szInfo: array [0..255] of AnsiChar;
    case Integer of
      0: (
        uTimeout: UINT);
      1: (uVersion: UINT;
        szInfoTitle: array [0..63] of AnsiChar;
        dwInfoFlags: DWORD;
        guidItem: TGUID;        // Requires Windows Vista or later
        hBalloonIcon: DWORD);   // Requires Windows Vista or later
  end;
  _NOTIFYICONDATAW = record
    cbSize: DWORD;
    Wnd: DWORD;
    uID: DWORD;
    uFlags: UINT;
    uCallbackMessage: UINT;
    hIcon: DWORD;
    szTip: array [0..127] of WideChar;
    dwState: DWORD;
    dwStateMask: DWORD;
    szInfo: array [0..255] of WideChar;
    case Integer of
      0: (
        uTimeout: UINT);
      1: (uVersion: UINT;
        szInfoTitle: array [0..63] of WideChar;
        dwInfoFlags: DWORD;
        guidItem: TGUID;        // Requires Windows Vista or later
        hBalloonIcon: DWORD);   // Requires Windows Vista or later
  end;
  _NOTIFYICONDATA = _NOTIFYICONDATAW;
  TNotifyIconDataA = _NOTIFYICONDATAA;
  TNotifyIconDataW = _NOTIFYICONDATAW;
  TNotifyIconData = TNotifyIconDataW;
  NOTIFYICONDATAA = _NOTIFYICONDATAA;
  NOTIFYICONDATAW = _NOTIFYICONDATAW;
  NOTIFYICONDATA = NOTIFYICONDATAW;

[tourlourou]

Pas simple de savoir pourquoi certains champs semblent tantôt sur 4 octets, tantôt sur 8 pour une définition a priori identique de Handle ou UINT...
Restons pragmatiques : du moment que ça colle !