DFÜ-Einwahl abschalten |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Bei manchen Anwendungen (insbesondere lokalen Servern) darf keine DFÜ-Verbindung möglich sein. Statt jedes Mal in der Systemsteuerung/Internetoptionen/Verbindungen den Eintrag 'Keine Verbindung wählen' zu markieren, kann man auch eine kleine Anwendung schreiben, die das automatisch erledigt. Dazu ist nur das Setzen eines Registry-Eintrags nötig:
uses registry;
var regist: TRegistry;
begin
//Einwählen abschalten
regist:=TRegistry.create;
try
regist.RootKey:=HKEY_CURRENT_USER;
regist.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',false);
regist.WriteInteger('EnableAutodial',0);
regist.CloseKey;
finally
regist.free;
end;
end;
var regist: TRegistry;
begin
//Einwählen abschalten
regist:=TRegistry.create;
try
regist.RootKey:=HKEY_CURRENT_USER;
regist.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',false);
regist.WriteInteger('EnableAutodial',0);
regist.CloseKey;
finally
regist.free;
end;
end;
Nach Programmende sollte die Einwahl wieder möglich sein. Folgender Code setzt die Einstellung wieder auf 'Immer Standardverbindung wählen':
//Einwählen einschalten
regist:=TRegistry.create;
try
regist.RootKey:=HKEY_CURRENT_USER;
regist.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',false);
regist.WriteInteger('EnableAutodial',1);
regist.CloseKey;
finally
regist.free;
end;
regist:=TRegistry.create;
try
regist.RootKey:=HKEY_CURRENT_USER;
regist.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',false);
regist.WriteInteger('EnableAutodial',1);
regist.CloseKey;
finally
regist.free;
end;
Ähnliche Seiten: