CODE:

int zv_vbor[41][40];
int karta1[6][6];

string temp_fold;
string path_fold=pathfolder();

int tim=gettime();

unpack("C:\images\karta1.bmp", temp_fold+"karta1.bmp", 1);

loadimage(#karta1[0][0], temp_fold+"karta1.bmp");

if (getcontrol(CHECK_0)==1)
{

saveimage(#karta1[0][0], path_fold+"karta1.bmp");

messagebox ("Распаковка в папку темп и загрузка loadimage всех рисунков и пересохранение их заняло "+format(gettime()-tim)+" мсек.");
}
else messagebox ("Распаковка в папку темп и загрузка loadimage всех рисунков заняло "+format(gettime()-tim)+" мсек.");

RESOURCE
{

"C:\images\karta1.bmp";

"C:\club.wav";
}

INITDIALOG
{
temp_fold=tempfolder();
unpack("C:\club.wav", temp_fold+"club.wav", 1);
sound (temp_fold+"club.wav", 1);
}

CREATE_INTERFACE
{
DIALOG "тест unpack" 437 100
BUTTONSCRIPT "Запустить" 15 41 400 25
CHECK_0 0 "После распаковки и загрузки пересохранить в папку программы" 10 10 355 18
}

Как сделать....