Registriert seit: 13. Okt 2003
11 Beiträge
|
Re: Bitmap in Exe
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]
|
|
Zitat
|