Hallo zusammen!
Ich habe jeweils den Resource Hacker verwendet, um bei fertigen Versionen die überflüssigen Ressourcen (Bitmaps, Cursors etc.) zu entfernen. Nun möchte ich dafür gerne ein Programm schreiben, um mir die Handarbeit zu ersparen. Mein Ansatz:
Delphi-Quellcode:
function DeleteResource(const FileName: string; const ResName, ResType: PChar): Boolean;
var
hUpdate: Cardinal;
begin
Result:= False;
hUpdate:= BeginUpdateResource(PChar(FileName), False);
if hUpdate = 0 then Exit;
try
Result:= UpdateResource(hUpdate, ResType, ResName, 0, nil, 0);
finally
EndUpdateResource(hUpdate, not Result);
end;
end;
Scheinbar funktioniert die Sache, auf die Ressource kann auch nicht mehr zugegriffen werden. Nur nimmt die Grösse der EXE nicht ein einziges Byte ab. Nicht gerade das, was ich bezwecken möchte...
Hat jemand eine andere Lösung?
Gruss
Shaman