Verificar password en unzip xharbour

[praul]

Hola a todos.

Tengo una aplicaciòn con opcion de Copias de Respaldo, con la siguiente linea

lOk:= HB_ZipFile( cNameZip, aFile, 9,{|x,i| PINTAR(i, nLast, oProg) } ,;
TRUE, cCodAlm, TRUE, FALSE ) //, pFileProgress )

donde cCodAlm es una variable alfanumerica de 3 digitos que constituye el password

ahora lo que quiero es restaurar

lOk := hb_unzipfile(cNameZip,,.TRUE.,cCodAlm, ,aFiles,NIL)

Como puedo controlar el password ?
Al asignar a la variable cCodAlm una llave que no corresponde al archivo zip me devuelve la funcion
hb_unzipfile , TRUE

Gracias por su ayuda.