Как вытащить настройки интернет эксплоиэра -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.135.241.191]

Модераторы: Rouse_, jack128, Krid

Ссылки по теме:

Как вытащить настройки интернет эксплоиэра (нужно узнать адрес проки сервера)

Как вытащить настройки интернет эксплоиэра , нужно узнать адрес проки сервера

Smike

Сообщ. #1 , 10.06.07, 19:07

Unregistered

uses

WinInet;

function GetProxyInformation: string;

var

ProxyInfo: PInternetProxyInfo;

Len: LongWord;

begin

Result := '';

Len := 4096;

GetMem(ProxyInfo, Len);

try

if InternetQueryOption(nil, INTERNET_OPTION_PROXY, ProxyInfo, Len) then

if ProxyInfo^.dwAccessType = INTERNET_OPEN_TYPE_PROXY then

begin

Result := ProxyInfo^.lpszProxy

end;

finally

FreeMem(ProxyInfo);

end;

{**************************************************************************

* NAME: GetProxyServer

* DESC: Proxy-Server Einstellungen abfragen

* PARAMS: protocol => z.B. 'http' oder 'ftp'

* RESULT: [-]

* CREATED: 08-04-2004/shmia

*************************************************************************}

procedure GetProxyServer(protocol: string; var ProxyServer: string;

var ProxyPort: Integer);

var

i: Integer;

proxyinfo, ps: string;

begin

ProxyServer := '';

ProxyPort := 0;

proxyinfo := GetProxyInformation;

if proxyinfo = '' then

Exit;

protocol := protocol + '=';

i := Pos(protocol, proxyinfo);

if i > 0 then

begin

Delete(proxyinfo, 1, i + Length(protocol));

i := Pos(';', ProxyServer);

if i > 0 then

proxyinfo := Copy(proxyinfo, 1, i - 1);

end;

i := Pos(':', proxyinfo);

if i > 0 then

begin

ProxyPort := StrToIntDef(Copy(proxyinfo, i + 1, Length(proxyinfo) - i), 0);

ProxyServer := Copy(proxyinfo, 1, i - 1)

end

end;

procedure TForm1.Button1Click(Sender: TObject);

var

ProxyServer: string;

ProxyPort: Integer;

begin

GetProxyServer('http', ProxyServer, ProxyPort);

Label1.Caption := ProxyServer;

label2.Caption := IntToStr(ProxyPort);

end;

http://swissdelphicenter.ch/en/showcode.php?id=2110

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0163 ] [ 16 queries used ] [ Generated: 30.12.24, 17:23 GMT ]