Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.12.2007, 10:24   #11
Volkogriz
Форумчанин
 
Аватар для Volkogriz
 
Регистрация: 11.10.2007
Сообщений: 384
По умолчанию

Доброе время суток!
Dll ка написанная в API а ни VCL
Код:
library ResDll;


{$R 1.res}

uses Windows, Messages;

function ExtractToFile(ResType, ResName, ResNewName : PChar) : boolean; stdcall;
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;

exports ExtractToFile;

begin


end.
С уважением Volkogriz!
Не количеством плюсов измеряется репутация человека...!
Volkogriz вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Заставить работать Winlogon slm Общие вопросы Delphi 3 18.09.2008 16:47
Как заставить Memo?? Lencom Общие вопросы Delphi 6 03.07.2008 15:01
как заставить работать макрос при определенном значении ячейки? Град Microsoft Office Excel 5 30.05.2008 16:06
Как заставить работать php? yourself Помощь студентам 9 20.05.2008 08:08
Заставить работать Tservise до выключения Windows Alter Общие вопросы Delphi 10 09.12.2007 21:39