Listing 3

//Entpacken von (mit Compress.exe) komprimierten Dateien

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  LZExpand;

type
  TForm1 = class(TForm)
    procedure FormClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormClick(Sender: TObject);
var ReOpenBuff: TOFStruct;
    SourceLZFile, DestLZFile: LongInt;
    SourceFilename, DestFilename: string;

begin

ReOpenBuff.cBytes:=sizeof(TOFStruct);

SourceFilename:='Test.ex_';
DestFilename:='Test.exe';

//OF_PROMPT zeigt bei nichtvorhandener Sourcefile einen Dialog an
SourceLZFile:=LZOpenFile(PChar(SourceFilename), ReOpenBuff, OF_READ+OF_PROMPT);
DestLZFile:=LZOpenFile(PChar(DestFilename), ReOpenBuff, OF_CREATE);
LZCopy( SourceLZFile, DestLZFile); //Kopiert und entpackt gegebenenfalls das Sourcefile
LZClose( SourceLZFile);
LZClose( DestLZFile);
end;

end.

Zurück zur Hauptseite