请大家帮帮忙，关于ZipTV密码．请大家指点，指点！急．

[a378270896]

我是新手，正在用ZipTV里的unrar控件编一可以解压缩带密码的.rar文件．可是不知道应该怎么处理密码的问题，请大家帮帮忙，先谢谢大家．
程序如下：
if OpenDialog1.Execute then
begin
UnRar1.ArchiveFile:=OpenDialog1.FileName;
UnRar1.ExtractDir:='c:\aa';
UnRar1.FileSpec.Add('*.*');
UnRar1.RecurseDirs:=True;
ShowMessage(IntToStr(UnRar1.Extract));
但是密码应该怎么输入程序，如果密码不正确的话又会返回什么参数．
大家帮帮忙．想了快一星期了，头都大了．

[a378270896]

不好意思，分没加进去，如果大家帮我解决了问题一定给加分．

[僵哥]

UnRar1.Password:='******';

[僵哥]

或者可以参考Demo:

(*
   This demo was updated to support unicode and the TNT unicode controls.

	See ..\unicode_notes.txt for usage notes on the TNT_UNICODE
   conditional define (the file is in [ziptv install dir]\demos).

  *)
Unit Unit1;

Interface

Uses
   Windows,
   Messages,
   SysUtils,
   Classes,
   Graphics,
   Controls,
   Forms,
   Dialogs,
   StdCtrls,

   ztvRegister,
   ztvBase,
   ztvConsts, // _String unicode
   ztvUnRar,
   ztvGbls;

Type
   TForm1 = Class(TForm)
      Button1: TButton;
      UnRAR1: TUnRAR;
      CheckBox1: TCheckBox;
    Button2: TButton;
      Procedure Button1Click(Sender: TObject);
{$ifdef TNT_UNICODE}
      Procedure UnRar1GetPassword(Sender: TObject; FileName: WideString;
      	Var Password: String; Var HeaderKeys, DataKeys: TSeedKeyRecord;
        	Var TryAgain: Boolean);
{$else}
      Procedure UnRar1GetPassword(Sender: TObject; FileName: String;
        	Var Password: String; Var HeaderKeys, DataKeys: TSeedKeyRecord;
        	Var TryAgain: Boolean);
    procedure Button2Click(Sender: TObject);
{$endif TNT_UNICODE}
   Private
      { Private declarations }
   Public
      { Public declarations }
   End;

Var
   Form1: TForm1;

Implementation

{$R *.DFM}


//-------------------------------------------------------------

Procedure TForm1.Button1Click(Sender: TObject);
Begin
   UnRAR1.ArchiveFile := 'd:\3\rar\exes.rar';
   UnRAR1.ExtractDir := 'c:\hold1\';
   UnRAR1.UseStoredDirs := CheckBox1.Checked;
   UnRAR1.DateAttribute := daFileDate;
   UnRAR1.ConfirmOverwrites := False;
   UnRAR1.OverwriteMode := omOverwrite;
   UnRAR1.RestoreFileAttr := False;
   UnRAR1.CreateStoredDirs := False;
   UnRAR1.TranslateOemChar := True;
   UnRAR1.RecurseDirs := True;
   UnRAR1.VolumeName := '';
   UnRAR1.FileSpec.Clear();
   //unRar1.FileSpec.Add('SRC\ATL.CPP');
   UnRAR1.FileSpec.Add('*.*');
   UnRAR1.RecurseDirs := True;
   UnRAR1.Extract();
   ShowMessage(IntToStr(UnRAR1.Count));
End;
//-------------------------------------------------------------

Procedure TForm1.UnRar1GetPassword(Sender: TObject; FileName: _String;
  Var Password: String; Var HeaderKeys, DataKeys: TSeedKeyRecord;
  Var TryAgain: Boolean);
Begin
	//Password := '-0-OSPREY-0-RAID-0-';
End;
//-------------------------------------------------------------

procedure TForm1.Button2Click(Sender: TObject);
begin
	UnRar1.Cancel := True;
end;

End.