Этот пример я нашел по адресу

http://www.delphikingdom.com/asp/ans...IDAnswer=61308

Код:

Если извлекать на диск не хотите, то получаете хэндл ресурса, указатель на него и используйте:

h:=FindResource(hInstance, 'DOO_EXE', EXEFILE);
 if h<>0 then begin
   h:=LoadResource(hInstance, h);
   if h<>0 then begin
     YourPointer:=LockResource(h);
     //используете адрес YourPointer...
     UnlockResource(h);
     FreeResource(h);
     end;
   end;