Bitmap in Exe

[Christian Seehase]

Moin Planlos,

Moin Planlos,

probier's mal so:

Code:

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