Перенести код из C++ Builder 5 в C++ Builder 2009

[Kreadlling]

Здравствуйте! Назрела проблема, может быть поможете. СУть в следующем - сделал прогу на 5-ом Билдере, приношу преподу показывать, а там стоит вместо 5-го С++ Builder 2009 в сочетании с Дельфи, запускаю прогу и выдается ошибка, уже не помню какая, но написано, что последующая компиляция может исправить данную проблему, сколько не перезапускал всегда одно и тоже выскакивает. Не подскажете как преобразовать код из 5-го Билдера в 2009.

Заранее благодарю.

[vasek123]

Исходник в студию!

[Kreadlling]

Сообщение от vasek123

Исходник в студию!

Вот кусочек:

TLabel* label_change;
TImage* image_change;
char* sinya;
char* belaya;
char* Class_window[50];
char* pyt;

int check();

__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
   Class_window[0] = "CabinetWClass";
   Class_window[1] = "Afx:400000:8";
   Class_window[2] = "OpusApp";
   Class_window[3] = "XLMAIN";
   Class_window[4] = "Notepad";
   Class_window[5] = "ExploreWClass";
   Class_window[6] = "IEFrame";
   Class_window[7] = "SciCalc";
   Class_window[8] = "MSPaintApp";
}

//---------------------------------------------------------------------------

int check()
{
   if (label_change != NULL)
   {
      image_change -> Picture -> LoadFromFile(belaya);
      label_change -> Font -> Color = clWindow;
      label_change = NULL;
      image_change = NULL;
   }
}

void __fastcall TForm1::Image2Click(TObject *Sender)
{
   check();
   sinya = "C:/Pictures for builder/Ikonki/blue_icon/folder_blue_open.ico";
   belaya = "C:/Pictures for builder/Ikonki/usual_icon/folder_blue_open.ico";
   label_change = Label1;
   image_change = Image2;
   image_change -> Picture -> LoadFromFile(sinya);
   label_change -> Font -> Color = clBlue;
   pyt = "C:/Program Files";
   SendToBack();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image1Click(TObject *Sender)
{
   check();
   SendToBack();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image2DblClick(TObject *Sender)
{
   ShellExecute(NULL, "open", "C:/Program Files", NULL, NULL, SW_SHOWNORMAL);
   image_change -> Picture -> LoadFromFile(belaya);
   label_change -> Font -> Color = clWindow;
   image_change = NULL;
   label_change = NULL;
   //SendToBack();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image9Click(TObject *Sender)
{
   check();
   image_change = Image9;
   label_change = Label2;
   sinya = "C:/Pictures for builder/Ikonki/blue_icon/folder_blue_open.ico";
   belaya = "C:/Pictures for builder/Ikonki/usual_icon/folder_blue_open.ico";

   image_change -> Picture -> LoadFromFile(sinya);
   label_change -> Font -> Color = clBlue;
   pyt = "C:/Windows";
   SendToBack();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image9DblClick(TObject *Sender)
{
   ShellExecute(NULL, "open", "C:/Windows", NULL, NULL, SW_SHOWNORMAL);
   image_change -> Picture -> LoadFromFile(belaya);
   label_change -> Font -> Color = clWindow;
   image_change = NULL;
   label_change = NULL;
   //SendToBack();
}