Thema: Delphi Bitmap in Exe

Einzelnen Beitrag anzeigen

PlanLos

Registriert seit: 13. Okt 2003
11 Beiträge
 
#2

Re: Bitmap in Exe

  Alt 24. Okt 2003, 11:41
hier ist mein versuch

Delphi-Quellcode:
var
   stream : TFilestream;
   hInst: THandle;
   ptr : PWideChar;
begin
   Stream := TFileStream.Create('C:\test.bmp',fmOpenRead);
   getmem (ptr,Stream.size+1);
   try
      Stream.Seek(soFromBeginning,0);
      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);
         EndUpdateResource(hInst, False);
         end;
   finally
      freemem (ptr,Stream.size+1);
      stream.Free;
   end;
end;
[edit=r_kerber]Delphi-Tags gesetzt. Mfg, r_kerber[/edit]
  Mit Zitat antworten Zitat