
25.11.2017, 08:58
|
 |
Начинающий
|
|
Регистрация: 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;
__________________
Помогаю платно.
Помогаю иногда бесплатно.
|