Tutorial :getwindowtext not retrieving text



Question:

I tried the following code but it does not retrieve text from foreground window!

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


Solution:1

Use this one:

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;  


Solution:2

Replace this line:

  title : pansichar;  

with this:

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


Solution:3

Try this 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.


Solution:4

  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;  


Solution:5

Can it be, that you have this issue?


Note:If u also have question or solution just comment us below or mail us on toontricks1994@gmail.com
Previous
Next Post »