Icon einer exe austauschen

[jonny]

Also hab jetzt folgendes gefunden. Wie ändere ich jetzt aber das HauptIcon?

Delphi-Quellcode:

var 
   stream : TFilestream; 
   hInst: THandle; 
   ptr : Pointer; 
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;