Не работает извлечение из ресуров

[dolphin705]

При выполнении следующего кода не выходит извлечь из себя ресурс

HM:=GetModuleHandle(0);
    if HM=0 then
    begin
      MessageBox(0,'HM=0',#0,MB_ICONERROR);
      exit;
    end;
    MessageBox(0,R.NameType[i].RName,#0,MB_ICONINFORMATION);
    MessageBox(0,R.NameType[i].RType,#0,MB_ICONINFORMATION);
    RH:=FindResource(HM,R.NameType[i].RName,R.NameType[i].RType);
    if RH=0 then
    begin
      MessageBox(0,'RH=0',#0,MB_ICONERROR);
      exit;
    end;
    RP:=LockResource(LoadResource(HM,RH));
    if not Assigned(RP) then
    begin
      MessageBox(0,'not Assigned(RP)',#0,MB_ICONERROR);
      exit;
    end;
    lstrcpy(Name,R.NameType[i].RName);
    lstrcat(Name,'.');
    lstrcat(Name,R.NameType[i].RType);
    F:=CreateFile(Name,GENERIC_WRITE,0,nil,CREATE_ALWAYS,0,0);
    if F=-1 then
    begin
      MessageBox(0,'F=-1',#0,MB_ICONERROR);
      exit;
    end;
    WriteFile(F,RP^,SizeOfResource(HM,RH),C,nil);
    CloseHandle(F);
    FreeResource(RH);

Ресурс в этот файл записывается таким образом

RH := BeginUpdateResource(PChar('file.exe'), False);
  for i:=0 to ListBox1.Count - 1 do
  begin
    lstrcpy(Rec.NameType[i].RName, PChar(copy(ExtractFileName(ListBox1.Items[i]),1,pos('.',ExtractFileName(ListBox1.Items[i]))-1)));
    lstrcpy(Rec.NameType[i].RType,PChar(copy(ExtractFileExt(ListBox1.Items[i]),2,Length(ExtractFileExt(ListBox1.Items[i])))));
    Buffer:=ReadFile(ListBox1.Items[i]);
    UpdateResource(RH,Rec.NameType[i].RType,Rec.NameType[i].RName,0,@Buffer[1],Length(Buffer));
  end;
  EndUpdateResource(RH,FALSE);
  F:=CreateFile('file.exe',GENERIC_WRITE,FILE_SHARE_WRITE,nil,3,FILE_ATTRIBUTE_NORMAL,1);
  SetFilePointer(F,GetFileSize(F,nil),nil,0);
  WriteFile(F,Rec,SizeOF(Rec),N,nil);
  CloseHandle(F);

Просмотрел всё что в поиске нашёл, но проблему решить не смог.

[Stilet]

А в чем затык? Проверял запись? ResHacker достань, и посмотри записался ли ресурс.
Если да то что выдает код загрузки ресурса?

[dolphin705]

Ресторатором смотрел, ресурс на месте после записи, в рекорде тоже всё ок, по сообщениям видно. Постоянно такая ошибка RH=0

[Stilet]

R.NameType[i].RType

А тут что, проверял?
И кстати R.NameType[i].RName чему равно?

[dolphin705]

RNameType = packed record
RName : array [0..20] of Char;
RType : array [0..5] of Char;
end;

[GunSmoker]

Постоянно такая ошибка RH=0

Об этом в вопросе не надо было сказать? Типа, угадывайте, что у меня не так.

Ресторатором смотрел, ресурс на месте после записи, в рекорде тоже всё ок, по сообщениям видно.

А вот FindResource с тобой не согласен.

Показывай что в .rc и что в RName/RType.

[dolphin705]

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

Об этом в вопросе не надо было сказать? Типа, угадывайте, что у меня не так.

Сори, просто из-за этой мароки забыл.

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

Показывай что в .rc и что в RName/RType.

В первом посте я добавил что не пользуюсь компилятором ресурсов, а добавляю с помощью UpdateResource. RName и Type - array[0..20] of char. Прбовал добавлять под размыми именами и типами ресурсов( пример pas.exe - имя pas и тип exe выдаёт в сообщениях, но FindResource не видит.

[GunSmoker]

В первом посте я добавил что не пользуюсь компилятором ресурсов, а добавляю с помощью UpdateResource.

Имелось в виду, что показывает просмотрщик ресурсов.

[Stilet]

RName и Type - array[0..20] of char

Делфи то какой? Может ему char юникодовый приснился? Может стоит на ansichar заменить?

[dolphin705]

В rc - passource exe "Data_1.bin" после ресхекера, им же и извлеклось и запустилось нормально. Delphi 7