zbird
Novato
Registrado: Terça-Feira, 3 de Abril de 2018
Mensagens: 1
|
 Enviada: Ter Abr 03, 2018 2:20 pm Assunto: Navegação InPrivate IE com delphi |
 |
|
Boa tade. Estou desenvolvendo um navegador e estou me quebrando na pate de colocar navegação private no webbrowser, realmente não sei como fazer isso. Poderia alguém me dar uma luz?
Achei esse exemplo na internet mas não consigo colocar ele para delphi
| Código: | Friend Function Open(Optional ByVal Url As String = "about:blank", Optional ByVal WindowState As ProcessWindowStyle = ProcessWindowStyle.Hidden) As WebBrowser
On Error Resume Next
Dim Start As New ProcessStartInfo
Dim Windows = New ShellWindowsClass
Dim Count = Windows.Count
Start.FileName = "iexplore.exe"
Start.Arguments = "-private -nomerge " & Url
If WindowState = ProcessWindowStyle.Hidden Then
Start.WindowStyle = ProcessWindowStyle.Minimized
Else
Start.WindowStyle = WindowState
End If
Process.Start(Start)
'Wait is my own class that waits for 10 secs
Wait.Reset()
Do
If Windows.Count > Count Then Exit Do
Loop While Wait.Waiting
Browser = Windows(Count)
Browser.Visible = (WindowState <> ProcessWindowStyle.Hidden)
Return Browser
End Function |
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
