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组...

interfacefunctionMyHideProcess:Boolean;implementationusesWindows,Classes,AclAPI,accCtrl;typeNTSTATUS=LongInt;const//NT_SUCCESS(Status)((NTSTATUS)(Status)>=0)...

Delphi常用API函数AdjustWindowRect给定一种窗口样式，计算获得目标客户区矩形所需的窗口大小AnyPopup判断屏幕上是否存在任何弹出式窗口ArrangeIconicWindows排列一个父窗口的最小化子窗口AttachThreadInput连接线程输入函数BeginDeferWindowPos启动...

首先有两个自定的转换函数：functionmyStrToHex(s:string):string;//字串转16进制varTmpStr:string;i:integer;beginTmpStr:='';fori:=1toLength(s)doTmpStr:=TmpStr+IntToHex(ord(s[i]),2);Re...

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