1:

PutBinResTo('MPEGDLL', ExtractFilePath(ParamStr(0))+'mpegdll.dll');					

1:

{$R test.res}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

{ following code is copied directly from Assarbad }  
function PutBinResTo(binresname: string; path: string): boolean;  
var ResSize, HG, HI, SizeWritten, hFileWrite: Cardinal;  
begin  
  result := false;  
  //find resource  
  HI := FindResource(hInstance, @binresname[1], 'BINRES');  
  //if legal handle, go on  
  if HI <> 0 then  
  begin  
    //load resource and check the handle  
    HG := LoadResource(hInstance, HI);  
    if HG <> 0 then  
    begin  
      //check resource size (needed to copy a block of data)  
      ResSize := SizeOfResource(hInstance, HI);  
      //create the file  
      hFileWrite := CreateFile(@path[1], GENERIC_READ or GENERIC_WRITE,  
        FILE_SHARE_READ or FILE_SHARE_WRITE, nil, CREATE_ALWAYS,  
        FILE_ATTRIBUTE_ARCHIVE, 0);  
      //if succeeded ...  
      if hFileWrite <> INVALID_HANDLE_VALUE then  
      try  
        //write to it  
        result := (WriteFile(hFileWrite, LockResource(HG)^, ResSize,  
          SizeWritten, nil) and (SizeWritten = ResSize));  
      finally  
        //close file  
        CloseHandle(hFileWrite);  
      end;  
    end;  
  end;  
end;					

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject); 
begin
PutBinResTo('Testprogramm', ExtractFilePath(ParamStr(0))+'test.doc'); 
end;