[DLL]Delphi 动态调用DLL代码

静态调用往往不够灵活和影响性能,采取动态调用是上上之选。 不废话上通用代码。 procedure TForm1.btn12Click(Sender: TObject); type TIntFunc = function(n: Integer): Extended; stdcall; var Th: Thandle; Tf: TIntFunc; Tp: TFarProc; begin Th := LoadLibrary(‘dll.dll’); { 装载DLL } if Th > 0 then tr

EXCEL 动态时间代码

你是不是厌倦了时间在EXCEL是静态的样子?想体验下EXCEL单元格中动态的时间吗?那就跟我来实现!此需求主要通过VBA来实现! 打开EXCEL,按ALT+F11打开VBA编辑器: 在thisworkbook中输入如下代码: Private Sub Workbook_BeforeClose(Cancel As Boolean)TerminateSet appTime = NothingSet objBtn = NothingEnd SubPrivate Sub Workbook_Open()In