Compress.exeで圧縮されたファイルを展開する

Compress.Exeで圧縮されたファイルを展開するには Expand.exeがあるのかと思ったら無いんですね。
ただし LZ系の API を使えば展開可能です。

※ uses節 に LZExpand ユニットを追加して下さい。

■ Compress.exe で圧縮されたファイルを展開する例 
  procedure TForm1.Button1Click(Sender: TObject);
  var
    LzHnd     : integer;  //圧縮ファイル
    Lzs       : TOFStruct;
    ExHnd     : integer;  //展開後ファイル
    Exs       : TOFStruct;
    FileName  : string;
  begin
    //展開したいファイルを選択
    if  OpenDialog1.Execute then  begin
      LzHnd     :=  LZOpenFile(PChar(OpenDialog1.FileName), Lzs,OF_READ);
      FileName  :=  OpenDialog1.FileName;
      if  InputQuery('展開','展開後のファイル名',FileName) then  begin
          ExHnd :=  LZOpenFile(PChar(FileName), Exs, OF_CREATE);
          //展開処理
          LZCopy(LzHnd,ExHnd);
          LZClose(LzHnd);
          LZClose(ExHnd);
      end;
    end;
  end;