Cardinal Numbers Cardinal Numbers Table of Cardinal
转载
2018-10-11 13:55:00
2503阅读
2评论
集合的势是用来度量集合规模大小的属性
原创
2022-06-09 13:55:43
1301阅读
在Delphi中,LongInt和Integer,LongWord和Cardinal有什么区别？ 有时候我发现DWORD的用法是什么呢？ 它们在所有版本的Delphi中是否一致？我应该坚持哪一个？ 简而言之：Longint和Longword是固定大小的整数,前者是有符号的,后者是无符号的,并且通常都
转载
2020-03-05 23:45:00
763阅读
2评论
知识点1：UIntPtr = NativeUInt = Pointer = Handle 随程序的位数改变而改变。如下：所以以后再用指针的时候要这样：UintPtr/NativeUInt(实例) = 栈中指针内存编号 以下是代码研究： unit Unit5;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, S
转载
2017-04-15 15:43:00
795阅读
function RVAToFileOffset(FileName:string; RVA: Cardinal): Cardinal;
var
MemPE: TFileStream;
PEDosHead: TImageDosHeader;
PENtHead: TImageNtHeaders;
Section : TImageSectionHeader;
i, SectionsC
转载
2014-09-06 11:03:00
191阅读
2评论
procedure sdfg.iTimers1Timer4(Sender: TObject);var vsub : Cardinal; vSetinterval: Cardinal;begin vsub := GetTickcount - FCurrSampleTime; vSetinterval
转载
2016-07-23 16:41:00
242阅读
2评论
WinAPI: GetTextColor - 获取设备环境的文本颜色
//声明:
GetTextColor(
DC: HDC {设备环境句柄}
): COLORREF; {返回一个 Cardinal 类型的颜色值}
//举例:
var
c: Cardinal;
begin
c :=
原创
2021-04-30 13:43:41
87阅读
type TcustCls = class private Fx, Fy: Integer; Fs: string; public procedure outPut(x, y: Cardinal; s: string); end;procedure Tcustcls.outPut(x, y: Cardinal; s: string);var cvs
原创
2023-08-31 10:26:56
55阅读
将superobject.pas源代码中的如下代码：
01
02
03
04
05
06
07
08
09
10
11
12
class function TSuperAvlEntry.Hash(const k: SOString): Cardinal;
var
h: cardinal;
i: Integer;
begin
h := 0;
{$Q-}
for i := 1 t
转载
2015-04-01 08:51:00
210阅读
2评论
对象池一般在服务端使用，所以稳定性是第一的。欢迎提意见unit uMyObjectPool;interfaceuses SyncObjs, Classes, Windows, SysUtils;type TObjectBlock = record private FObject:TObject; FUsing:Boolean; FBorrowTime:Cardinal; //借出时间 FRelaseTime:Cardinal; //归还时间 end; PObjectBlock = ^TObjectBlock; TMyObjectPool = clas...
原创
2021-07-22 15:10:17
411阅读
Cardinal 是 4 字节无符号的整型, 先看一个例数:
转载
2016-10-24 17:04:00
172阅读
2评论
关于 Lo、Hi、LoWord、HiWord
Cardinal 是 4 字节无符号的整型, 先看一个例数:Cardinal 例数:
4277991664
按字节划分:
第四字节
第三字节
第二字节
第一字节
二进制:
11111110
11111100
11111000
11110000
十六进
原创
2021-04-30 20:57:23
882阅读
function GetDisplayFrequency:integer;varDeviceMode:TDeviceMode;beginEnumDisplaySetting(nil,Cardinal(-1),DeviceMode);Result :=DeviceMode.dmDisplayFrequency;end;
转载
2008-09-13 10:56:00
87阅读
2评论
获取本机MAC地址方法一：function MacAddress: string; var Lib: Cardinal; Func: function(GUID: PGUID)
原创
2022-10-24 02:59:40
715阅读
implementation{$R *.dfm}function WinExecAndWait32(FileName: string; Visibility: Integer; var mOutputs: string): Cardinal;var s
原创
2023-08-31 11:08:19
34阅读
function AdjustProcessPrivilege(Processhandle: Thandle; Token_Name: pchar): boolean; //提权var Token: cardinal; TokenPri: _TOKEN
原创
2023-08-31 10:51:03
52阅读
TWMKey = packed record Msg: Cardinal; CharCode: Word; Unused: Word; KeyData: Longint; Result: Longint; end;FormShortCutFOnShortCutIsS... Read More
转载
2014-04-15 21:03:00
205阅读
2评论
program GetCommandLineExDemo;uses Windows;constSystemHandleInformation = 16;ProcessBasicInformation = 0;STATUS_SUCCESS = cardinal($00000000);SE_DEBUG_PRIVILEGE =20;
转载
2013-10-27 20:00:00
96阅读
2评论
引用PsAPIvar h:HWND; pid: Cardinal; pHandle: THandle; buf: array[0..MAX_PATH] of Char;begin h:=GetFo
转载
2016-07-27 16:06:00
248阅读
2评论
直接用socket做的服务器和客户端，程序做的差不多了，实际使用时，发现经常"掉线"，而程序不知道，找了许多解决办法，最后全都用上了，总结一下。1：在连接时，设置他的avalie保活定时器.Type TCP_KeepAlive = record OnOff: Cardinal; KeepAliveTime: Cardinal; KeepAli...
转载
2009-06-10 16:51:00
220阅读
2评论
