摘要: unit UnitMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, MSTSCLib_TLB, StdCtrls, Ex 阅读全文
posted @ 2022-05-09 21:55 陆战队 阅读(770) 评论(0) 推荐(0)
摘要: delphi调用EverythingSdk实现快速搜索 ListView秒加载数据 unit UnitMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia 阅读全文
posted @ 2022-05-09 21:51 陆战队 阅读(348) 评论(2) 推荐(1)
摘要: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uBCP, Vcl.StdCtrls; type TForm1 = class 阅读全文
posted @ 2022-05-09 21:46 陆战队 阅读(213) 评论(0) 推荐(0)
摘要: 最近孩子每天要学习一个小故事,做了个pdf转换图片,方便打印,学习 unit MainFrm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Pdf 阅读全文
posted @ 2022-05-09 21:44 陆战队 阅读(208) 评论(0) 推荐(0)
摘要: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, acPNG, ExtCtrls, TFlatButtonUnit; type 阅读全文
posted @ 2022-05-09 21:32 陆战队 阅读(57) 评论(0) 推荐(0)
摘要: package main import ( "log" "net/http" "os" ) func main() { os.Mkdir("files", 0777) http.Handle("/files/", http.StripPrefix("/files/", http.FileServer 阅读全文
posted @ 2022-05-09 21:27 陆战队 阅读(290) 评论(0) 推荐(0)
摘要: 这是炎热小镇慵懒的一天。太阳高挂,街道无人,每个人都债台高筑,靠信用度日。 这时,从外地来了一位有钱的旅客,他进了一家旅馆,拿出一张1000元钞票放在柜台,说想先看看房间,挑一间合适的过夜。 就在此人上楼的时候,店主抓着这张1000元钞票,跑到隔壁屠户那里支付了他欠的肉钱。 屠夫有了1000元钱,横 阅读全文
posted @ 2022-05-09 21:01 陆战队 阅读(321) 评论(0) 推荐(0)
摘要: ShortDateFormat := 'yyyy-mm-dd'; LongDateFormat := 'yyyy-mm-dd'; ShortTimeFormat := 'hh:nn:ss'; LongTimeFormat := 'hh:nn:ss'; DateSeparator := '-'; Ti 阅读全文
posted @ 2022-05-09 20:51 陆战队 阅读(262) 评论(0) 推荐(0)
摘要: function ExportExcel(DBGridEh1: TDBGridEh;aTitle: string): Boolean; var Book: IXLSWorkbook; ws: IXLSWorksheet; iSel,iCol,iCol1, iRow: Integer; SaveDia 阅读全文
posted @ 2022-05-09 20:47 陆战队 阅读(61) 评论(0) 推荐(0)
摘要: procedure TForm1.btnFindClick(Sender: TObject); var hr, hr1, hr_id, hr_pwd: THandle; WindowText: array[0..MAX_PATH] of Char; begin hr := FindWindow('#32770', 'TeamViewer'); hr := FindWindowEx... 阅读全文
posted @ 2019-02-28 20:31 陆战队 阅读(381) 评论(0) 推荐(0)