K
Kingron
Unregistered / Unconfirmed
GUEST, unregistred user!
请大家在自己的机器上面运行下面的代码，看看有什么发现：[
]
procedure TForm1.Button1Click(Sender: TObject);
var
F:textfile;
begin
AssignFile(F,'C:/test1.txt');
Rewrite(F);
Write(F,'联通');
CloseFile(F);
WinExec('notepad C:/test1.txt',SW_SHOW);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
F:textfile;
begin
AssignFile(F,'C:/test2.txt');
Rewrite(F);
Write(F,'中国联通');
CloseFile(F);
WinExec('notepad C:/test2.txt',SW_SHOW);
end;
上面的代码，Button1的在很多机器上面不能够正常写入文件，Button2可以正常写入文件。
测试的机器超过5台以上！测试的操作系统包括英文Winxp Prof,英文Windows2000 Prof，中文Winxp Prof，中文Windows2000 Prof
甚至你利用API也不能正常写入。
估计微软和“联通”有仇。看看大家有什么意见？
]procedure TForm1.Button1Click(Sender: TObject);
var
F:textfile;
begin
AssignFile(F,'C:/test1.txt');
Rewrite(F);
Write(F,'联通');
CloseFile(F);
WinExec('notepad C:/test1.txt',SW_SHOW);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
F:textfile;
begin
AssignFile(F,'C:/test2.txt');
Rewrite(F);
Write(F,'中国联通');
CloseFile(F);
WinExec('notepad C:/test2.txt',SW_SHOW);
end;
上面的代码，Button1的在很多机器上面不能够正常写入文件，Button2可以正常写入文件。
测试的机器超过5台以上！测试的操作系统包括英文Winxp Prof,英文Windows2000 Prof，中文Winxp Prof，中文Windows2000 Prof
甚至你利用API也不能正常写入。
估计微软和“联通”有仇。看看大家有什么意见？