怎么通过文本文件句柄,读取文件内容?(200分)

  • 主题发起人 主题发起人 funwun
  • 开始时间 开始时间
F

funwun

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么通过文本文件句柄,读取文件内容?
 
朋友,提问要说详细些啊,别人不明白怎么回答呀:(
 
有些难,偶也期待高手指点
 
类似ini或inf那样?
 
刚测试通过。原理是,记事本其实里面是由许多控件组成。所以找出记事本的句柄,得再找出控件的句柄。再用消息中的WM_GETTEXT.来得到文本。有问题再问。<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> &nbsp;hWindow, hControl: THandle;<br> &nbsp;sWindowText: PChar;<br>begin<br> &nbsp;hWindow := FindWindow(nil,'a.txt - 记事本');//记事本标题。<br> &nbsp;if hWindow = 0 then<br> &nbsp;begin<br> &nbsp; &nbsp;ShowMessage('未找到指定窗口');<br> &nbsp; &nbsp;Exit;<br> &nbsp;end;<br> &nbsp;hControl := FindWindowEx(hWindow, 0, 'EDIT', nil);<br> &nbsp;if hControl = 0 then<br> &nbsp;begin<br> &nbsp; &nbsp;ShowMessage('未找到指定控件');<br> &nbsp; &nbsp;Exit;<br> &nbsp;end;<br> &nbsp;GetMem(sWindowText, 100);<br> &nbsp;SendMessage(hControl, WM_GETTEXT, 100, LPARAM(sWindowText));<br> &nbsp;Memo1.Text:=sWindowText;<br> &nbsp;FreeMem(sWindowText);<br>end;
 
昏,我说的是知道一个*.txt文件的句柄,但是这个文件的文件名里面有特殊字符,因此不能用loadfromfile来读取,但是我可以通过这个文件的扩展名来得到这个文件句柄<br><br>我希望的就是通过这个文件的句柄来得到文件内容
 
后退
顶部