getwindowtext ne pas récupérer le texte

Question

J'ai essayé le code suivant mais il ne récupère pas le texte de la fenêtre de premier plan!

procedure TForm1.Button1Click(Sender: TObject); 
var 
    title : pansichar; 
    s : string; 
begin 
    GetWindowText(GetForegroundWindow(), title,GetWindowTextLength(GetForegroundWindow()) + 1); 
    s := title; 
    showmessage(s); 
end; 

Answer 1

Utilisez celui-ci:

var 
    hwndForeground: HWND; 
    titleLength: Integer; 
    title: string; 
begin 
    hwndForeground := GetForegroundWindow(); 
    titleLength := GetWindowTextLength(hwndForeground); 
    SetLength(title, titleLength); 
    GetWindowText(hwndForeground, PChar(title), titleLength + 1); 
    title := PChar(title); 

    ShowMessage(title); 
end; 

Answer 2

Remplacer cette ligne:

title : pansichar; 

avec ceci:

title: array[0..255] of Char; 

Answer 3

Essayez ce code

procedure TForm1.Button1Click(Sender: TObject); 
var 
    title : array[0..254] of Char; 
    s : string; 
begin 
    GetWindowText(GetForegroundWindow(), title,255); 
    s := title; 
    showmessage(s); 
end; 

Bye.

Answer 4

Peut-être que vous avez this issue?

Answer 5

 
procedure TForm1.Button1Click(Sender: TObject); 
var 
    liHwnd, liLength : Integer; 
    lpChar : PChar; 
begin 
    liHwnd := GetForegroundWindow(); 
    liLength := GetWindowTextLength(liHwnd) + 1; 
    lpChar := StrAlloc(liLength); 
    Try 
    GetWindowText(liHwnd, lpChar, liLength); 

    showmessage(lpChar); 
    Finally 
    StrDispose(lpChar); 
    End; 
end;