2022-11-18 62 0

Delphi WebBrowser1 缩放网页 Ctrl+中键↑ 放大 Ctrl+中键↓ 缩小uses ActiveX,ComObj;const OLECMDID_OPTICAL_ZOOM = 63;var ZoomIn: OleVariant;begin ZoomIn := 10; WebBrowser1.ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DODEFAULT, ZoomIn);end;

2022-11-18 83 0

代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) OpenDialog1: TOpenDialog; Button1: TButton; Button2: TButton; procedure FormCre

2022-11-18 117 0

工作的时候(虽然我不喜欢弄这些玩意儿) 需要将返回过来的json数据 转到本地的DBGrid展示。所以便搜罗了一下 ，使用 XSuperJSON 将数据转成内存表 使用 .我们从请求返回的JSON数组对象 ISuperArray 转换到FDM中 然后连接到DataSet显示即可 下面给出的函数即鄙人粗糙的写的转换函数.(* json 数据转换 内存表 icy*)function JsonToDataSet2(JAry: ISuperArray; MDB: TFDMemTable):Boolean;

2022-11-18 109 0

用 IOUtils 单元下的 TDirectory.GetFiles 获取文件列表太方便了;下面的例子只是 TDirectory.GetFiles 的典型应用...unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Butt

2022-11-18 185 0

从Windows Vista（和Windows Server 2008）开始，Windows API库具有一种执行文件操作（如复制，移动，删除以及类似的文件和文件夹外壳操作）的更强大的新方法。旧的（但仍然有效）SHFileOperation函数现在已由IFileOperation接口代替。IFileOperation公开了用于复制，移动，重命名，创建和删除Shell项目的方法，以及提供进度和错误对话框的方法。如果您曾经使用过SHFileOperation，并且被MAX_PATH问题击中（例如），则可以在

2022-11-18 46 0

很多时候,我们想获取程序代码的执行时间,来计算代码的执行效率.具体做法如下,非常简单:var i:integer; t:integer;begin t := GetTickCount(); for I := 0 to 10000 do begin //code end; showmessage(inttostr(GetTickCount()-t)); end;

2022-11-18 45 0

uses ShlObj, ShellAPI;function GetAutoRunFilePath(): String;var fileName, pathStartUp: String; path: array [0 .. 255] of Char;begin if SHGetSpecialFolderPath(0, @path[0], CSIDL_STARTUP, true) then pathStartUp := String(path); Result := pathStart

2022-11-18 49 0

begin MessageDlg('Do you like the new Bootstrap capabilities?',mtInformation, [mbYes, mbNo]); end;