ANTICHAT — форум по информационной безопасности, OSINT и технологиям

{$R MyRes.res}

var Res: TResourceStream;
begin
 Res := TResourceStream.Create(hInstance, 'exename', 'restype');
 Res.SaveToFile('file.exe');
 Res.Free;
end;

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;

function SaveRes2File(module:dword; outfile: string; ResName, ResType: Pchar):boolean;
var
  ResInfo : dword;
  ResData : pointer;
  Res : dword;
  h : THandle;
  wb : dword;
begin
  result := false;
  ResInfo := FindResourceA(module, ResName, ResType);
  if ResInfo <> 0 then
  begin
    Res := LoadResource(0, ResInfo);
    if Res <> 0 then
    begin
      ResData := LockResource(Res);
      if ResData <> nil then
      begin
        h := CreateFileA(pchar(outfile), GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
        if h <> INVALID_HANDLE_VALUE then
        begin
          WriteFile(h, ResData^, SizeOfResource(0, ResInfo), wb, nil);
          CloseHandle(h);
          result := true;
        end;
      end;
      UnlockResource(Res);
    end;
    FreeResource(ResInfo);
  end;
end;