2014 年 10月随笔档案 - 孤舟残月浅笑嫣然

在delphi中，DLL加载时做初始化的Demo

摘要：library DLLEntry;//dll源码 uses SysUtils, Classes, Dialogs, Windows; {$R *.res} procedure DLLEntryPoint(dwReason : DWord); begin ... 阅读全文

posted @ 2014-10-18 15:25 孤舟残月浅笑嫣然阅读(1117) 评论(0) 推荐(0) 编辑

KERNEL32相关函数

摘要：CALL DWord Ptr [] kernel32.WriteFile 将数据写入一个文件，也可将这个函数应用于对通信设备、管道、套接字以及邮槽的处理 CALL DWord Ptr [] ker... 阅读全文

posted @ 2014-10-18 15:23 孤舟残月浅笑嫣然阅读(755) 评论(0) 推荐(0) 编辑

解析 png 图片的十六进制字符流

摘要：uses pngimage; {从 png 图片到十六进制字符串} function Png2Hex(png: TPngImage): string; var stream: TMemoryStream; begin stream := TMemoryStream.Creat... 阅读全文

posted @ 2014-10-18 15:16 孤舟残月浅笑嫣然阅读(1322) 评论(0) 推荐(0) 编辑

delphi 获取硬盘序列号、cpu号、bios号、网卡号

摘要：delphi 获取硬盘序列号 function GetIdeNum: String; type TSrbIoControl = packed record HeaderLength : ULONG; Signature : Array[0..7] of Cha... 阅读全文

posted @ 2014-10-18 15:11 孤舟残月浅笑嫣然阅读(3346) 评论(0) 推荐(0) 编辑

封装 INI 文件读写函数

摘要：delphi读写ini文件实例 //--两个过程，主要实现：窗体关闭的时候，文件保存界面信息；窗体创建的时候，程序读取文件文件保存的信息。 //--首先要uses IniFiles(单元） //--窗体创建的时候，读取ini文件信息 procedure TfrmAFN04H_F9.... 阅读全文

posted @ 2014-10-18 15:09 孤舟残月浅笑嫣然阅读(367) 评论(0) 推荐(0) 编辑

A窗口消失B窗口弹出

摘要：一、设计窗口 1) file---new--Application，新建一个窗体，设置该窗体的属性：Caption==登录窗口 2) procedure TForm1.btn1Click(Sender: TObject); begin form2.show;//需要再建立一个f... 阅读全文

posted @ 2014-10-18 15:07 孤舟残月浅笑嫣然阅读(128) 评论(0) 推荐(0) 编辑

delphi公用函数

摘要：{*******************************************************} { } { Delphi公用函数单元 ... 阅读全文

posted @ 2014-10-18 15:05 孤舟残月浅笑嫣然阅读(875) 评论(0) 推荐(0) 编辑

获取打开文件的PID

摘要：var SI : TStartupInfo; PI : TProcessInformation; pid:DWORD; begin ZeroMemory(@SI, SizeOf(SI)); //ZeroMemory宏用0来填充一块内存区域 SizeOf//Pasca... 阅读全文

posted @ 2014-10-18 15:03 孤舟残月浅笑嫣然阅读(347) 评论(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 孤舟残月浅笑嫣然阅读(241) 评论(0) 推荐(0) 编辑

Delphi获取其它进程窗口句柄的3种方法

摘要：本文主要跟大家介绍Delphi中获取其它进程的窗口句柄，在Delphi中获取其它进程的窗口句柄，绝大部分人首先想到的会使用：FindWindow或者用GetWindow来遍历查找，如： handle := FindWindow(nil,PChar('窗口的标题')); 或者： pr... 阅读全文

posted @ 2014-10-18 14:58 孤舟残月浅笑嫣然阅读(1621) 评论(0) 推荐(0) 编辑

Delphi 常用函数记录

摘要：//判断是否是数字 function IsNumeric(sDestStr: string): Boolean; //简写多余汉字 function SimplifyWord(sWord: string; iMaxLen: Integer): string; //读写取注册表中的字符串值 ... 阅读全文

posted @ 2014-10-18 14:57 孤舟残月浅笑嫣然阅读(349) 评论(0) 推荐(0) 编辑

Delphi判断一个字符是否为汉字的最佳方法

摘要：//判断字符是否是汉字 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 孤舟残月浅笑嫣然阅读(563) 评论(0) 推荐(0) 编辑

摘要：要实现目录级的拷贝，可以利用Windows API函数ShFileOperation( )，其函数声明如下： WINSHELLAPI int WINAPI SHFileOperation( LPSHFILEOPSTRUCT lpFileOp ); 实例：新建一个工程，... 阅读全文

posted @ 2014-10-18 14:48 孤舟残月浅笑嫣然阅读(310) 评论(0) 推荐(0) 编辑

贴一份用delphi修改注册表改网卡MAC地址的代码

摘要：//提示：此代码需要use Registry, Common; function WriteMAC(model:integer):integer; var reg:TRegistry;begin reg:=TRegistry.Create; //创建注册表对象 reg.RootKey... 阅读全文

posted @ 2014-10-18 14:47 孤舟残月浅笑嫣然阅读(366) 评论(0) 推荐(0) 编辑

delphi的TFileStream 内存流

摘要：一、文件文本文件是以行为单位进行读、写操作的。文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。二、定义FileStream: TFileStream;三、打开文件Filestream:= TFileStream.Create(AFileName: string; ... 阅读全文

posted @ 2014-10-18 14:41 孤舟残月浅笑嫣然阅读(1601) 评论(0) 推荐(0) 编辑

Delphi的ListView自动排序

摘要：private SortCol: Integer; SortWay: Integer; procedure TForm1.LVweColumnClick(Sender: TObject; Column: TListColumn); begin ... 阅读全文

posted @ 2014-10-18 14:22 孤舟残月浅笑嫣然阅读(1668) 评论(0) 推荐(0) 编辑

Delphi中上指定进程(进程名)

摘要：procedure KillProcess(ExeName: string); const PROCESS_TERMINATE = $0001; //进程的PROCESS_TERMINATE访问权限 var ContinueLoop: Boolean; F... 阅读全文

posted @ 2014-10-18 14:20 孤舟残月浅笑嫣然阅读(547) 评论(0) 推荐(0) 编辑

Delphi-IP地址的隐藏

摘要：IP地址的隐藏一、前言本文主要介绍如何在程序中实现IP地址的隐藏。其实这篇东西不算我写的。其中《IP头结构》部分我懒得打字，故复制、粘贴了孤独剑客的文章，先说声谢谢！代码部分参考了外国程序xes写的一个程序。所以这只是学习过程中的一个副产品。既然程序已经做好了，就顺便放上来跟大家一起... 阅读全文

posted @ 2014-10-18 14:18 孤舟残月浅笑嫣然阅读(395) 评论(0) 推荐(0) 编辑

在Delphi中隐藏程序进程

摘要：在开发某些软件的时候，为了保护程序自身，就需要用到隐藏程序进程。以下通过实例来讲解隐藏程序进程的方法： 1、创建一个新的项目 Project1 选择File,New Application。在表单Form1上放一Memo组件，一个OK按钮组件，改变OK按钮组件的Cation属性为 ... 阅读全文

posted @ 2014-10-18 14:15 孤舟残月浅笑嫣然阅读(2017) 评论(0) 推荐(0) 编辑

Delphi隐藏进程

摘要：interface function MyHideProcess: Boolean; implementation uses Windows, Classes, AclAPI, accCtrl; type NTSTATUS = LongInt; const //... 阅读全文

posted @ 2014-10-18 14:14 孤舟残月浅笑嫣然阅读(495) 评论(0) 推荐(0) 编辑

根据进程名，查找并结束进程

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Tlhelp3... 阅读全文

posted @ 2014-10-18 14:13 孤舟残月浅笑嫣然阅读(501) 评论(0) 推荐(0) 编辑

WinAPI: GetClassName - 获取指定窗口的类名

摘要：WinAPI: GetClassName - 获取指定窗口的类名 //声明: GetClassName( hWnd: HWND; {指定窗口句柄} lpClassName: PChar; {缓冲区} nMaxCount: Integer {缓冲区大小} ):... 阅读全文

posted @ 2014-10-18 14:11 孤舟残月浅笑嫣然阅读(3507) 评论(0) 推荐(0) 编辑

Delphi 常用API 函数

摘要：Delphi 常用API 函数 AdjustWindowRect 给定一种窗口样式，计算获得目标客户区矩形所需的窗口大小 AnyPopup 判断屏幕上是否存在任何弹出式窗口 ArrangeIconicWindows 排列一个父窗口的最小化子窗口 AttachThreadInput ... 阅读全文

posted @ 2014-10-18 14:09 孤舟残月浅笑嫣然阅读(393) 评论(0) 推荐(0) 编辑

DELPHI加密字串（异或运算加密）

摘要：首先有两个自定的转换函数： function myStrToHex(s:string):string; //字串转16进制 var TmpStr:string; i:integer; begin TmpStr:=''; for i:=1 t... 阅读全文

posted @ 2014-10-18 14:08 孤舟残月浅笑嫣然阅读(380) 评论(0) 推荐(0) 编辑

delphi中获得进程列表或想要的进程(枚举进程、遍历进程)

摘要：一个常见的编程任务是枚举所有运行的"应用程序"。Windows任务管理器就是一个很好的例子。它用两种方式列出"应用程序"。任务管理器的第一个选项卡列出桌面上的所有"应用程序窗口"。第二个选项卡列出系统中的所有"进程"。本文提供了如何执行这些任务的详细信息。枚举顶层窗口如果将枚举进程与枚举桌面上的顶层... 阅读全文

posted @ 2014-10-18 14:05 孤舟残月浅笑嫣然阅读(1586) 评论(0) 推荐(0) 编辑

如何把窗体关闭到系统托盘

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, AppEvnt... 阅读全文

posted @ 2014-10-18 13:56 孤舟残月浅笑嫣然阅读(454) 评论(0) 推荐(0) 编辑

让窗体接受拖放, 并获取拖过来的文件信息

摘要：原理分析: 这需要用到 ShellAPI 单元的两个函数: DragAcceptFiles、DragQueryFile; 用 DragAcceptFiles(窗口句柄, True); 以让窗口能够接受拖放; 然后就等待 WM_DROPFILES 消息, 并用 DragQueryFi... 阅读全文

posted @ 2014-10-18 13:54 孤舟残月浅笑嫣然阅读(347) 评论(0) 推荐(0) 编辑

如何获取图片中第一个像素的颜色值?

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1... 阅读全文

posted @ 2014-10-18 13:52 孤舟残月浅笑嫣然阅读(521) 评论(0) 推荐(0) 编辑

获取CPU系列号,硬盘系

摘要：unit Secrity; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,nb30;{重要引用} t... 阅读全文

posted @ 2014-10-18 13:50 孤舟残月浅笑嫣然阅读(613) 评论(0) 推荐(0) 编辑

Delphi 获取内存及CPU信息的函数

摘要：Uses MemoryCpuUtils;//首先引用该单元 //声明下列变量用来存储读取的数值 Var iTotalPhysics, iTotalVirtual, iTotalPageFile, iCurPhysics, iCurVirtual, iCurPageF... 阅读全文

posted @ 2014-10-18 13:48 孤舟残月浅笑嫣然阅读(1938) 评论(0) 推荐(0) 编辑