![](https://img-blog.csdnimg.cn/20201014180756738.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
delphi
Listest
这个作者很懒,什么都没留下…
展开
-
delphi -MD5 工具
代码unit md5;// -----------------------------------------------------------------------------------------------interface// -----------------------------------------------------------------------------------------------uses Windows, Classes, SysUti原创 2022-02-21 15:25:44 · 287 阅读 · 0 评论 -
delphi-UUID
代码如下function GetLocalKID(guidstr: string; StrLength: Integer): string;var CID, Res : string; L, I1, I2, I3, K1, K2: Integer;const F = '0123456789ABCDEF'; T = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopq原创 2022-02-18 09:04:57 · 785 阅读 · 0 评论 -
设置时间格式
delphiprocedure SetSysDateFormat; //设置时间格式begin // 设置WINDOWS系统的短日期的格式 SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, 'yyyy-MM-dd'); application.UpdateFormatSettings := false; // 设定程序本原创 2022-02-16 08:51:03 · 471 阅读 · 0 评论 -
delphi 时间转时间戳
代码如下function Gettimestamp(dateTimeStr:String): string;var unix_time:int64;begin unix_time:=Datetimetounix( IncHour( strToDateTime(dateTimeStr),-8) ); //减8小时 Result := inttostr(unix_time);end;原创 2022-02-15 09:11:34 · 1305 阅读 · 0 评论 -
delphi 释放内存
procedure Tfrmmain.ResetHttpClient;begin try if Assigned(httpClient) then begin FreeAndNil(httpClient); end; httpClient := TIdHTTP.Create(nil); httpClient.HandleRedirects := True; httpClient.Request.AcceptEncoding := ''; .原创 2022-02-13 18:05:54 · 683 阅读 · 0 评论 -
delphi 读写JSON 格式
superobject 文件(* * Super Object Toolkit * * Usage allowed under the restrictions of the Lesser GNU General Public License * or alternatively the restrictions of the Mozilla Public License 1.1 * * Software distributed under原创 2022-02-12 16:49:54 · 854 阅读 · 0 评论 -
delphi 访问https 接口
1.代码function Tfrmmain.UploadData: Boolean;var IdHTTP: TIdHTTP; SSLIO: TIdSSLIOHandlerSocketOpenSSL;begin Result := False; IdHTTP := TIdHTTP.Create(nil); SSLIO := TIdSSLIOHandlerSocketOpenSSL.Create(nil); //https 协议 if Pos('https',FSynco原创 2021-11-30 18:00:50 · 3494 阅读 · 2 评论 -
delphi 创建windows 服务应用
1.项目文件代码program SCLQData;uses Forms, Windows, SysUtils, uCiaServiceTools in 'uCiaServiceTools.pas', superobject in 'common\superobject.pas', uCommonConst in 'common\uCommonConst.pas', uCommonFunc in 'common\uCommonFunc.pas', Winapi.GDI原创 2021-11-12 14:54:39 · 891 阅读 · 0 评论 -
delphi 拷贝文件
function DownLoadProductData(strSourFilePath: string; DeFieldpath: string): Boolean;var OpStruc: TSHFileOpStruct; FromBuf, ToBuf: array[0..128] of Char;begin try FillChar(FromBuf, Sizeof(FromBuf), 0); FillChar(ToBuf, Sizeof(ToBuf), 0); .原创 2021-11-12 10:21:27 · 659 阅读 · 0 评论 -
delphi 读取pdf
//读取PDFfunction ReadPdf(const fileName: string; var text: string): string;var rPdf: TDebenuPDFLibraryDLL1115; i, j, num, keyStatus, FH, PR: Integer;begin Result := ''; if Trim(fileName) = '' then begin Result := 'Path cannot be empty';.原创 2021-11-12 10:15:13 · 2283 阅读 · 1 评论 -
delphi 仿照世界之窗浏览器,滑动鼠标关闭主程序
unit umousemove;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Math, StdCtrls, dxGDIPlusClasses;type Tfrommousemove = class(TForm) Image1: TImage; Image2: T.原创 2021-11-12 10:04:38 · 249 阅读 · 0 评论 -
delphi 建表处理工具
unit UcreateTableTool;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore, dxSkinsDefaultPainters, cxTextEdit, cxMe.原创 2021-11-12 09:45:45 · 235 阅读 · 0 评论 -
delphi 实现自动刷抖音
function MouseToScreen(mVertical: Boolean; mMouse: Integer): Integer;begin case mVertical of False: Result := Round(mMouse * (MAXWORD / Screen.Width)); else Result := Round(mMouse * (MA.原创 2021-11-12 09:23:03 · 249 阅读 · 1 评论 -
delphi 读取excel
FBSAdoConn.Close;FBSAdoConn.ConnectionString := 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+ curFiileName+';Extended Properties= Excel 12.0;Persist Security Info=True';FBSAdoConn.Connected := True;qryBS.Connection := FBSAdoConn;sBsSQL := 'select .原创 2021-11-12 09:19:30 · 439 阅读 · 0 评论 -
delphi 托盘应用
procedure TfrmMain.Install_Icon;begin with Tray_Icon do begin cbSize := sizeof(TNotifyIcondata); Wnd := self.Handle; uID := 1; uFlags := nif_Message or nif_tip or nif_Icon; uCallbackMessage := MI_ICONEVEN; hIcon := Application...原创 2021-11-11 17:25:15 · 431 阅读 · 0 评论 -
delphi 开机自动启动
procedure TfrmMain.SetAutoRun(isRun: Boolean);var oAutoRunRegister: TRegistry;begin oAutoRunRegister := TRegistry.Create; try oAutoRunRegister.RootKey := HKEY_CURRENT_USER; oAutoRunRegister.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersio.原创 2021-11-11 17:23:30 · 1157 阅读 · 0 评论 -
delphi 获取程序运行路径
//获取程序运行路径function GetSelfPath: string;var ModuleName: string; i: Integer;begin SetLength(ModuleName, 255); GetModuleFileName(HInstance, PChar(ModuleName), Length(ModuleName)); i := LastDelimiter('\', ModuleName); Result := Copy(ModuleName,.原创 2021-11-11 17:01:32 · 926 阅读 · 0 评论 -
delphi 获取某个目录所有的文件名
function MakeFileList(Path,FileExt:string):TStringList ;var sch:TSearchrec;begin Result:=TStringlist.Create; if rightStr(trim(Path), 1) <> '\' then Path := trim(Path) + '\' else Path := trim(Path); if not Director.原创 2021-11-11 15:38:12 · 1102 阅读 · 0 评论