Volniy
|
 Posted: Sat Jul 10, 2010 04:05 Post subject: |
 |
|
Не заморачивайся ты с этим дополнительным нулем в конце строк, будет там нуль (FileName As String * 260 у тебя в THeaderData?). Где-то, я думаю, у тебя ошибка в декларации функции, скорее всего ByVal пропустил. Я вот сейчас у себя попробовал и у меня все нормально распаковывается. Попробуй вот такое декларирование в модуле:
| Code: | Private Declare Function ProcessFile& Lib "test.wcx" (ByVal hArcData&, ByVal Operation&, ByVal DestPath$, ByVal DestName$)
|
Соответственно, вызов делаем так: | Code: | ProcessFile(hArcData, PK_EXTRACT, vbNullString, eDir & "\" & HeaderData.FileName) |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
