Try this:[pascal]procedure Loadresources;
var
ZIP: TAbUnZipper;
RESZIP: TMemoryStream;
a: Cardinal;
path: string;
begin
a := SDL_GetTicks;
ZIP := TAbUnZipper.Create(nil);
path := ExtractFileDir(ParamStr(0)) + '\';
Writeln(path);
ZIP.OpenArchive(path+'res.zip');
RESZIP := TMemoryStream.Create;
ZIP.ExtractToStream('minefield.bmp',RESZIP);
g_minefield := LoadSDLBMPFromStream(TStream(RESZIP));
ZIP.Free;
RESZIP.free;
end; [/pascal]