Discussion :

[deetox]

Bonjour à tous...

Alors, je vais commencer par vous donner mon bout de code :

Code :

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

1
2
3
4
 
tray:=WindowFRomPoint(Pt);
child := windows.ChildWindowFromPoint(tray,point(x-rect.Left,y-rect.top));
getwindowtext(child,dee,SizeOf(dee));

le problème est simple, je veux pouvoir afficher le texte qui se trouve sous le curseur, mais ces quelques lignes assignent régulièrement rien à la variable dee...

Je pense que je n'utilise pas la bonne méthode pour trouver le texte sous le curseur, d'autant plus que celle ci ne m'affiche pas non plus le contenus des barres de tâches, de menus, etc.

Si quelqu'un sait donc comment faire pour afficher le texte qui se trouve sous le curseur MEME SI CELUI CI EST EN DEHORS DE L'APPLICATION DELPHI, qu'il m'aide par pitié ! Je craaaaaaque ! lol !

Merci à tous !

D.

[the_magik_mushroom]

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
function TForm1.GetCaptionAtPoint(CrPos: TPoint): string;
var
textlength: Integer;
Text: PChar;
Handle: HWND;
begin
Result := 'Empty';
Handle := WindowFromPoint(CrPos);
if Handle = 0 then Exit;
textlength := SendMessage(Handle, WM_GETTEXTLENGTH, 0, 0);
if textlength <> 0 then
begin
getmem(Text, textlength + 1);
SendMessage(Handle, WM_GETTEXT, textlength + 1, Integer(Text));
Result := Text;
freemem(Text);
end;
end;
 
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
 
var SourisPos: TPoint;
begin
GetCursorPos(SourisPos);
Edit1.Text:=GetCaptionAtPoint(SourisPos);
end;

[deetox]

Merci beaucoup mais... Ca marche pas !!!

Ca me fait exactement la même chose mais à la place de rien mettre, ca retourne "empty"... ce qui semble logique !!!

Je vais étudier cette solution mais apparement, ca marche pas... Les menus sont toujours considéré comme "empty", ainsi que le texte des icones sur le bureau... etc...

Je précise que je tourne en XP pro.

Merci.

D.