突然想到又添加一个把“疯狂刷新”的托盘图标都隐藏的功能。于是百度了半天才弄到一个还可以的实现功能。 （添加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...
* 这是一个禁用、启用网卡的例子，实际上通过shell可以控制整个界面，参考的网上资料 * 需要先引用 Microsoft Shell Controls And Automation（Shell32.dll）对应delphi声明 Shell32_TLB.pas * Export : * Ge...
Delphi中禁止WebBrowser右键的方法 uses MSHtml; //在控件标签additional中找到TApplicationEvents控件，拖到窗体上．在TApplicationEvents的OnMessage事件中加入以下代码： procedure TForm1.ApplicationEvents1Messag...
变体数组 var Arr: array[0..3] of Variant; begin Arr[0] := 123; Arr[1] := 'wy'; Arr[2] := True; Arr[3] := VarArrayOf([1,'wanyi',1.5]); //变体数组的元素也可以是变体数组 ShowMessage(Arr[0]); //123, 不需要转换 ShowMessag...