//Delphi中实现JavaScript getTime函数 // 返回指定的 Date 对象自 1970 年 1 月 1 日午夜（通用时间）以来的毫秒数function GetTime(): string;var tmpDT: TDateTime;beg...

软件开发 |阅读(69) 2019-04-22

uses ActiveX; //引用单元//javascript中的escape()函数的delphi实现function escape(s: string): string; var sc: OleVariant;begin ActiveX.CoInitialize(nil); try...

软件开发 |阅读(152) 2019-05-06

var s:string;begin s := ExtractFileDir(Application.ExeName); ShowMessage('本级目录：' + s + #13#10 +'上一级目录: ' + ExtractFilePat...

软件开发 |阅读(574) 2019-04-29

使用json4delphi-master下载地址链接：https://pan.baidu.com/s/1kQysJZuHAtESZ1FeO4HBsQ 提取码：mrlt...

软件开发 |阅读(302) 2019-04-23

用LoadLibrary获得DLL的句柄，用GetProcAddress获得DLL中例程的地址。比如，你现在有个DllName.dll的DLL,并且里面有个Getcount的函数。如下：procedure TForm1.Button1Click(Send...

软件开发 |阅读(553) 2019-04-18

在你的应用程序中，你可能会希望将应用程序的标题栏进行闪动，以提醒用户进行某种操作，本文介绍了如何使一个窗口的标题栏进行闪动。 闪动标题栏 闪动一个窗口的标题栏意味着改...

软件开发 |阅读(227) 2019-04-18

Delphi中建立指定大小字体和读取该字体点阵信息的函数　　由于要控制硬件，需要把矢量的汉字转化为点阵信息写入eprom或在液晶屏上显示，因此用Delphi写了如下的函数，可以把指定...

软件开发 |阅读(39) 2019-04-13

//没事写的一个delphi读内存函数function Ncnr(lpADDress :integer):integer;stdcall; //读内存函数 varThwnd :HWND;pid :HWND;pHandle:HWND;test:integer;lpNumberOfByt...

软件开发 |阅读(62) 2019-04-13

delphi 怎样才能使窗体不显示在任务栏上?在 FormCreate首句加： SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);...

软件开发 |阅读(318) 2019-04-10

　 delphi 自定义热键　　通常在自己的程序里定义热键，只能在自己的应用窗口范围内使用，未免使用起来受到一定的限制。如果能在自己的应用程序里定义能被所有窗口访问的热键，应...

软件开发 |阅读(364) 2019-04-10