struct RARHeaderData
{
  char ArcName[ 260 ];
  char FileName[ 260 ];
  UINT Flags;
  UINT PackSize;
  UINT UnpSize;
  UINT HostOS;
  UINT FileCRC;
  UINT FileTime;
  UINT UnpVer;
  UINT Method;
  UINT FileAttr;
  char *CmtBuf;
  UINT CmtBufSize;
  UINT CmtSize;
  UINT CmtState;
};


struct RAROpenArchiveData
{
  char *ArcName;
  UINT OpenMode;
  UINT OpenResult;
  char *CmtBuf;
  UINT CmtBufSize;
  UINT CmtSize;
  UINT CmtState;
};


HANDLE PASCAL RAROpenArchive(struct RAROpenArchiveData *ArchiveData);
int PASCAL RARCloseArchive(HANDLE hArcData);
int PASCAL RARReadHeader(HANDLE hArcData,struct RARHeaderData *HeaderData);
int PASCAL RARProcessFile(HANDLE hArcData,int Operation,char *DestPath,char *DestName);
void PASCAL RARSetChangeVolProc(HANDLE hArcData,int (*ChangeVolProc)(char *ArcName,int Mode));
void PASCAL RARSetProcessDataProc(HANDLE hArcData,int (*ProcessDataProc)(unsigned char *Addr,int Size));
void PASCAL RARSetPassword(HANDLE hArcData,char *Password);

char *ArcName

Declare integer RAROpenArchive IN unrar.dll string @ ArchiveData
Declare integer RARCloseArchive IN unrar.dll integer hArcData
Declare integer RARReadHeader IN unrar.dll integer hArcData, string @ HeaderData
Declare integer RARProcessFile IN unrar.dll integer hArcData, integer Operation, string DestPath, string DestName
Declare RARSetChangeVolProc IN unrar.dll integer hArcData, integer Mode
Declare RARSetPassword IN unrar.dll integer hArcData, string @ cPassword

*** Пробуем открыть архив

 *!* char ArcName[ 260 ];
 *!* char FileName[ 260 ];
 *!*  UINT Flags;
 *!*  UINT PackSize;
 *!*  UINT UnpSize;
 *!*  UINT HostOS;
 *!*  UINT FileCRC;
 *!*  UINT FileTime;
 *!*  UINT UnpVer;
 *!*  UINT Method;
 *!*  UINT FileAttr;
 *!*  char *CmtBuf;
 *!*  UINT CmtBufSize;
 *!*  UINT CmtSize;
 *!*  UINT CmtState;

ArchiveData=ArcName+replicate(chr( 0 ), 260 -Len(ArcName))+;
                  FileName+replicate(chr( 0 ), 260 -Len(FileName))+;       
                  n2dw(Flags)+;
                  n2dw(PackSize)+;
                  n2dw(UnpSize)+;
                  n2dw(HostOS)+;
                  n2dw(FileCRC)+;
                  n2dw(FileTime)+;
                  n2dw(UnpVer)+;
                  n2dw(Method)+;
                  n2dw(FileAttr)+;
 *!*  char *CmtBuf;   А что должно быть тут??????
                  n2dw(CmtBufSize)+;
                  n2dw(CmtSize)+;
                  n2dw(CmtState)
**** Правильно ли єто?

RAROpenArchive(@ArchiveData)

FUNCTION n2dw (lnValue) 
#DEFINE m0        256  
#DEFINE m1      65536  
#DEFINE m2   16777216  
    LOCAL b0, b1, b2, b3 
    b3 = Int(lnValue/m2) 
    b2 = Int((lnValue - b3*m2)/m1) 
    b1 = Int((lnValue - b3*m2 - b2*m1)/m0) 
    b0 = Mod(lnValue, m0) 
RETURN Chr(b0)+Chr(b1)+Chr(b2)+Chr(b3)