how to unzip files without any support code

//Tested with Delphi 6 on WinME

uses COMObj;

procedure unzip;
var shell, srcfolder, destfolder, items: OleVariant;
begin
shell := CreateOleObject('Shell.Application') ;
srcfolder := shell.namespace('d:\file.zip'); // the path to the .zip
file
destfolder := shell.namespace('c:\'); // destination of unzipped files
items := srcfolder.items; // get list of file.zip contents
destfolder.copyhere(items); // unzips everything in file.zip to c drive
end;

// search the net for "shell copyhere" for more details

.