delphi 读取正在被占用的txt文件

本文整理自网络，侵删。

 
procedure TForm1.FormCreate(Sender: TObject);
var
FileSteam:TFileStream;
begin
FileSteam :=TFileStream.Create('u_in200416.log',fmShareDenyNone);
memo1.Lines.LoadFromStream(FileSteam);
end;
 

相关阅读 >>

Delphi 使用钩子函数 - 钩子链和 callnexthookex 的返回值

Delphi中几种程序自我删除的方法

Delphi format 另类用法

使用indy解决base64回车换行问题

Delphi瞬间消除无用托盘图标(刷新托盘)

Delphi http post json示例

Delphi 一个文件重复生成的小工具[附源码]

Delphi中如何判断是否有程序全屏

Delphi 查询当前目录下文件名是否存在

cnvcl 组件包

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 读取正在被占用的txt文件