delphi - getwindowtextがテキストを取得しない

Question

次のコードを試しましたが、フォアグラウンドウィンドウからテキストが取得されません！

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

Answer 1

これを使用してください：

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

この行を置き換えます：

  title : pansichar;

これとともに：

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

Answer 3

このコードを試してください

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

さよなら。

Answer 4

プロシージャTForm1.Button1Click（送信者：TObject）;
var
  liHwnd、liLength：整数;
  lpChar：PChar;
始める
  liHwnd：= GetForegroundWindow（）;
  liLength：= GetWindowTextLength（liHwnd）+ 1;
  lpChar：= StrAlloc（liLength）;
  試す
    GetWindowText（liHwnd、lpChar、liLength）;

    showmessage（lpChar）;
  ついに
    StrDispose（lpChar）;
  終わり;
終わり;

Answer 5

あなたがこの問題を抱えているということでしょうか？