?? sdkhead.dpr
字號:
program SdkHead;
uses
Classes,MemoryRun,Lh5Unit;
{$R *.res}
const
fmOpenRead = $0000;
fmShareDenyNone = $0040;
var
FileStreamRead:TFileStream;
MyStreamRead,MyStreamUnPack:TMemoryStream;
iPackSize:integer;
begin
FileStreamRead:=TFileStream.Create(ParamStr(0),fmOpenRead or fmShareDenyNone);
FileStreamRead.Seek(-(3+sizeof(iPackSize)),soFromEnd);
FileStreamRead.Read(iPackSize,sizeof(iPackSize));
FileStreamRead.Seek(-(3+sizeof(iPackSize)+iPackSize),soFromEnd);
MyStreamRead:=TMemoryStream.Create;
MyStreamUnPack:=TMemoryStream.Create;
MyStreamRead.CopyFrom(FileStreamRead,iPackSize);
FileStreamRead.Free;
MyStreamRead.Position:=0;
LHAExpand(MyStreamRead,MyStreamUnPack);
CjtMemoryRun(MyStreamUnPack.Memory);
MyStreamRead.Free;
MyStreamUnPack.Free;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -