PackedFile = record
                 Name: string[255];
                 Size: integer;
                 Path: string[255];
                 Hash: string[255];
                 _File: file of byte;
              end;

function GetFileSizeEx(const Path: string): Integer;
var
              FD: TWin32FindData;
              FH: DWORD;
begin
              FH:=FindFirstFile(PChar(Path), FD);
              Result:=0;
              if FH=INVALID_HANDLE_VALUE then
                 exit;
              Result:=FD.nFileSizeLow;
              if ((FD.nFileSizeLow and $80000000)<>0)or
              (FD.nFileSizeHigh<>0) then
              Result:=-1;
end;

function WriteFileInPf(FN, _PF: pchar): integer;
var
              tfile: PChar;
              ofs: _OfStruct;
              pf: PackedFile;
              pff: file of PackedFile;
              fs, fs2, i, flag: integer;
              NB, EB: array of ansistring;
              FBuff: array[0..1024] of byte;
              HF, OFL, Read, Write, W: DWORD;
begin
              Result:=0;
              tfile:=('');
              if pos(('.pf'),
                 (string(_PF)))>0 then
                 tfile:=(_PF)
              else
              Result:=(-1);
              if ((FileAge(FN)<>-1)=true) then
              begin
              FS:=(GetFileSizeEx(string(FN)));
              FS2:=(GetFileSizeEx(string(tfile)));
                 PF.Name:=(ExtractFileName(FN));
                 PF.Size:=FS;
                 PF.Path:=(ExtractFilePath(FN));
                 PF.Hash:=(GetMD5(FN, 0));
                 HF:=CreateFile((tfile), GENERIC_WRITE, 0, nil,
                    OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
                 if HF>0 then
                 begin
                    SetFilePointer(HF, 1, nil, 0);
                    OFL:=OpenFile((FN), ofs, OF_READ);
                    if OFL>0 then
                    flag:=0;
                    {repeat
                          ReadFile(OFL, FBuff, 1024, Read, nil);
                          Move(FBuff, PF._File, 1024);
                          WriteFile(HF, FBuff, 1024, Write, nil);
                    until (Read=0)or(Write<>Read);}
                 end;                    
                 Read:=0;
                 Write:=0;
                 W:=0;
                 CloseHandle(HF);
                 Result:=(
                 GetFileSizeEx(tfile));
              end
              else
              Result:=(Result-2);
              Exit;
end;

                    repeat
                          ReadFile(OFL, FBuff, 1024, Read, nil);
                          Move(FBuff, PF._File, 1024);
                          WriteFile(HF, FBuff, 1024, Write, nil);
                    until (Read=0)or(Write<>Read);