获取打开的记事本内容（转自万一博客）
摘要：
procedure TForm1.btn1Click(Sender: TObject);var h: HWND; p: Pointer; Len: Integer;begin h := FindWindow('Notepad', nil); if h = 0 then Exit; h := GetW 阅读全文
posted @ 2021-05-30 22:33 生活照旧 阅读(87) 评论(0) 推荐(0) 编辑
