Types
Enter topic text here.
{$IFDEF Win16}
DWord = LongInt;
PDWord = ^DWord;
TGUID = GUID; {Delphi 1.0 defines it as GUID - Delphi 2.0 defines it as TGUID}
AnsiChar = Char;
PAnsiChar = PChar;
{$ENDIF}
{$IFNDEF FPC}
PByte = ^Byte;
PByteArray = ^TByteArray;
TByteArray = array [0..MaxStructSize div SizeOf(Byte) - 1] of Byte;
PLongInt = ^LongInt;
{$ENDIF}
PLongIntArray = ^TLongIntArray;
TLongIntArray = array [0..MaxStructSize div SizeOf(LongInt) - 1] of LongInt;
TNetAccess
TNetAccessInfo
TGetFileNameEvent
PSignatureRec = ^TSignatureRec;
TSignatureRec = packed record
Sig1 : DWord; {!!.07}
Sig2 : DWord; {!!.07}
Sig3 : DWord; {!!.07}
Offset : DWord; {!!.07}
Size : DWord; {!!.07}
CRC : DWord; {!!.07}
Sig4 : DWord; {!!.07}
Sig5 : DWord; {!!.07}
Sig6 : DWord; {!!.07}
end;
TExeStatus = (
exeSuccess, {no error}
exeSizeError, {the file size has changed}
exeIntegrityError, {CRC does not match}
exeNotStamped, {the exe has not been stamped}
exeAccessDenied {share violation} {!!.05}
);
TCheckedExeEvent = procedure(Sender : TObject; Status : TExeStatus) of object;