A ver, lo que pongo a continuación es un poco cutre, pero puede servir de comienzo:
Código Delphi
[-]
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
var
HTMLDoc: IHTMLDocument3;
HTMLElement: IHTMLElement;
HTMLInput: IHTMLInputElement;
begin
HTMLDoc := WebBrowser1.Document as IHTMLDocument3;
HTMLElement := HTMLDoc.getElementById('navbar_username');
if Assigned(HTMLElement) then
begin
HTMLInput := HTMLElement as IHTMLInputElement;
HTMLInput.value := 'user';
HTMLElement := HTMLDoc.getElementById('navbar_password');
if Assigned(HTMLElement) then
begin
HTMLInput := HTMLElement as IHTMLInputElement;
HTMLInput.value := 'password';
HTMLInput.form.submit;
end;
end;
end;
Lo que este código hace es esperar a que termine de cargarse la página de búsqueda del ClubDelphi para entonces preguntar si existen los cuadros de edición de usuario y contraseña (lo cual querría decir que no hay sesión iniciada). Entonces pueden proveerse los valores que se guardarían en el archivo de configuración para cada usuario del BuscaDelphi Soft y se hace el
submit. Con eso se vuelve a cargar la página ya con sesión iniciada.
// Saludos