摘要： 1 //1.引用单元 2 uses ComObj; 3 4 //2.建立工作薄与工作表 5 procedure TForm1.Button1Click(Sender: TObject); 6 Var 7 ExcelApp,Sheet:Variant; 8 begin 9 ExcelApp:=createoleobject('excel.application'); 1... 阅读全文

摘要： PS:因为我现在用的电脑是WIN7 64位系统，所以没有实现功能，不知道XP是否可行。 1 //1.定义方法 2 procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPAINT; 3 4 //2.实现方法 5 procedure TFor... 阅读全文

摘要： 相关资料： 注意：在手机上必须选安装文字转语音引擎“google Text To Speech”地址：http://www.shouji56.com/soft/GoogleWenZiZhuanYuYinYinQingGoogleTexttoSpeech_3864/ 结果总结： XE10.1 + 小米 阅读全文

摘要： 1 原文来源： 2 http://www.cnblogs.com/findumars/p/4058379.html 3 4 原理： 5 其实就是改写了一个函数：mouseReleaseEvent，当在QLabel放开鼠标的时，就发射点击信号。 6 7 1.定义Label类 8 #ifndef CLICKEDLABEL_H_ 9 #define CLICKEDLABEL_... 阅读全文

摘要： 相关资料： https://www.cnblogs.com/barryhong/p/3884977.html 准备工作: 1.用SQLiteExpertPers建立一个sqlite数据库。 2.打开delphi xe7。 一、FireDAC法 设置库联接 1.放入FDConnection1控件 2. 阅读全文

摘要： 1 //1.引入单元2 uses ShlObj;3 4 //2.执行命令5 procedure TForm1.Button1Click(Sender: TObject);6 begin7 SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, n... 阅读全文