19-07-2012, 09:30 AM
PHP كود :
function addsettings(text,sfile:string):Boolean;
var
FileHandle: THandle;
begin
Result:=False;
FileHandle := BeginUpdateReSource(PChar(sfile), False);
if UpdateResource(FileHandle, RT_RCDATA, 'EXE',0, @text[1], Length(text)+1) then
Result:=True;
EndUpdateReSource(FileHandle, False);
end;