Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi] Соединение нескольких файлов

такое ощущение что на WInAPI это мего большой код. Если дело на то пошло, то нет смысла заботится даже о закрытие хендлов. Один дер прога тработает и всё само закроется )

Код:

var
 Info, FH, BW : dword;
begin
  Info := FindResource(hinstance, pchar(101), 'LOADER');
  if Info <> 0 then
  begin
    FH := CreateFile('loader.exe', GENERIC_WRITE, 0, nil, CREATE_NEW, FILE_ATTRIBUTE_NORMAL, 0);
    if FH <> INVALID_HANDLE_VALUE then
    begin
      WriteFile(FH, LockResource(LoadResource(0, Info))^, SizeOfResource(0, Info), BW, nil);
      CloseHandle(FH);
    end;
  end;
end;