{很早就写了．　只针对delphixe以上的版本可用．　　希望不是自己在造轮子．　}1unitU_ClassUtility;23interface4usesgenerics.defaults,DateUtils,Classes,SysUtils,Windows,generics.collections;56type7T...

这篇文章主要介绍了Delphi基本图像处理方法,实例汇总了Delphi操作图像实现浮雕、反色、模糊、翻转等常用效果的方法,非常具有实用价值,需要的朋友可以参考下 本文实例汇总了Delphi基本图像处理方法。分享给大家供大家参考。具体分析如下：//浮雕procedureEmboss(SrcBmp,DestBmp...

Delphi制作实现图像的各种显示效果，比如百叶窗、渐变、淡入淡出、水平交错、雨滴效果等，用鼠标点击“打开图像”按钮，可以选择图像文件导入到窗体中；点击其它各个按钮，可以实现图像显示特效，例如：点击“推拉效果”，图像将从窗体下方缓缓向上升起；点击“垂直交错”，图片将从窗口上下同时出现，直到相互汇合，形成一幅完整的图片；...

libraryDLLEntry;//dll源码usesSysUtils,Classes,Dialogs,Windows;{$R*.res}procedureDLLEntryPoint(dwReason:DWord);begincasedwReasonofDLL_PROCESS_ATTACH:showMessage('映...

delphi获取硬盘序列号functionGetIdeNum:String;typeTSrbIoControl=packedrecordHeaderLength:ULONG;Signature:Array[0..7]ofChar;Timeout:ULONG;ControlCode:ULONG;ReturnCode:UL...

{*******************************************************}{}{Delphi公用函数单元}{}{版权所有(C)2008}{}{*******************************************************}unitYzDelphiF...

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

//判断字符是否是汉字functionIsHZ(ch:WideChar):boolean;vari:integer;begini:=ord(ch);if(i<19968)or(i>40869)thenresult:=falseelseresult:=true;end;//判断字符是否是汉字functionI...

要实现目录级的拷贝，可以利用WindowsAPI函数ShFileOperation()，其函数声明如下：WINSHELLAPIintWINAPISHFileOperation(LPSHFILEOPSTRUCTlpFileOp);实例：新建一个工程，其程序示例如下：unitUnit1;interfaceusesWindo...

//提示：此代码需要useRegistry,Common;functionWriteMAC(model:integer):integer;varreg:TRegistry;beginreg:=TRegistry.Create;//创建注册表对象reg.RootKey:=HKEY_LOCAL_MACHINE;//指定注册...

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

privateSortCol:Integer;SortWay:Integer;procedureTForm1.LVweColumnClick(Sender:TObject;Column:TListColumn);beginSortCol:=Column.Index;if(SortWay=1)thenSortWay:=-...

procedureKillProcess(ExeName:string);constPROCESS_TERMINATE=$0001;//进程的PROCESS_TERMINATE访问权限varContinueLoop:Boolean;FSnapshotHandle:THandle;FProcessEntry32:TPro...

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

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