静态调用往往不够灵活和影响性能，采取动态调用是上上之选。 不废话上通用代码。 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
标签： 动态
[代码]动态创建窗体
程序动态创建窗体，是优化程序一个很重要的细节。 procedure TForm1.N3Click(Sender: TObject); var Form2:TForm2; begin Form2:=TForm2.Create(nil); try Form2.ShowModal; finally form2.Free; end; end; procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Acti
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