摘要：
library DLLEntry;//dll源码 uses SysUtils, Classes, Dialogs, Windows; {$R *.res} procedure DLLEntryPoint(dwReason : DWord); begin ... 阅读全文
posted @ 2014-10-18 15:25
孤舟残月浅笑嫣然
阅读(1129)
评论(0)
推荐(0)
摘要：
CALL DWord Ptr [] kernel32.WriteFile 将数据写入一个文件，也可将这个函数应用于对通信设备、管道、套接字以及邮槽的处理 CALL DWord Ptr [] ker... 阅读全文
posted @ 2014-10-18 15:23
孤舟残月浅笑嫣然
阅读(773)
评论(0)
推荐(0)
摘要：
uses pngimage; {从 png 图片到十六进制字符串} function Png2Hex(png: TPngImage): string; var stream: TMemoryStream; begin stream := TMemoryStream.Creat... 阅读全文
posted @ 2014-10-18 15:16
孤舟残月浅笑嫣然
阅读(1362)
评论(0)
推荐(0)
摘要：
delphi 获取硬盘 序列号 function GetIdeNum: String; type TSrbIoControl = packed record HeaderLength : ULONG; Signature : Array[0..7] of Cha... 阅读全文
posted @ 2014-10-18 15:11
孤舟残月浅笑嫣然
阅读(3430)
评论(0)
推荐(0)
摘要：
delphi读写ini文件实例 //--两个过程，主要实现：窗体关闭的时候，文件保存界面信息；窗体创建的时候，程序读取文件文件保存的信息。 //--首先要uses IniFiles(单元） //--窗体创建的时候，读取ini文件信息 procedure TfrmAFN04H_F9.... 阅读全文
posted @ 2014-10-18 15:09
孤舟残月浅笑嫣然
阅读(374)
评论(0)
推荐(0)
摘要：
一、设计窗口 1) file---new--Application，新建一个窗体，设置该窗体的属性：Caption==登录窗口 2) procedure TForm1.btn1Click(Sender: TObject); begin form2.show;//需要再建立一个f... 阅读全文
posted @ 2014-10-18 15:07
孤舟残月浅笑嫣然
阅读(135)
评论(0)
推荐(0)
摘要：
{*******************************************************} { } { Delphi公用函数单元 ... 阅读全文
posted @ 2014-10-18 15:05
孤舟残月浅笑嫣然
阅读(886)
评论(0)
推荐(0)
摘要：
var SI : TStartupInfo; PI : TProcessInformation; pid:DWORD; begin ZeroMemory(@SI, SizeOf(SI)); //ZeroMemory宏用0来填充一块内存区域 SizeOf//Pasca... 阅读全文
posted @ 2014-10-18 15:03
孤舟残月浅笑嫣然
阅读(358)
评论(0)
推荐(0)
摘要：
procedure TForm1.btn1Click(Sender: TObject); var h: HWnd; p: array[0..254] of char; TitleStr: string; begin h := GetWindow(Handle, GW_HW... 阅读全文
posted @ 2014-10-18 15:02
孤舟残月浅笑嫣然
阅读(248)
评论(0)
推荐(0)
摘要：
本文主要跟大家介绍Delphi中获取其它进程的窗口句柄，在Delphi中获取其它进程的窗口句柄，绝大部分人首先想到的会使用：FindWindow或者用GetWindow来遍历查找，如： handle := FindWindow(nil,PChar('窗口的标题')); 或者： pr... 阅读全文
posted @ 2014-10-18 14:58
孤舟残月浅笑嫣然
阅读(1627)
评论(0)
推荐(0)
摘要：
//判断是否是数字 function IsNumeric(sDestStr: string): Boolean; //简写多余汉字 function SimplifyWord(sWord: string; iMaxLen: Integer): string; //读写取注册表中的字符串值 ... 阅读全文
posted @ 2014-10-18 14:57
孤舟残月浅笑嫣然
阅读(362)
评论(0)
推荐(0)
摘要：
//判断字符是否是汉字 function IsHZ(ch: WideChar): boolean; var i:integer; begin i:=ord(ch); if( i40869) then result:=false else result:=true; ... 阅读全文
posted @ 2014-10-18 14:51
孤舟残月浅笑嫣然
阅读(590)
评论(0)
推荐(0)
摘要：
要实现目录级的拷贝，可以利用Windows API函数ShFileOperation( )，其函数声明如下： WINSHELLAPI int WINAPI SHFileOperation( LPSHFILEOPSTRUCT lpFileOp ); 实例： 新建一个工程，... 阅读全文
posted @ 2014-10-18 14:48
孤舟残月浅笑嫣然
阅读(319)
评论(0)
推荐(0)
摘要：
//提示：此代码需要use Registry, Common; function WriteMAC(model:integer):integer; var reg:TRegistry;begin reg:=TRegistry.Create; //创建注册表对象 reg.RootKey... 阅读全文
posted @ 2014-10-18 14:47
孤舟残月浅笑嫣然
阅读(380)
评论(0)
推荐(0)
摘要：
一、文件文本文件是以行为单位进行读、写操作的。文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。二、定义FileStream: TFileStream;三、打开文件Filestream:= TFileStream.Create(AFileName: string; ... 阅读全文
posted @ 2014-10-18 14:41
孤舟残月浅笑嫣然
阅读(1662)
评论(0)
推荐(0)
摘要：
private SortCol: Integer; SortWay: Integer; procedure TForm1.LVweColumnClick(Sender: TObject; Column: TListColumn); begin ... 阅读全文
posted @ 2014-10-18 14:22
孤舟残月浅笑嫣然
阅读(1687)
评论(0)
推荐(0)
摘要：
procedure KillProcess(ExeName: string); const PROCESS_TERMINATE = $0001; //进程的PROCESS_TERMINATE访问权限 var ContinueLoop: Boolean; F... 阅读全文
posted @ 2014-10-18 14:20
孤舟残月浅笑嫣然
阅读(555)
评论(0)
推荐(0)
摘要：
IP地址的隐藏 一、前言 本文主要介绍如何在程序中实现IP地址的隐藏。其实这篇东西不算我写的。其中《IP头结构》部分我懒得打字，故复制、粘贴了孤独剑客的文章，先说声谢谢！代码部分参考了外国程序xes写的一个程序。所以这只是学习过程中的一个副产品。既然程序已经做好了，就顺便放上来跟大家一起... 阅读全文
posted @ 2014-10-18 14:18
孤舟残月浅笑嫣然
阅读(408)
评论(0)
推荐(0)
摘要：
在开发某些软件的时候，为了保护程序自身，就需要用到隐藏程序进程。以下通过实例来讲解隐藏程序进程的方法： 1、创建一个新的项目 Project1 选择File,New Application。在表单Form1上放一Memo组件，一个OK按钮组件，改变OK按钮组件的Cation属性为 ... 阅读全文
posted @ 2014-10-18 14:15
孤舟残月浅笑嫣然
阅读(2039)
评论(0)
推荐(0)
摘要：
interface function MyHideProcess: Boolean; implementation uses Windows, Classes, AclAPI, accCtrl; type NTSTATUS = LongInt; const //... 阅读全文
posted @ 2014-10-18 14:14
孤舟残月浅笑嫣然
阅读(506)
评论(0)
推荐(0)
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Tlhelp3... 阅读全文
posted @ 2014-10-18 14:13
孤舟残月浅笑嫣然
阅读(509)
评论(0)
推荐(0)
摘要：
WinAPI: GetClassName - 获取指定窗口的类名 //声明: GetClassName( hWnd: HWND; {指定窗口句柄} lpClassName: PChar; {缓冲区} nMaxCount: Integer {缓冲区大小} ):... 阅读全文
posted @ 2014-10-18 14:11
孤舟残月浅笑嫣然
阅读(3605)
评论(0)
推荐(0)
摘要：
Delphi 常用API 函数 AdjustWindowRect 给定一种窗口样式，计算获得目标客户区矩形所需的窗口大小 AnyPopup 判断屏幕上是否存在任何弹出式窗口 ArrangeIconicWindows 排列一个父窗口的最小化子窗口 AttachThreadInput ... 阅读全文
posted @ 2014-10-18 14:09
孤舟残月浅笑嫣然
阅读(403)
评论(0)
推荐(0)
摘要：
首先有两个自定的转换函数： function myStrToHex(s:string):string; //字串转16进制 var TmpStr:string; i:integer; begin TmpStr:=''; for i:=1 t... 阅读全文
posted @ 2014-10-18 14:08
孤舟残月浅笑嫣然
阅读(396)
评论(0)
推荐(0)
摘要：
一个常见的编程任务是枚举所有运行的"应用程序"。Windows任务管理器就是一个很好的例子。它用两种方式列出"应用程序"。任务管理器的第一个选项卡列出桌面上的所有"应用程序窗口"。第二个选项卡列出系统中的所有"进程"。本文提供了如何执行这些任务的详细信息。枚举顶层窗口如果将枚举进程与枚举桌面上的顶层... 阅读全文
posted @ 2014-10-18 14:05
孤舟残月浅笑嫣然
阅读(1645)
评论(0)
推荐(0)
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, AppEvnt... 阅读全文
posted @ 2014-10-18 13:56
孤舟残月浅笑嫣然
阅读(464)
评论(0)
推荐(0)
摘要：
原理分析: 这需要用到 ShellAPI 单元的两个函数: DragAcceptFiles、DragQueryFile; 用 DragAcceptFiles(窗口句柄, True); 以让窗口能够接受拖放; 然后就等待 WM_DROPFILES 消息, 并用 DragQueryFi... 阅读全文
posted @ 2014-10-18 13:54
孤舟残月浅笑嫣然
阅读(358)
评论(0)
推荐(0)
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1... 阅读全文
posted @ 2014-10-18 13:52
孤舟残月浅笑嫣然
阅读(531)
评论(0)
推荐(0)
摘要：
unit Secrity; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,nb30;{重要引用} t... 阅读全文
posted @ 2014-10-18 13:50
孤舟残月浅笑嫣然
阅读(616)
评论(0)
推荐(0)
摘要：
Uses MemoryCpuUtils;//首先引用该单元 //声明下列变量用来存储读取的数值 Var iTotalPhysics, iTotalVirtual, iTotalPageFile, iCurPhysics, iCurVirtual, iCurPageF... 阅读全文
posted @ 2014-10-18 13:48
孤舟残月浅笑嫣然
阅读(2058)
评论(0)
推荐(0)
浙公网安备 33010602011771号