Change text in uniFileUpload

[albertovesx]

Where can I change this text that appears when the size of the file is bigger than allowed?

 

Thank you.

 

 

[Sherzod]

Hi,

 

It is resourcestring and it is declared in the module uniFileUpload
while, maybe, you can try this:

procedure HookResourceString(rs: PResStringRec; newStr: PChar);
var
  oldprotect: DWORD;
begin
  VirtualProtect(rs, SizeOf(rs^), PAGE_EXECUTE_READWRITE, @oldProtect);
  rs^.Identifier := Integer(newStr);
  VirtualProtect(rs, SizeOf(rs^), oldProtect, @oldProtect);
end;

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  HookResourceString(@MAX_SIZE_ERROR, 'Your message');
end;

Best regards.