dial up connection folder

[marc66]

how do i delete the contents of my dial up connection folder in a single button click

code windows 95/98 compatible

[Lapince]

This folder doesn't exist !! Have a look at HKEY_CURRENT_USER\RemoteAccess\ and its subkeys... Here you'll find how to delete them in a click.

[marc66]

if i am not asking too much could u PLEASE post the code that will delete all of the dial up connections in a button click

THANK YOU

[Lapince]

var
Reg: TRegistry;
Keys,Values: TStringList;
I: integer;
begin
Reg:=TRegistry.Create;
Keys:=TStringList.Create;
Values:=TStringList.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
if not Reg.OpenKey('\RemoteAccess\Addresses') then Exit; // No remote access
Reg.GetValueNames(Values);
for I:=0 to Values.Count-1 do
Reg.DeleteValue(Values[I]);

if not Reg.OpenKey('\RemoteAccess\Profiles') then Exit; // No remote access
Reg.GetKeyNames(Keys);
for I:=0 to Keys.Count-1 do
Reg.DeleteKey(Keys[I]);

Reg.Free;
Values.Free;
Keys.Free;
end;

I must say I didn't test it :-) If you have problem with it, mail-me (lapince@lapince.com)

[Lapince]

For people who will read the last answer, sorry, I made a mistake : I forgot a parameter... Add ", false" after the key name in Reg.OpenKey...
Example :
Reg.OpenKey('\RemoteAccess\Addresses', false)