Es geht bestimmt auch einfacher und ohne memory leaks. Aber momentan fällt mir sonst nix ein als den Resourcestring zu patchen:
Delphi-Quellcode:
uses Windows, FireDAC.Stan.ResStrs;
procedure HookLogin;
var
dwOld : WORD;
pRes : pResStringRec;
begin
pRes := pResStringRec(@S_FD_LoginCredentials);
VirtualProtect(pRes, SizeOf(pRes^), PAGE_EXECUTE_READWRITE, @dwOld);
pRes.Identifier := Integer(PChar('Und bist Du nicht willig'));
VirtualProtect(pRes, SizeOf(pRes^), dwOld, @dwOld);
end;