Discussion :

[xlbe78]

Bonjour à tous ceux qui me lisent,

Je suis débutant sous Lazarus (où plutôt Code Typhon pour les composants installés d'office...) et j'ai parcouru un bon nombre de pages web, lu beaucoup d'articles mais je n'arrive pas à me défaire de ce problème tout con mais pourtant bien réel...

A savoir que je souhaite récupérer le nom d'une fenêtre à l'écran quand ma souris passe dessus... rien de sorcier... là où je bloque, c'est que le texte qui m'est renvoyé comporte des ? à la place de chaque caractères accentués... j'ai beau essayer AnsitoUTF8() et autre UTF8Encode()... etc... Je ne comprends plus rien à force de lire à gauche à droite...

Je développe sur Windows 10 64-bits avec Code Typhon 5.70... La version de FPC est la 3.1.1.

J'utilise un timer, windowFromPoint et GetWindowText...

Voiçi mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Timer2Timer(Sender: TObject);
var
    MPos: longint;
    TitleWnd:array[0..255] of char;
    TitreFenetre :string;
begin
     MPos := WindowFromPoint(Mouse.CursorPos);
     LabelFenetre.Caption := 'Handle de la fenêtre courante : ' + IntToStr(MPos);
     GetWindowText(MPos, TitleWnd,255);
     TitreFenetre := TitleWnd;
     LabelNomFenetre.Caption := 'Nom de la fenêtre : ' + TitreFenetre;
end;

Il y a surement des erreurs... mais cela fonctionne en dehors du fait que je récupère un texte illisible dés qu'il y a a des accents ???

Si quelqu'un peut me donner une explication ou une correction de ce code...

... et merci d'avance de m'avoir lu ;-)

[Jipété]

Salut,

j'ai beau essayer AnsitoUTF8() et autre UTF8Encode()... etc... Je ne comprends plus rien à force de lire à gauche à droite...

je pense que tu n'es pas loin. Allez encore un peu de lecture : le dernier post ici, et l'avant-dernier post là.

Donc tu devrait transformer

Code :

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

1
2
 
     GetWindowText(MPos, TitleWnd,255);

en GetWindowTextW(MPos, TitleWnd,255); pour voir. Attention, non testé, juste une idée matinale.

[xlbe78]

Merci pour cette réflexion matinale :-)

J'ai essayé windowGetTextW (Unicode) et windowGetTextA (Ansi)... et j'ai ce message Error: Incompatible type for arg no. 2: Got "Array[0..255] Of Char", expected "PWideChar".

Je pige bien que je devrais remplacer ma déclaration de variable par un TitleWnd : PWideCHar; ... mais quand je fais çà, je n'ai rien comme retour dans mon tlabel mais en plus, Lazarus me fait apparaitre une belle fenêtre "Assembleur" avec un beau gros plantage au bout de 10 secondes... Il semblerait que les PChar, PWideChar etc... soient délicats à manipuler.

J'ai lu l'article sur le sujet içi : http://reisubar.developpez.com/tutor...trings-pchars/

Bref, je sèche... même si j'ai l'idée que je ne suis pas loin d'une solution.

Aussi, je vais regarder les deux posts dont tu me parles...

[DomDA91]

Avec Lazarus 1.6 faut utiliser WinCPToUTF8 de l'unité LazUtf8 Pour convertir explicitement de Ansi en UTF8.
Ici la conversion automatique de Codepage ne joue pas car TitleWnd n'est pas de type string.

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
Uses LazUtf8 ... ;
 
procedure TForm1.Timer2Timer(Sender: TObject);
var
    MPos: longint;
    TitleWnd:array[0..255] of char;
    TitreFenetre :string;
begin
  MPos := WindowFromPoint(Mouse.CursorPos);
  LabelFenetre.Caption := 'Handle de la fenêtre courante : ' + IntToStr(MPos);
  GetWindowText(MPos, TitleWnd,255);
// TitreFenetre := TitleWnd;
 TitreFenetre := WinCPToUtf8(TitleWnd);
  LabelNomFenetre.Caption := 'Nom de la fenêtre : ' + TitreFenetre;
end;

[xlbe78]

Yess DomDA91 ! çà fonctionne... merci :-)

Merci également à Jipété... les deux posts que tu m'as pointé sont chouettes aussi...


Je passe en résolu...