摘要：
library DLLEntry;//dll源码 uses SysUtils, Classes, Dialogs, Windows; {$R *.res} procedure DLLEntryPoint(dwReason : DWord); begin ... 阅读全文
posted @ 2014-10-18 15:25
孤舟残月浅笑嫣然
阅读(1127)
评论(0)
推荐(0)
摘要：
CALL DWord Ptr [] kernel32.WriteFile 将数据写入一个文件，也可将这个函数应用于对通信设备、管道、套接字以及邮槽的处理 CALL DWord Ptr [] ker... 阅读全文
posted @ 2014-10-18 15:23
孤舟残月浅笑嫣然
阅读(771)
评论(0)
推荐(0)
摘要：
uses pngimage; {从 png 图片到十六进制字符串} function Png2Hex(png: TPngImage): string; var stream: TMemoryStream; begin stream := TMemoryStream.Creat... 阅读全文
posted @ 2014-10-18 15:16
孤舟残月浅笑嫣然
阅读(1357)
评论(0)
推荐(0)
摘要：
delphi 获取硬盘 序列号 function GetIdeNum: String; type TSrbIoControl = packed record HeaderLength : ULONG; Signature : Array[0..7] of Cha... 阅读全文
posted @ 2014-10-18 15:11
孤舟残月浅笑嫣然
阅读(3415)
评论(0)
推荐(0)
摘要：
delphi读写ini文件实例 //--两个过程，主要实现：窗体关闭的时候，文件保存界面信息；窗体创建的时候，程序读取文件文件保存的信息。 //--首先要uses IniFiles(单元） //--窗体创建的时候，读取ini文件信息 procedure TfrmAFN04H_F9.... 阅读全文
posted @ 2014-10-18 15:09
孤舟残月浅笑嫣然
阅读(373)
评论(0)
推荐(0)
摘要：
一、设计窗口 1) file---new--Application，新建一个窗体，设置该窗体的属性：Caption==登录窗口 2) procedure TForm1.btn1Click(Sender: TObject); begin form2.show;//需要再建立一个f... 阅读全文
posted @ 2014-10-18 15:07
孤舟残月浅笑嫣然
阅读(133)
评论(0)
推荐(0)
摘要：
{*******************************************************} { } { Delphi公用函数单元 ... 阅读全文
posted @ 2014-10-18 15:05
孤舟残月浅笑嫣然
阅读(884)
评论(0)
推荐(0)
摘要：
var SI : TStartupInfo; PI : TProcessInformation; pid:DWORD; begin ZeroMemory(@SI, SizeOf(SI)); //ZeroMemory宏用0来填充一块内存区域 SizeOf//Pasca... 阅读全文
posted @ 2014-10-18 15:03
孤舟残月浅笑嫣然
阅读(356)
评论(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
孤舟残月浅笑嫣然
阅读(246)
评论(0)
推荐(0)
摘要：
本文主要跟大家介绍Delphi中获取其它进程的窗口句柄，在Delphi中获取其它进程的窗口句柄，绝大部分人首先想到的会使用：FindWindow或者用GetWindow来遍历查找，如： handle := FindWindow(nil,PChar('窗口的标题')); 或者： pr... 阅读全文
posted @ 2014-10-18 14:58
孤舟残月浅笑嫣然
阅读(1626)
评论(0)
推荐(0)
摘要：
//判断是否是数字 function IsNumeric(sDestStr: string): Boolean; //简写多余汉字 function SimplifyWord(sWord: string; iMaxLen: Integer): string; //读写取注册表中的字符串值 ... 阅读全文
posted @ 2014-10-18 14:57
孤舟残月浅笑嫣然
阅读(358)
评论(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
孤舟残月浅笑嫣然
阅读(586)
评论(0)
推荐(0)
摘要：
要实现目录级的拷贝，可以利用Windows API函数ShFileOperation( )，其函数声明如下： WINSHELLAPI int WINAPI SHFileOperation( LPSHFILEOPSTRUCT lpFileOp ); 实例： 新建一个工程，... 阅读全文
posted @ 2014-10-18 14:48
孤舟残月浅笑嫣然
阅读(317)
评论(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
孤舟残月浅笑嫣然
阅读(375)
评论(0)
推荐(0)
摘要：
一、文件文本文件是以行为单位进行读、写操作的。文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。二、定义FileStream: TFileStream;三、打开文件Filestream:= TFileStream.Create(AFileName: string; ... 阅读全文
posted @ 2014-10-18 14:41
孤舟残月浅笑嫣然
阅读(1658)
评论(0)
推荐(0)
摘要：
private SortCol: Integer; SortWay: Integer; procedure TForm1.LVweColumnClick(Sender: TObject; Column: TListColumn); begin ... 阅读全文
posted @ 2014-10-18 14:22
孤舟残月浅笑嫣然
阅读(1685)
评论(0)
推荐(0)
摘要：
procedure KillProcess(ExeName: string); const PROCESS_TERMINATE = $0001; //进程的PROCESS_TERMINATE访问权限 var ContinueLoop: Boolean; F... 阅读全文
posted @ 2014-10-18 14:20
孤舟残月浅笑嫣然
阅读(553)
评论(0)
推荐(0)
摘要：
IP地址的隐藏 一、前言 本文主要介绍如何在程序中实现IP地址的隐藏。其实这篇东西不算我写的。其中《IP头结构》部分我懒得打字，故复制、粘贴了孤独剑客的文章，先说声谢谢！代码部分参考了外国程序xes写的一个程序。所以这只是学习过程中的一个副产品。既然程序已经做好了，就顺便放上来跟大家一起... 阅读全文
posted @ 2014-10-18 14:18
孤舟残月浅笑嫣然
阅读(406)
评论(0)
推荐(0)
摘要：
在开发某些软件的时候，为了保护程序自身，就需要用到隐藏程序进程。以下通过实例来讲解隐藏程序进程的方法： 1、创建一个新的项目 Project1 选择File,New Application。在表单Form1上放一Memo组件，一个OK按钮组件，改变OK按钮组件的Cation属性为 ... 阅读全文
posted @ 2014-10-18 14:15
孤舟残月浅笑嫣然
阅读(2034)
评论(0)
推荐(0)
摘要：
interface function MyHideProcess: Boolean; implementation uses Windows, Classes, AclAPI, accCtrl; type NTSTATUS = LongInt; const //... 阅读全文
posted @ 2014-10-18 14:14
孤舟残月浅笑嫣然
阅读(505)
评论(0)
推荐(0)
浙公网安备 33010602011771号