/*****************DLL aus der EXE extrahieren**********************\
-Die DLL wurde zuvor im Ordner als Project1.dll gespeichert
-und es wurde eine Textdatei (res.rc) mit folgendem Text angelegt:
 RES_DLL DLL DISCARDABLE "Project1.dll"
-die Datei res.rc wird mit Project->Dem Project hinzufügen dem Project _
  hinzugefügt
 
Jetzt wird die DLL Project1.dll automatisch in der EXE gespeichert (beim _
  linken) (siehe ResHacker)
\******************************************************************/
 
//DLL wird hiermit extrahiert
String sFileName, sResTyp, sResName;
//Hier soll die DLL gespeichert werden
sFileName = _
  "F:\\cpp\\datei_an_exe_anhängen\\final\\ergebnis\\extrahiertedll.dll";
//Dateityp (muss nicht der echte sein)
sResTyp = "DLL";
//Dateiname (muss nicht der echte sein)
sResName = "RES_DLL";
 
HWND Res;
HWND ResH;
DWORD ResSize;
TStream *Dest;
Pointer Buffer; // Zwischenbuffer
 
 
	Res = FindResource(HInstance, sResName.c_str(), sResTyp.c_str()); // Handle _
  auf Datei GDS32.DLL setzen
	if (Res != NULL)
        {
 
		ResH = LoadResource(HInstance, Res); // Holt die Resource in den Speicher
		if (ResH != NULL)
		{ // Resource konnte geladen werden
 
 
			ResSize = SizeofResource(HInstance, Res); // Feststellung der _
  Resourcen-grösse
			Buffer = LockResource(ResH); // Resource mit einer Zeiger-Variable halten _
und Sperren
			Dest = new TFileStream(sFileName, fmCreate); // Datei erzeugen
			try
                        {
				Dest->Write(Buffer, ResSize); // Resource in die Datei schreiben
                        }
			__finally
                        {
				Dest->Free();
                        }
 
			//Unlock(ResH); // Resource wieder freigeben
        		FreeResource(ResH);
 
		       //	Result := True; // Forgang erfolgreich beendet
		}
	}