1. Гость, мы просим Вас ознакомиться с Правилами Форума и Отказом от ответственности!

Результаты поиска

Искать ещё
  1. alekill
    Тема

    [Вопрос]Авто-вход в phpmyadmin

    Вообщем надо сделать авто-вход в phpmyadmin,т.е не вводить логин и пароль каждый раз,а через программу логиниться Вот код: procedure TForm1.Button1Click(Sender: TObject); var ovElements: OleVariant; i: Integer; begin ovElements:=WebBrowser1.OleObject.Document.Forms.Item(0).Elements; for i:=0 to (ovElements.Length-1) do begin if (AnsiUpperCase(ovElements.Item(i).tagName)='INPUT') then if (ovElements.item(i).id='input_username') then ovElements.Item(i).Value:=(edit1.text); if (AnsiUpperCase(ovElements.Item(i).tagName )='INPUT') then if (ovElements.item(i).id='input_password') then ovElements.Item(i).Value:=(edit2.text); if (AnsiUpperCase(ovElements.Item(i).tagName)='INPUT') then if (AnsiUpperCase(ovElements.Item(i).type )='SUBMIT') or (AnsiUpperCase(ovElements.Item(i).type )='BUTTON') then if (AnsiUpperCase(ovElements.item(i).Value)='OK')then ovElements.Item(i).Click; end; end; procedure TForm1.FormCreate(Sender: TObject); begin Webbrowser1.Navigate('http://localhost/phpmyadmin/'); end; Помогите найти ошибку,почему когда я ввожу данные в edit1,edit2 и нажимаю на button1 эти данные не показываются в webbrowser1 и не нажимается автоматом кнопка?
    Автор темы: alekill, 23 фев 2011, ответов - 0, в разделе: Delphi
  2. alekill
    Тема

    [Вопрос]Delphi

    Есть команда: FindWindow(nil, 'Диспетчер задач') Она ищет запущенные приложения по названию окна,а можно сделать,что бы искала по названию процесса?Т.е не 'Диспетчер задач' ,а 'taskmgr.exe'?
    Автор темы: alekill, 18 фев 2011, ответов - 2, в разделе: Delphi
Показаны результаты, с 1 по 2 из 2
Искать ещё