usesRegistry; function
GetDirectory: string
; var
reg : TRegistry; begin
reg := TRegistry.Create; try
reg.RootKey := HKEY_LOCAL_MACHINE; reg.OpenKey('SOFTWAREMicrosoftWindowsCurrentVersionInternet SettingsCacheSpecial PathsCookies', False); Result := reg.ReadString('Directory'); finally
reg.Free; end
; end
; procedure
TForm1.Button1Click(Sender : TObject); var
s : string
; begin
S := GetDirectory; ShowMessage(GetDirectory); end
;