прокси имя пользователя и пароль

[s1s1s1]

 procedure proxy_go(proxy: string);
var proxy_info : PInternetProxyInfo; 
begin
New (proxy_info);
proxy_info^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
proxy_info^.lpszProxy := PChar(proxy);
proxy_info^.lpszProxyBypass := PChar('');
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, proxy_info, SizeOf(Internet_Proxy_Info), 0);

как прикрутить имя пользователя и пароль?

[s1s1s1]

кто подскажет?

[Slym]

а что подсказывать? ты где-то видел в ие настройки имени и пароля? я нет
в ие оно автоматом выскакивает при необходимости
в программе

как-то так

hOpenHandle:= InternetOpen('Example', INTERNET_OPEN_TYPE_PROXY, '172.31.51.7:80', '', 0); //PChar(ProxyIP), PChar(ProxyPort)
 //Откроем новую сессию
 hConnectHandle:= InternetConnect(hOpenHandle, PChar(Adres), INTERNET_DEFAULT_HTTP_PORT, NIL, NIL, INTERNET_SERVICE_HTTP,0,0);
 //Создадим указатель и укажем необходимые параметры для использования протокола HTTP
 hResourceHandle:= HttpOpenRequest(hConnectHandle, 'GET', PChar(getStr), NIL, NIL, NIL, INTERNET_FLAG_KEEP_CONNECTION, 0);

 InternetSetOption(hResourceHandle, INTERNET_OPTION_PROXY_USERNAME, @strUsername, cchUserLength+1);
 InternetSetOption(hResourceHandle, INTERNET_OPTION_PROXY_PASSWORD, @strPassword, cchPasswordLength+1);

 //InternetSetOption(hResourceHandle, INTERNET_OPTION_PROXY_USERNAME, @ProxyUsername, length(ProxyUsername)+1);
 //InternetSetOption(hResourceHandle, INTERNET_OPTION_PROXY_PASSWORD, @ProxyPassword, length(ProxyPassword)+1);

 resend:

 HttpSendRequest(hResourceHandle, NIL, 0, NIL, 0);