@nomorelogic Non funziona, mi dice che non c'è nessun proxy ...
strano
se esegui questo comando ti mostra i giusti valori?
reg query "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
Eccolo ...
Ho incolonnato l'output per renderlo più leggibile, ed ho messo "CENSURATO !!!" dove c'era scritto qualcosa, ma erano dati "sensibili".
Ricapitolando, con i miei programmi fatti con Lazarus, funziona così: se ad esempio uso Synapse per scaricare un file, riesce a fare il download solo se imposto Host e relativa porta del proxy, in caso contrario, il download fallisce.
c:\Tmp>reg query "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings
CertificateRevocation REG_DWORD 0x1
DisableCachingOfSSLPages REG_DWORD 0x0
IE5_UA_Backup_Flag REG_SZ 5.0
PrivacyAdvanced REG_DWORD 0x1
SecureProtocols REG_DWORD 0xa80
User Agent REG_SZ Mozilla/4.0 (compatible; MSIE 8.0; Win32)
ProxyServer REG_SZ CENSURATO !!!:8080
ProxyOverride REG_SZ CENSURATO !!!
ProxyEnable REG_DWORD 0x1
EnableNegotiate REG_DWORD 0x1
MigrateProxy REG_DWORD 0x1
ZonesSecurityUpgrade REG_BINARY 100EBD5A88EBD701
WarnonZoneCrossing REG_DWORD 0x0
LockDatabase REG_QWORD 0x1d7fce2e8ab9c88
AutoConfigURL REG_SZ CENSURATO !!!
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\5.0
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Cache
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Http Filters
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Lockdown_Zones
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\P3P
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Passport
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Protocols
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\TemplatePolicies
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Wpad
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones
Sì, ci avevo provato, senza capirci molto ...
C'è questo "ramo"
Computer\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\iphlpsvc\Parameters\ProxyMgr\
Che contiene questi altri 2 rami:
{7FC8942A-C395-4C9E-8A45-844C2262AC3E}
{D7F5E7BD-E3CB-4CCB-B90C-DFEAA6180DA1}
Ognuno dei 2, ha una chiave che si chiama "StaticProxy", valorizzata rispettivamente con "proxy01:8080" e con "proxy03:8080"
Ciao, Mario
Ho rimesso l'allegato aggiornato.
Ho inserito nella chiamata un parametro opzionale (true / false).
Se c'è qualcosa che non và, chiama la funzione direttamente dal tuo codice con il parametro true.
Visualizzerà una box con la stringa di definizione del proxy, facendo uno screenshoot può essere utile per debug.
DiscoveryProxyInfo(true);
Ulteriori info nel sorgente.
Ciao