[PaHaNjkee]

Здраствуйте, мне нужно запаковать dll в файл res и потом в программе чтобы при нажатии на баттон программа искала определенный exe файл можно через реестр (только я незнаю как) и копировала туда где лежит exe файл. Если это возможно напиши плз!

[PaHaNjkee]

народ очень нужно(

[lmikle]

А попонятнее объяснить?
Лично я нифига не понял.

[PaHaNjkee]

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

А попонятнее объяснить?
Лично я нифига не понял.

Вообщем есть файл dll(кряк для игры) я хочу его запаковать в файл .Res (Это можно! Когда запаковывал музыку в res тока не помню как!) потом при нажатии на кнопку в программе из файла res этот dll распаковывался в папку с файлом например program.exe (но надо его найти!) вот как запаковать dll и найти где лежит файл programm.exe и распаковать рядом с ним. Надеюсь понятно!

[BoRoV]

Создаешь файл, например dll.rc. В него пишешь:

Код:

DLL RCDATA "<путь к длл>"

Далее компилим ресурс при помощи brcc32.exe. Запускаем brcc32.exe через консоль с параметром путь к dll.rc.
Всё. На выходе получим dll.res. Который добавляем проект

Код:

{$R dll.res}

А это ф-ия извлечения длл. Можешь задать так чтоб пользователь сам задавал путь к игре. В path должен быть путь вместе с именем длл.

Код:

var
  hRes, hMod, hFile, dwSize, n: dword;
  pBuffer: pointer;
  path: array[0..255] of char;

begin

  hMod := FindResource(HInstance, 'DLL', RT_RCDATA);
  if (hMod <> 0) then
  begin
    dwSize := SizeofResource(HInstance, hMod);
    hRes := LoadResource(HInstance, hMod);
    if (hRes <> 0) then
    begin
      pBuffer := LockResource(hRes);
      if (pBuffer <> nil) then
      begin
        hFile := CreateFile(path, GENERIC_WRITE, FILE_SHARE_WRITE, 0, CREATE_ALWAYS, 0, 0);
        if (hFile <> INVALID_HANDLE_VALUE) then
        begin
          SetFilePointer(hFile, 0, nil, FILE_BEGIN);
          if not (WriteFile(hFile, pBuffer^, dwSize, n, 0)) then
            MessageBox(0, 'Can''t write to file', 'Error', 16)
          else
            if (dwSize <> n) then
              MessageBox(0, 'Not all bytes write to file', 'Error', 16)
          CloseHandle(hFile);
        end;
      end;
      FreeResource(hRes);
    end;
  end;
end.

[PaHaNjkee]

спс=) как подключать я знаю, как создавать...забыл=) а про распаковку не знал! а как сделать чтобы программа находила файл и распаковывала именно туда!