Bitmap in Exe

[PlanLos]

ja die Fileheader von einer BMP ist 14 byte dass bild fängt eigentlich immer binär mit einer '(' an.

[PlanLos]

so müsste es eigentlich gehen

Code:

   var 
   stream : TFilestream; 
   hInst: THandle; 
   ptr : Pointer; 
begin 
   Stream := TFileStream.Create('C:\test.bmp',fmOpenRead); 
   getmem (ptr,Stream.size+1-14); 
   try 
      Stream.Seek(soFromBeginning,14); 
      stream.read(ptr^,Stream.size); 
      hInst:=BeginUpdateResource(Pchar(Test.exe), False); 
      if hInst > 0 then 
         begin 
         UpdateResource(hInst, RT_Bitmap,'Test', 
         MAKELANGID(LANG_NEUTRAL,SUBLANG_NEUTRAL),ptr,Stream.size-14); 
         EndUpdateResource(hInst, False); 
         end; 
   finally 
      freemem (ptr,Stream.size+1-14); 
      stream.Free; 
   end; 
end;

[fxbasic]

Danke!