获取打开的记事本中的内容 - 回复 "ymg1103" 的问题

最新推荐文章于 2024-06-12 23:07:34 发布

转载最新推荐文章于 2024-06-12 23:07:34 发布 · 56 阅读

本文介绍了一种使用Delphi代码来获取Notepad中当前文本内容的方法。通过调用Windows API函数，如FindWindow、GetWindow及SendMessage等，实现了对Notepad窗口的定位，并读取其子窗口中的文本数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

问题来源: http://www.cnblogs.com/del/archive/2008/11/15/1334237.html#1784570

procedure TForm1.Button1Click(Sender: TObject);
var
  h: HWND;
  p: Pointer;
  Len: Integer;
begin
  h := FindWindow('Notepad', nil);
  if h = 0 then Exit;
  h := GetWindow(h, GW_CHILD);
  if h = 0 then Exit;
  Len := SendMessage(h, WM_GETTEXTLENGTH, 0, 0) + 1;
  p := GlobalAllocPtr(0, Len * SizeOf(Char));
  SendMessage(h, WM_GETTEXT, Len, Cardinal(p));
  ShowMessage(PChar(p));
  GlobalFreePtr(p);
end;

关注博主即可阅读全文