2013年4月26日

Delphi DBGridEh导出Excel

摘要： unit Unit_DBGridEhToExcel;interfaceusesSysUtils, Variants, Classes, Graphics, Controls, Forms, Excel2000, ComObj,Dialogs, DB, DBGridEh, windows,ComCtrls,ExtCtrls;typeTDBGridEhToExcel = class(TComponent)private FProgressForm: TForm; {进度窗体} FtempGauge: TProgressB... 阅读全文

posted @ 2013-04-26 11:57 哈哈哈哈BBA 阅读(2297) 评论(0) 推荐(0) 编辑

Delphi 获取机器MAC地址

摘要： //客户端机器的MAC地址function GetMacAddress: string;var Lib: Cardinal; Func: function(GUID: PGUID): Longint; stdcall; GUID1, GUID2: TGUID;begin Result :=''; Lib := LoadLibrary('rpcrt4.dll'); if Lib <> 0 then begin if Win32Platform <>VER_PLATFORM_WIN32_NT then @Func := GetProcAddr 阅读全文

posted @ 2013-04-26 11:16 哈哈哈哈BBA 阅读(2203) 评论(0) 推荐(0) 编辑

导航