如何利用程序对文件进行读写？(30分)

东方龙 · 2002-11-26

我想按下A按钮时，他将自动读出同个目录下的file.txt的第一行的信息
并执行第一行里的命令。

比如：按下A按钮时，他就转到file.txt，并对第一行进行读取和执行，（第一行
为C：/a.exe，他将运行C盘里的A。exe）也就是利用他执行另外一个EXE程序。
但我不想用shellexecute.因为他是固定在程序里面的，修改麻烦。

jsxjd · 2002-11-26

procedure TForm1.Button4Click(Sender: TObject);
var
s:Tstrings;
t:string;
begin
s:=TstringList.create;
try
s.loadFromFile('File.Txt');
if s.Count >0 then
begin
t:=trim(s[0]);
if length(t)>0 then
winexec(pchar(t),sw_show);
end;
finally
s.free;
end;
end;

xksyhjb · 2002-11-26

bjf2001 · 2002-11-26

同上可以行的，

beckzd · 2002-11-26

东方龙 · 2002-11-27

非常感谢，jsxjd，，已经测试可以。请加入QQ：80215521，，我想请你指教
但我还想如果在行前加上“*”就可将该行屏蔽掉要如何做。
请解释一下下面的语句，谢谢
var
s:Tstrings;//请解释
t:string;//请解释
begin
s:=TstringList.create;;//请解释
try
s.loadFromFile('File.Txt');;//请解释
if s.Count >0 then;//请解释（这个是数值大于0时才运行吗？）
begin
t:=trim(s[0]);;//请解释（经我测试这个是行数，对吗？）
if length(t)>0 then;//请解释
winexec(pchar(t),sw_show);;//请解释
end;
finally;//请解释
s.free;;//请解释
end;

东方龙 · 2002-11-27

请说说看

东方龙 · 2002-11-28

可以吗？

如何利用程序对文件进行读写？(30分)

东方龙

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

xksyhjb

Unregistered / Unconfirmed

bjf2001

Unregistered / Unconfirmed

beckzd

Unregistered / Unconfirmed

东方龙

Unregistered / Unconfirmed

东方龙

Unregistered / Unconfirmed

东方龙

Unregistered / Unconfirmed

Similar threads