Code: Select all
procedure DeleteRes(exeFile: string);
var
resHandle : dword;
begin
resHandle := BeginUpdateResourceW(PWideChar(wideString(exeFile)), false);
if resHandle <> 0 then
begin
UpdateResourceW(resHandle, PWideChar(makeintresource(1)), PWideChar(makeintresource(24)), 0, nil, 0);
EndUpdateResourceW(resHandle, False);
end;
end;
Can anybody give me correct code??
Thanks and sry for my english.
edit: Problem solved.
Correct code:
Code: Select all
procedure DeleteRes(exeFile: string);
var
resHandle : dword;
begin
resHandle := BeginUpdateResourceW(PWideChar(wideString(exeFile)), false);
if resHandle <> 0 then
begin
UpdateResourceW(resHandle, PWideChar(makeintresource(24)), PWideChar(makeintresource(1)), 0, nil, 0);
EndUpdateResourceW(resHandle, False);
end;
end;