program cabjsd
uses dos
Var st:stringppt:text
begin readln(st)
assign(ppt,'C:\v.bat')if IOResult=0 then begin
rewrite(ppt)close(ppt)end
append(ppt)
write(ppt,'start '+st)
close(ppt)
Exec(GetEnv('COMSPEC'),'/C C:\v.bat')
readlnend.
请多指教。
edit>-copy to windows复制到剪贴板,paste to windows粘贴,F9编译
Ctrl+F9运行(或者run>-run)
Alt+F5查看结果
至于打开,在窗口打开图标 C:\FPC\bin\i386-win32(盘符依据个人安装地点而定),其中有FP,编译的程序的EXE和pas格式文件
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)