Извлечение ресурсов на WinApi

[Иван Мазько]

Добрый день! Требуется помощь. Пытаюсь извлечь из ресурсов три файла. Компиляция проходит успешно. При запуске программы - файлы не извлекаются в нужную папку по директории C:\

За помощь заранее спасибо! Код представлен ниже:

program installfiles;
 
uses
  Classes;
 
{$R install.res}
 
procedure ExtractRes(ResType,ResName,ResNewName:String);
var Res:TResourceStream;
begin
 Res:=TResourceStream.Create(hInstance,Resname,Pchar(ResType));
 Res.SavetoFile(ResNewName);
 Res.Free;
end;
 
procedure Extract;
begin
   ExtractRes('EXEFILE','Index1','C:\1.dll');
   ExtractRes('EXEFILE','Index2','C:\2.sys');
   ExtractRes('EXEFILE','Index3','C:\3.exe');
  end;
end.

Внимание! Форма не используется чистый WinAPI

[Stilet]

У меня такое впечатление что ресурса EXEFILE не существует.
Проверь чем нибудь типа ResHacker.
Пожалуй я бы вкладывал файл в ячейку с типом RT_RCDATA

[Иван Мазько]

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

У меня такое впечатление что ресурса EXEFILE не существует.
Проверь чем нибудь типа ResHacker.
Пожалуй я бы вкладывал файл в ячейку с типом RT_RCDATA

[Иван Мазько]

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

Пожалуй я бы вкладывал файл в ячейку с типом RT_RCDATA

Подробнее...

[Vapaamies]

Должно быть что-то вроде

  ExtractRes(PChar(RT_RCDATA), 'EXE', 'C:\MyExe.exe');

[Volkogriz]

uses Windows, Messages;

function ExtractToFile(ResType, ResName, ResNewName : PChar) : boolean;
var
  H  : THandle;
  LR : HGLOBAL;
  mem: Pointer;
  FH : THandle;
  wr : Cardinal;
begin
  H      := 0;
  Result := False;
  H := FindResource(HInstance, ResName, ResType);
  if (H = 0) then Exit;
  LR := LoadResource(HInstance, h);
  if (LR = 0) then Exit;
  mem := LockResource(LR);
  FH := CreateFile(ResNewName, GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL,0);
  if (FH = 0) then Exit;
  Result := WriteFile(FH, mem^, SizeofResource(HInstance, H), wr, nil);
  CloseHandle(FH);
  UnLockResource(LR);
end;
end.

 
procedure Extract;
begin
ExtractToFile('EXEFILE','Index1', 'C:\1.dll');
ExtractToFile('EXEFILE','Index2',C:\2.sys');
ExtractToFile('EXEFILE','Index3','C:\3.exe');
  end;
end.

Я так понял это драйвер?
Я бы с начало нашёл папку WINDOWS, а потом указал путь!


С уважением,
Volkogriz!