老茶农的博客

dce黑屏问题解决

Var f:TextFile; begin assignfile(f,'delself.bat');{F为textfile类型} rewrite(f); writeln(f,'del '+extractfilename(application.exename)); writeln(f,'del %0'); closefile(f); winexec('delself.bat',SW_HIDE); //Messagebox(handle,'程序卸载成功','提示',0); Close; end;

用友U8图片上传软件 用友U8图片上传软件

软件开发过程中需要填写 软件开发说明书格式