2017 年 10 月 – 印象派

[Delphi]关闭指定窗口

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

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

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

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

使用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,911 次查阅

闲话少说上代码，感谢爱干分享。 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,949 次查阅

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

登录