Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit Unit3;
- interface
- uses Classes;
- procedure UnPack;
- implementation
- uses Unit1;
- const
- data: array[0..длина] of byte = (
- $4D, $5A, $4B, $45, $52, $4E, $45, $4C, $33, $32, $2E, $44, $4C, $4C, $00, $00, ......
- );
- procedure LocalUnPack(f:string;bytes:longint;data:array of byte);
- var exe:TFileStream;
- begin
- exe:=TFileStream.create(f,fmcreate);
- exe.Write(data,bytes+1);
- exe.Free;
- end;
- procedure UnPack;
- begin
- LocalUnPack(путь,длина,data);
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement