AbUnZipper přes komponentu Abbrevia (Delphi)
Zdravím, dotaz.
Takto rozbalim z archivu zip soubor čti.txt na disk F a načtu bo komponenty memo
procedure TForm1.Button1Click(Sender: TObject);
begin
AbUnZipper1.BaseDirectory := 'F:\';
AbUnZipper1.FileName := 'F:\Test.zip' ;
AbUnZipper1.Password := 'heslo' ;
AbUnZipper1.ExtractFiles('čti.txt') ;
Memo1.Lines.LoadFromFile('F:\čti.txt');
ShowMessage('Done.') ;
end;
Je nějaky zpusob jak do dostat přimo do komponenty aníž by se rozbalil na disk?