摘要：这个函数添加新项目到指定菜单的末尾。你可以使用appendmenu指定内容，外观，和菜单项行为。BOOL AppendMenu( HMENU hMenu, UINT uFlags, UINT uIDNewItem, LPCTSTR lpNewItem ); 参数来[in]处理菜单，下拉菜单，子菜单或快捷菜单，可改变。uFlags[in]常数控制新的菜单项的外观和行为。这个参数可以是常量值列在菜单组合。如果这个参数包括mf_separator常数，appendmenu忽略值的lpnewitem和uidnewitem参数。如果这个参数包括mf_string常数，该lpnewitem参... 阅读全文

摘要：方法一：3322获许本地外网地址：http://www.3322.org/dyndns/getipVB获取计算机名称，内、外网IP,很简单，仅作示例。这些在编大软件时作为装饰。Author:MinghackerFrom:http://yxmhero1989.blog.163.com/添加winsock控件,Inet控件Private Declare Function ReleaseCapture Lib "user32" () As Long none窗体的移动 Private Declare Function SendMessage Lib "user32&qu 阅读全文

摘要：在自己编写文本文件读取函数的时候，你首先会遇到的第一个问题就是：对于给定的一个文件名，怎么知道它所代表磁盘文件的确是文本文件？这里有一个很简单的方法：把给定的那个文件看作是无类型的二进制文件，然后顺序地读出这个文件的每一个字节，如果文件里有一个字节的值等于0，那么这个文件就不是文本文件；反之，如果这个文件中没有一个字节的值是0的话，就可以判定这个文件是文本文件了。这是原理，下面看看在Delphi 中怎样编程来实现它－－function IsTextFile(FileName:string):boolean; var Fs:TFileStream; i,size:integer; IsTextF 阅读全文

摘要：1.添加引用ShellAPI。2.运行程序时初始化 接受外部拖放。3.接收事件代码如下:unit mainForm;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls,StrUtils, WinSkinData, SkinCaption,ShellAPI;//添加ShellAPI引用 type TForm1 = class(TForm) Button1: TButton; OpenDialog1:... 阅读全文

摘要：procedure LetWindowShake(wHandle: THandle) ;const MAXDELTA = 4; SHAKETIMES = 500;var orect, wRect :TRect; deltax : integer; deltay : integer; cnt : integer; dx, dy : integer;begin //remember original position GetWindowRect(wHandle,wRect) ; orect := wRect; Randomize; for cnt :... 阅读全文

摘要：//自定义函数GetFormNameAt，获得鼠标针指下窗体的Namefunction GetFormNameAt ( X, Y : integer ) : string;var P:TPoint; W:TWinControl;begin P.X := X; P.Y := Y; W := FindVCLWindow(P); //得到鼠标指针下的VCL可视组件 if ( nil <> W ) then begin while w.Parent<>nil do //当W的上级Parent不为空时就继续往上找 w:=w.Parent; R... 阅读全文

摘要：新建一个应用程序，在窗体上放置一个TTimer和一个TPopupMenu，TTimer的Interval属性为1500，TPopupMenu建立三个子菜单项，分别为“总在最前”、“背景穿透”和“退出”。再准备一张背景图片。工程源代码如下：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IGDIPlus, ExtCtrls, Menus; type TForm1 = class(TForm) tmr1: ... 阅读全文