1. ztvUnzip
ztvUnzip을 이용해서 zip파일을 풀고 있습니다.
헌데.. 아래 소스와 같이 하면
=>  Invalid or unsupported archive type for this operation. error 창이 뜨네요
도대체.. 모가 잘못된것인지.. ㅜ.ㅜ

------------------------------------------------------------------
var
  I: Integer;
  viServer: TVersionIni;
  FilesExtracted: Integer;
begin

  UnZip1 := TUnZip.Create(Nil);

  for I := 0 to 10 do
  begin
    viServer:=TVersionIni(FServerVersion.Items[I]);

    Unzip1.ArchiveFile := FTempFolder + viServer.PatchName;
    UnZip1.FileSpec.Clear;
    UnZip1.FileSpec.Add('*.*');
                 UnZip1.ExtractDir:= INSTALL_PATH;

    FilesExtracted := UnZIP1.Extract;

    ShowMessage(IntToStr(FilesExtracted));

  end;
-----------------------------------------------------------------

2. Button
프로그래스바를 둔 폼에 취소버튼이 하나 있습니다. 프로그래스바는
잘 동작하는데 이 버튼이 말썽이네요. 취소버튼이 눌러지지 않습니다.
focus가 안온다고 해야하나.. 암튼.. 해결이 안되서..
고수님들의 답변을 기다립니다~
-----------------------------------------------------------------
procedure TProgressForm.btnCalcelClick(Sender: TObject);
var
  ret: integer;
begin
  ret:=MessageBox(handle,'중단할까요?', '질문', MB_YESNO or MB_ICONQUESTION);
  if ret=IDYES then
  begin
    IdHTTP1.Disconnect;
    Close;
  end;
end;
-----------------------------------------------------------------