Показать сообщение отдельно
  #2  
Старый 25.11.2017, 08:58
Аватар для @Rafa3L
@Rafa3L @Rafa3L вне форума
Начинающий
 
Регистрация: 09.11.2011
Адрес: Москва
Сообщения: 144
Версия Delphi: XE2
Репутация: 11216
По умолчанию

Цитата:
Сообщение от sergeinovilozf
...Как на Delphi нажать кнопку в гугл "Войти"...
Код:
 uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
const
URL: string = 'https://accounts.google.com/ServiceLogin?' +
              'hl=ru&passive=true&continue=http://www.google.ru/';
begin
 ShellExecute(0, 'open', pChar(URL), nil, nil, SW_SHOWNORMAL);
end;
__________________
Помогаю платно.
Помогаю иногда бесплатно.
Ответить с цитированием