在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的，我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。 在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash...
实现原理是启动一个应用程序，通过ProcessID得到窗体句柄，然后对其设定父窗体句柄为本程序某控件句柄(本例是窗体内一个Panel的句柄)，这样就达成了内嵌的效果。 本文实现的是内嵌...
1、定义一个全局变量保存显示到标题栏的字符串 var strScroll:Widestring = 'Beyond - 海阔天空.mp3 - 千千静听 '; 2、添加一个Timer控件，设置属性 Interval := 250; //这个步长和千千静听是一样的。...
突然想到又添加一个把“疯狂刷新”的托盘图标都隐藏的功能。于是百度了半天才弄到一个还可以的实现功能。 （添加uses CommCtrl;） procedure HideAllTrace; var TBHWND: HWND ; i, count: Integer ; PI...
话说这段还是很菜的代码，仅仅是在无保护的机子上实现效果而已。 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,Tlhelp32, StdCtrls;type TForm1 = class(TF...
简单的webserver而已，不过实现的功能有些猥琐，可以在远程监控你的桌面一举一动~~ 代码如下： unit Main;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ActnList, StdCt...
代码: -------------------------------------------------------------------------------- unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edi...
delphi实时监视应用程序内存使用量 当你的产品已经完成了客户的需求功能，你是否已经认为你的产品已经完成了呢？如果你的客户在使用你 的产品一段时间后跑来向你诉苦：“产品用...
delphi数据库实现从最后一条记录向上查询至首记录 procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin with query1 do begin close; sql.Clear; sql.Add('select * from op where op like ''W1060000%'''); open;...
自己程序中的一段代码，进程防杀。根据网上面流传的进程防杀的C++代码改编。 DLL部分： PIMAGE_IMPORT_DESCRIPTOR = ^_IMAGE_IMPORT_DESCRIPTOR; PImageImportDescriptor = PIMAGE_IMPORT_DESCRIPTOR; _IMAGE_IMPORT_DE...