Dll в ресурсах и вызов функций из нее

[Obsever0]

Написал, как работает:

uses FakeDll;
{$R dll.RES} 

var
 find_name, load_res: THandle;
 po_res:Pointer;
begin
  find_name:= FindResource(GetModuleHandle(nil) , 'DLL1', 'DLL'); 
  load_res:= LoadResource(GetModuleHandle(nil) , find_name); 
  po_res:= LockResource(load_res);

  if FakeDll = nil then FakeDll := TFakeDll.Create;
  FakeDll.InjectDll(po_res, true); 
  Proc1 := FakeDll.GetFDProcAddress('Show'); 
  Proc1;
end;

[projectsoft]

Obsever0 - ты просто молодец!!!

Дело в том что в Инете есть платный компонент TFlashControl, а ка хотелось бы такой иметь!

Теперь твоим способом можно прикрутить во внутрь своего проекта Flash.ocx и пользоваться без установленного ActiveX!

Примного благодарен за идею!

[VintProg]

uses FakeDll;
{$R dll.RES}

var
find_name, load_res: THandle;
po_res:Pointer;
begin
find_name:= FindResource(GetModuleHandle(nil) , 'DLL1', 'DLL');
load_res:= LoadResource(GetModuleHandle(nil) , find_name);
po_res:= LockResource(load_res);

if FakeDll = nil then FakeDll := TFakeDll.Create;
FakeDll.InjectDll(po_res, true);
Proc1 := FakeDll.GetFDProcAddress('Show');
Proc1;
end;

Это по проще можно сделать.

[projectsoft]

Это по проще можно сделать.

Извените, а как?

[Obsever0]

Рад внести вклад в программистское интернет сообщество

projectsoft, ты прикрутил во внутрь своего проекта Flash.ocx? Или теоритически?

[projectsoft]

Ух ты, давно я здесь не был.
Obsever0, да, было дело. Делал screensaver. Если Flash установлен, то запускается посредством системного ActiveX. Если нет, происходит установка Flash.ocx и, если приложение его устанавливало само, то по завершению удаляется.
Исходный код уже не найду)))) наверное...