Изменение данных в ресурсах исполняемом-файле средствами UpdateResource

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 TStringList* ptSList = new TStringList();
 ptSList->Clear();
 ptSList->Add("MyString RT_STRING   Begin \"Моя строка\" End");
 ptSList->SaveToFile("a.rc");
 delete ptSList;       
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
 char *pchResType = "RT_STRING";
 TResourceStream* ptRes =
    new TResourceStream((int)HInstance, "MyString",pchResType);
 Memo1->Lines->LoadFromStream(ptRes);
 delete ptRes;
}

void __fastcall TForm1::Button3Click(TObject *Sender)
{
TCHAR szPath[MAX_PATH];
 
 HANDLE hExe;        // дескриптор существующего .EXE файла
 HRSRC hRes;         // дескриптор/указатель на информ. о ресурсе в hExe
 HANDLE hUpdateRes;  // дескриптор корректировки ресурса
 bool result;
 
if( GetModuleFileName(NULL, szPath, MAX_PATH) )  // Получаю путь к текущему модулю
  {
  //hExe = LoadLibrary(szPath);
  //if( hExe != NULL )
    {
    hUpdateRes = BeginUpdateResource(szPath, FALSE);
    if( hUpdateRes )
      {
      //hRes = FindResource(hExe, "MyString", RT_STRING); // NULL
      //String sss = LoadString(hExe, 2, lpResLock, strlen(lpResLock)); // Access violation
 
      //WideString Data = L"okokok";
      WCHAR data[] = L"okokok";
      LPCTSTR ResType = "RT_String";
      LPCTSTR ResName = "MyString";
      result = UpdateResource( hUpdateRes,      // result == true
                               ResType,
                               ResName,
                               MAKELANGID(LANG_NEUTRAL, SUBLANG_NEUTRAL),
                               data,
                               (DWORD)sizeof(data) );
 
      DWORD dw = GetLastError();                // 0
      result = EndUpdateResource(hUpdateRes, FALSE); // result == false
      dw = GetLastError();                           // 110 (не может прочитать устройство)
      }
    }
  }
}

void ErrorHandler(String str)
{
ShowMessage(str);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
TCHAR szPath[MAX_PATH];
HRSRC hResLoad;     // дескриптор загружаемого ресурса
HANDLE hExe;        // дескриптор существующего .EXE файла
HRSRC hRes;         // дескриптор/указатель на информ. о ресурсе в hExe
HANDLE hUpdateRes;  // дескриптор корректировки ресурса
char *lpResLock;    // указатель на данные ресурса
BOOL result;
 // Загрузка .EXE файла, содержащего блок диалога,
 // который вы хотите скопировать.
if( GetModuleFileName(NULL, szPath, MAX_PATH) )
  {
  hExe = LoadLibrary( szPath );
  }
else
  hExe = NULL;
if (hExe == NULL)
{
    ErrorHandler("Could not load exe.");
}
 
 // Определяем местонахождение ресурса диалогового окна
 // в .EXE файле.
hRes = FindResource(hExe, "MyString", RT_STRING); // NULL
//hRes = FindResource(NULL, "MyString", RT_STRING); // NULL
if (hRes == NULL)
{
    ErrorHandler("Could not locate string.");
    //return;
}
 
 // Загружаем диалоговое окно в глобальную память.
hResLoad = LoadResource(hExe, hRes);
if (hResLoad == NULL)
{
    ErrorHandler("Could not load.");
    //return;
}
 
 // Определяем местонахождение диалогового
 // окна в глобальной памяти.
 
LockResource(hResLoad); /////////////////////////////////
lpResLock = (char*)LockResource(hResLoad);
 
if (lpResLock == NULL) 
{
    ErrorHandler("Could not lock."); 
}
 
 // Открываем файл, в который хотим добавить
 // ресурс диалогового окна. 
hUpdateRes = BeginUpdateResource(szPath, FALSE);
if (hUpdateRes == NULL) 
{
    ErrorHandler("Could not open file for writing."); 
}
 
 // Добавляем ресурс диалогового окна в
 // список обновления.
result = UpdateResource(hUpdateRes,// дескриптор обновляемого ресурса
     RT_STRING,                   // изменение ресурса блока диалога
     "MyString",                  // имя блока диалога
     MAKELANGID(LANG_NEUTRAL, SUBLANG_NEUTRAL),// неопределенный язык
     lpResLock,                   // указатель на инф. о ресурсе
     SizeofResource(hExe, hRes)); // размер инф. о ресурсе.
     DWORD dw = GetLastError(); // 87
if (result == FALSE)
{
    ErrorHandler("Could not add resource.");
}
 
// Записываем изменения в FOOT.EXE и затем закрываем его.
if (!EndUpdateResource(hUpdateRes, FALSE))
{
    ErrorHandler("Could not write changes to file.");
}
 
// Очищаем.
if (!FreeLibrary(hExe))
{
    ErrorHandler("Could not free executable.");
}
}