Ich denke, ich habe den Fehler gefunden. Wenn die EXE in "FEATURE_BROWSER_EMULATION" gelistet ist, muss hier ein Eintrag einfolgen:
HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULA TION\name-der.exe DWord 11000
HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_MAXCONNECTION SPERSERVER\name-der.exe DWord 10
HKLM\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_MAXCONNECTION SPERSERVER\name-der.exe DWord 10
Ansonsten hier:
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Int ernet Settings\MaxConnectionsPerServer DWord 10
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Int ernet Settings\MaxConnectionsPer1_0Server DWord 10
Entsprechend geben auch diese Funktionen den hinterlegten Wert zurück:
Code:
InternetQueryOption(nil, INTERNET_OPTION_MAX_CONNS_PER_1_0_SERVER, @dwMaxHttp10, dwSize)
InternetQueryOption(nil, INTERNET_OPTION_MAX_CONNS_PER_SERVER, @dwMaxHttp11, dwSize)
Zusätzlich mache ich das dann noch per Software, scheint aber nicht zu greifen, muss ich noch testen:
Code:
dwSize := SizeOf(dwMaxHttp10);
InternetQueryOption(nil, INTERNET_OPTION_MAX_CONNS_PER_1_0_SERVER, @dwMaxHttp10, dwSize);
If (dwMaxHttp10<10) then begin
dwMaxHttp10 := 10;
InternetSetOption(nil, INTERNET_OPTION_MAX_CONNS_PER_1_0_SERVER, @dwMaxHttp10, dwSize);
end;
dwSize := SizeOf(dwMaxHttp11);
InternetQueryOption(nil, INTERNET_OPTION_MAX_CONNS_PER_SERVER, @dwMaxHttp11, dwSize);
If (dwMaxHttp11<10) then begin
dwMaxHttp11 := 10;
InternetSetOption(nil, INTERNET_OPTION_MAX_CONNS_PER_SERVER, @dwMaxHttp11, dwSize);
end;