begin
//exec(getenv('comspec'),'/c '+'notepad')
exec(getenv('comspec'),'/c write')
//exec(getenv('comspec'),'')
end.
完全可以,看看我的百科,http://baike.baidu.com/view/2703757.htm虽然是turbopascal的但一样用。或者你到网上搜一下,freepascal高级教程。
欢迎分享,转载请注明来源:内存溢出
begin
//exec(getenv('comspec'),'/c '+'notepad')
exec(getenv('comspec'),'/c write')
//exec(getenv('comspec'),'')
end.
完全可以,看看我的百科,http://baike.baidu.com/view/2703757.htm虽然是turbopascal的但一样用。或者你到网上搜一下,freepascal高级教程。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)