[deathor]

Подскажите пожалуйста, можно ли как-нибудь отыскать всевозможмоные(разных браузеров) куки на компе?

Пишлите пожалуйста пример процедурки...

[Vayrus]

Пишешь программу по удалению конфиденциальных данных?
Вообще всю инфу к папкам по кукисам, печенью и т. д. ты можешь выудить из реестра соответствующих программ, у IE точно в реестре, а как пользоваться реестром это уже второй вопрос

[SHKIP3R]

помойму у нас завелся очередной трояно писатель

[deathor]

помойму у нас завелся очередной трояно писатель

Если бы... Просто по работе нужна прога, которая будет чистить данные при каждом перезапуске ОСи...

Пишешь программу по удалению конфиденциальных данных?
Вообще всю инфу к папкам по кукисам, печенью и т. д. ты можешь выудить из реестра соответствующих программ, у IE точно в реестре, а как пользоваться реестром это уже второй вопрос

Хоть приблизительно, как это можно сделать?

Использовал вот такой код, но он выдает пустое значение..

Код:

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;

[deathor]

Нашел ошибку сам...

Код:

reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\Special Paths\Cookies',False);

[deathor]

от одной проблемы я избавился... появилась другая...

Она мне выдает что вроде:
%userprofile%\cookie

Как енто преобразовать в нормальный путь?

[Vayrus]

Сам хочу такую прогу написать, если резонно, то давай вместе делать, состыкуемся после 7 по аське

А, кстати, а чем тогда не устраивают существующие программы, их же много, тот же CCleaner ?

[deathor]

Люблю ентот форум! Сам спрашиваю - сам отвечаю! =)

На счет перегона строчки в норм вид...

Делается енто вот так:

Код:

function RunMacro(const Macro: string): string;
var
  P: array[0..4096] of char;
begin
   Result := Macro;
   ExpandEnvironmentStrings( PChar( Result ), P, SizeOf( P ) );
   Result := P;
end;

// вставляем в любую процедуру...
ShowMessage( RunMacro( a ) );

вместо "а" вставляем интересующую нас строку... (например: %userprofile%\cookie)

[Vayrus]

Ну вот, хоть кто то своим умом, инетом и справкой допирает