Delphi实现JavaScript中的getTime函数
//Delphi中实现JavaScript getTime函数 // 返回指定的 Date 对象自 1970 年 1 月 1 日午夜（通用时间）以来的毫秒数function GetTime(): string;var tmpDT: TDateTime;beg...
标签：delphi
delphi实现js中的escape()编码和unescape()解码
uses ActiveX; //引用单元//javascript中的escape()函数的delphi实现function escape(s: string): string; var sc: OleVariant;begin ActiveX.CoInitialize(nil); try...
delphi实现获取主程序所在目录的上一级目录
var s:string;begin s := ExtractFileDir(Application.ExeName); ShowMessage('本级目录：' + s + #13#10 +'上一级目录: ' + ExtractFilePat...
delphi使用Jsons组件封装单元
使用json4delphi-master下载地址链接：https://pan.baidu.com/s/1kQysJZuHAtESZ1FeO4HBsQ 提取码：mrlt...
如何在DELPHI中载入连接库.LIB
用LoadLibrary获得DLL的句柄，用GetProcAddress获得DLL中例程的地址。比如，你现在有个DllName.dll的DLL,并且里面有个Getcount的函数。如下：procedure TForm1.Button1Click(Send...
delphi闪动标题栏
在你的应用程序中，你可能会希望将应用程序的标题栏进行闪动，以提醒用户进行某种操作，本文介绍了如何使一个窗口的标题栏进行闪动。 闪动标题栏 闪动一个窗口的标题栏意味着改...
Delphi中建立指定大小字体和读取该字体点阵信息的函数
Delphi中建立指定大小字体和读取该字体点阵信息的函数 由于要控制硬件，需要把矢量的汉字转化为点阵信息写入eprom或在液晶屏上显示，因此用Delphi写了如下的函数，可以把指定...
Delphi 读内存函数
//没事写的一个delphi读内存函数function Ncnr(lpADDress :integer):integer;stdcall; //读内存函数 varThwnd :HWND;pid :HWND;pHandle:HWND;test:integer;lpNumberOfByt...
delphi 怎样才能使窗体不显示在任务栏上?
delphi 怎样才能使窗体不显示在任务栏上?在 FormCreate首句加： SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);...
delphi 自定义热键
delphi 自定义热键 通常在自己的程序里定义热键，只能在自己的应用窗口范围内使用，未免使用起来受到一定的限制。如果能在自己的应用程序里定义能被所有窗口访问的热键，应...