Proxykonfiguration erzwingen

[Chriscode]

Hallo zusammen,
ich habe folgendes Problem, welches mich seit Tagen zum verzweifeln bringt:
Bei meinem Programm benötige ich einen Browser mit Proxyunterstützung. Bisher habe ich TWebbrowser und den EmbeddedWb genutzt. Das Problem ist, dass beide je nach Windows Konfiguration bei vielen Nutzern teilweise nicht funktionieren. Daher bin ich auf chromiumembedded umgestiegen.

Dieses Projekt funktioniert insgesamt sehr zuverlässig. Mein Problem: Die Proxyunterstützung ist zwar vorhanden, funktioniert allerdings nicht. Die automatische Übernahme des aktuellen Systemproxys wird unterstützt, das individuelle Setzen eines Proxys funktioniert jedoch nicht. Die vorgesehene Funktion (getproxyforurl) funktioniert nicht und der Programmierer zeigt leider keine Ambitionen dies zu ändern

Daher sitze ich jetzt seit Tagen vor dem Problem, wie ich es hinbekomme, Chromium über unseren Proxy laufen zu lassen? Am liebsten wäre mir eine Lösung, wodurch nicht das gesamte System beeinflusst wird, sondern nur mein Programm den Proxy nutzt.

Die Prozedur unten wäre dafür perfekt, aber: Sie beeinflusst zwar den TWebbrowser, Chromium ignoriert sie allerdings. Und das, obwohl die Internetverbindung von der Chromiumkomponente bei Monitoringprogrammen als von meinem Programm ausgehend angezeigt wird.

Ich würde mich wirklich sehr über Hilfe und Tipps freuen.

bisher genutzte Prozedur: (Quelle: hier aus dem Forum, keine Eigenentwicklung)

Code:

function TForm1.Proxy(Server: string): Boolean;
type
  INTERNET_PER_CONN_OPTION = record
    dwOption: DWORD;
    Value: record
      case Integer of
        1: (dwValue: DWORD);
        2: (pszValue: {$IFDEF DELPHI2009_UP}PWideChar{$ELSE}PAnsiChar{$ENDIF});
        3: (ftValue: TFileTime);
    end;
  end;
  LPINTERNET_PER_CONN_OPTION = ^INTERNET_PER_CONN_OPTION;
  INTERNET_PER_CONN_OPTION_LIST = record
    dwSize: DWORD;
    pszConnection: LPTSTR;
    dwOptionCount: DWORD;
    dwOptionError: DWORD;
    pOptions: LPINTERNET_PER_CONN_OPTION;
  end;
  LPINTERNET_PER_CONN_OPTION_LIST = ^INTERNET_PER_CONN_OPTION_LIST;
const
  INTERNET_PER_CONN_FLAGS = 1;
  INTERNET_PER_CONN_PROXY_SERVER = 2;
  INTERNET_PER_CONN_PROXY_BYPASS = 3;
  INTERNET_PER_CONN_AUTOCONFIG_URL = 4;
  INTERNET_PER_CONN_AUTODISCOVERY_FLAGS = 5;
  PROXY_TYPE_DIRECT = $00000001;
  PROXY_TYPE_PROXY = $00000002;
  PROXY_TYPE_AUTO_PROXY_URL = $00000004;
  PROXY_TYPE_AUTO_DETECT = $00000008;
  INTERNET_OPTION_REFRESH = 37;
  INTERNET_OPTION_PER_CONNECTION_OPTION = 75;
  INTERNET_OPTION_SETTINGS_CHANGED = 39;
var
  OptionsList: INTERNET_PER_CONN_OPTION_LIST;
  BufSize: DWORD;
  HInternet: Pointer;
  Agent: String;
begin
  Result:=false;
  BufSize:=SizeOf(OptionsList);
  OptionsList.dwSize:=BufSize;
  OptionsList.pszConnection:=nil; //nil -> LAN, sonst Verbindungsname
  OptionsList.dwOptionCount:=3; //3 Optionen werden gesetzt
  OptionsList.pOptions:=AllocMem(3*SizeOf(INTERNET_PER_CONN_OPTION));
  try
    if not assigned(OptionsList.pOptions)
      then Exit;
    OptionsList.pOptions^.dwOption:=INTERNET_PER_CONN_FLAGS;
    OptionsList.pOptions^.Value.dwValue:=PROXY_TYPE_DIRECT or PROXY_TYPE_PROXY;
    inc(OptionsList.pOptions);
    OptionsList.pOptions^.dwOption:=INTERNET_PER_CONN_PROXY_SERVER;
    OptionsList.pOptions^.Value.pszValue:=PAnsiChar(Server);
    inc(OptionsList.pOptions);
    OptionsList.pOptions^.dwOption:=INTERNET_PER_CONN_PROXY_BYPASS;
    OptionsList.pOptions^.Value.pszValue:='local';
    dec(OptionsList.pOptions,2);
    Agent:=ExtractFileName(Application.ExeName);
    hInternet:=InternetOpen({$IFDEF DELPHI2009_UP}PWideChar{$ELSE}PWideChar{$ENDIF}
                            (Agent),INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
    try //Optionen setzen
      Result:=InternetSetOption(hInternet,INTERNET_OPTION_PER_CONNECTION_OPTION,
                                @OptionsList,BufSize);
      InternetSetOption(hInternet,INTERNET_OPTION_REFRESH,nil,0);
      InternetSetOption(hInternet, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);
    finally
      InternetCloseHandle(hInternet);
    end;
  finally
    FreeMem(OptionsList.pOptions); //Speicher freigeben
  end;
end;

LG,
Chris