Mega Code Archive

 

Categories / Delphi / Examples

 

Extract the cookie direcory

uses Registry; function GetDirectory: string; var reg : TRegistry; begin reg := TRegistry.Create; try reg.RootKey := HKEY_LOCAL_MACHINE; reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\Special Paths\Cookies', False); Result := reg.ReadString('Directory'); finally reg.Free; end; end; procedure TForm1.Button1Click(Sender : TObject); var s : string; begin S := GetDirectory; ShowMessage(GetDirectory); end;