mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2025-09-22 07:03:53 +02:00
26 lines
591 B
PHP
26 lines
591 B
PHP
(*
|
|
KolibriOS on Windows (KoW) unpacker (KPCK) support unit
|
|
|
|
Copyright (c) 2021 Delphi SDK for KolibriOS team
|
|
*)
|
|
|
|
const
|
|
KPCK = $4B43504B;
|
|
|
|
type
|
|
PPackedFileHeader = ^TPackedFileHeader;
|
|
TPackedFileHeader = packed record
|
|
Signature: LongWord; // KPCK
|
|
UnpackedSize: LongWord;
|
|
PackMethod: LongWord; // LZMA, CallTrick, NoCallTrick
|
|
end;
|
|
|
|
PPackedFile = ^TPackedFile;
|
|
TPackedFile = packed record
|
|
Header: TPackedFileHeader;
|
|
Data: array[0..0] of Byte;
|
|
end;
|
|
|
|
procedure Unpack(const Source: TPackedFile; var Dest); stdcall; external;
|
|
{$L KoW\unpacker.obj}
|