2017 年 – 第 2 页

[Delphi]关闭指定窗口

2017-10-242017-10-24 • Delphi • 评论关闭 • Aar0n •2,473 次查阅

直接上代码。 procedure TForm1.btn2Click(Sender: TObject); var hWndClose: HWND; str: String; begin str := inputBox('提示', '请输入应用程序窗口标题：', ''); if str <> '' then &

[函数]快速获取文件大小

2017-10-242017-10-24 • Delphi • 评论关闭 • Aar0n •2,009 次查阅

使用Win API 获取文件大小（可获取正在使用的文件，包括独占方式打开的文件GetFileSize） function GetSysFileSizeEx(AbsFileName:string):int64; var Handle: Windows.THandle; FindData: Windows.TWin32FindData; begin Handle := Windows.FindFirstFile(PChar(AbsFileName), FindData); if Handle &lt

[控件]Kbmmw服务端获取接收发出量

2017-10-172017-10-17 • Delphi • 评论关闭 • Aar0n •1,922 次查阅

闲话少说上代码，感谢爱干分享。 procedure TForm1.kbmMWServer1Stats(Sender: TObject;InStream: IkbmMWCustomRequestTransportStream; OutStream: IkbmMWCustomResponseTransportStream; const ATimeStampUS, ATimeTakenUS: Int64); begin iTotalSend:=iTotalSe

[SQL] [DBNETLIB ConnectionOpen(Invalid Instance())] 无效的连接的解决办法

2017-10-092017-10-09 • SQL • 评论关闭 • Aar0n •2,964 次查阅

连接SQL server 2008 报错： [DBNETLIB][ConnectionOpen (InvalidInstance()).] [DBNETLIB][ConnectionOpen (InvalidInstance()).]无效的连接。解决方法：改成 IP,端口，就连接正常.

[转载]UniguiSession注意事項

2017-09-262017-09-26 • Delphi • 评论关闭 • Aar0n •3,252 次查阅

版本: 0.96後 TerminateOnBrowserClose:=True; //本屬性在UniMainModule[關閉整個瀏覽器] 執行事件如下 UniGUIMainModuleBrowserClose UniGUIMainModuleSessionTimeout UniGUIMainModuleDestroy [關閉網頁] 執行事件如下 UniGUIMainModuleBrowserClose UniG

[FastReport]创建人民币大小写转换自定义函数

2017-09-262017-09-26 • Delphi • 评论关闭 • Aar0n •2,157 次查阅

设置如下: ———- function TForm1.MoneyCn(mmje: Double): string; const s1: string = '零壹贰叁肆伍陆柒捌玖'; s2: string = '分角元拾佰仟万拾佰仟亿拾佰仟万'; function StrTran(const S, s1, s2: string): string; begin Result

[Delphi]统计时间StopWatch类

2017-09-192017-09-19 • Delphi • 评论关闭 • Aar0n •2,882 次查阅

Delphi 现在提供了秒表类TStopWatch,用于统计程序使用的时间。其实，看这个类的实现接口，实际就是实现了C#,Java中早就有的StopWatch类。这样我们就可以放弃gettickcount函数了。记得引用System.Diagnostics单元。 var NewTime: TStopwatch; …… Create:建立一个实例 Reset:复位 Start:开始计时 StartNew:返回一个新的实例 Stop

登录