有一个文本文件,正在被其他程序写入。 由于想读取文本文件内容。
用 ls:=tstringlist.create;
ls.loadfromfile('1.TXT'); 或者 AssignFile(F,'1.TXT');
均提示次文件被其他程序占用,后者还报I/O错误。 我指向读取里面的内容,并不是改写,请问如何才能读取里面的内容啊。
用 ls:=tstringlist.create;
ls.loadfromfile('1.TXT'); 或者 AssignFile(F,'1.TXT');
均提示次文件被其他程序占用,后者还报I/O错误。 我指向读取里面的内容,并不是改写,请问如何才能读取里面的内容啊。
解决方案 »
- 上次谁加我QQ,要我弄个照相馆图片背景替换的程序啊?刚写了个简单的,我QQ貌似今天被盗了还在申请找回,先发这了。
- 这是为什么?(在线等)
- 字段比较
- 一个很踩的问题?
- 怎么让一个MASKEDIT获得焦点的时候不处于全选状态?
- 在DELPHI中与ACCESS数据库相联,如何对ACCESS进行加密??请大家帮忙!
- help, 有关股票信息接收!(比较急)
- 菜鸟问题,工作需要,转学Delphi做WEB开发,请问各位哪里有详细一点的关于WebSnap的资料!
- 急!大家帮个忙
- SkinEngine2.9.1 中的DBradioBox和DBComboBox好像有问题吗!只能‘读’,不能‘写’,请教
- 请问有没有像DELPHI英文帮助那样的中文版帮助啊?要带查询功能的。
- 如何调用网站的时间?
var
stream:TFileStream;
ls:TStringList;
begin
ls:=tstringlist.create;
stream := TFileStream.Create('',fmOpenRead);
ls.LoadFromStream(stream);
end;
如果 1.txt 正在打开
取这个窗口的句柄,一般是 '1.txt - 记事本'
然后取edit控件的内容,因为1.txt是在记事本软件的edit控件里显示的// 以下是查找窗口 Edit 的代码:
function MyFindWindow : THandle;
const
// 父窗口类名数组
A_szClassName : array [0..1] of PChar = (
'Notepad',
'Edit'
);
// 父窗口标题数组
A_szWinName : array [0..1] of PChar = (
'1.txt - 记事本',
''
);
var
i : Integer;
hLastWin : THandle;
begin
// 首先求得顶级父窗口
hLastWin := FindWindow(A_szClassName[0], A_szWinName[0]);
// 逐次用FindWindowEx函数求出各级子窗口
for i:=1 to 1 do
begin
hLastWin := FindWindowEx(hLastWin, THandle(nil),
A_szClassName[i], A_szWinName[i]);
end;
result := hLastWin;
end;
// 举例: hLastWin : THandle;
// hLastWin := MyFindWindow();