Standard Webbrowser Username und Passwort übergeben

[xthing98]

Hallo Delphi Freunde,

ich bin neu in dem Forum und habe gleich mal eine Frage.
Wie kann ich dem Standard Webbrowser, Username und Passwort, aus einem Delphi Programm übergeben? Ich habe hier schon etwas programmiert, allerdings funktioniert das noch nicht. Die Webseite startet gleich im richtigen Eingabefeld, dem Username bzw. in diesem Fall ist das die E-Mailadresse. Allerdings wird das Feld nicht aufgefüllt. Was mache ich da falsch?

Code:

procedure StringSenden(sendStr: string; browserStr: string; Handle: Longint);
var
  hTargetWnd1,hTargetWnd2: HWND;
  ProcID: Cardinal;
begin
   hTargetWnd1 := 0;

   hTargetWnd1 := Shellexecute(0, nil, 'https://www.brack.ch/anmelden', nil, nil, SW_SHOW);
   setForegroundWindow(hTargetWnd1);
   sleep(10000);
   if hTargetWnd1 <> 0 then
   SendMessage(hTargetWnd1, WM_SETTEXT, Longint(Handle), LongInt(PChar(sendStr)));
end;

Schon einmal vielen Dank für eure Hilfe.

Gruss
Marc