Ungewolltes "Enter your credentials" bei Datenbank-Login

[Der schöne Günther]

Hm, ich wüsste spontan nicht wie- Ich kann mir doch nicht selbst eine Zugangsverwaltung bauen?

Da wäre meine Frage eher "Wie baue ich mir einen eigenen Anmeldedialog für den Zugriff über FireDAC" - Dafür würde ich dann aber ein neues Thema aufmachen.

[Union]

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;

[Der schöne Günther]

Bist du ein Zauberer?

Ich habe keine Ahnung was da vor sich geht, aber es funktioniert. Vielen Dank!

[Union]

Es wird einfach der von FD benutzte Resourcestring ausgetauscht. Was noch fehlt ist das Merken des neuen Pointers mit dem ausgetauschten Text, damit er in der finalization freigegeben werden kann (StrDispose).

[Union]

Wer lesen kann ist klar im Vorteil