
08.04.2015, 11:21
|
Прохожий
|
|
Регистрация: 12.10.2010
Сообщения: 25
Репутация: 10
|
|
Вот как
Код:
procedure TForm1.ChromBeforeDownload(Sender: TObject;
const browser: ICefBrowser; const downloadItem: ICefDownloadItem;
const suggestedName: ustring;
const callback: ICefBeforeDownloadCallback);
begin
callback.Cont(ExtractFilePath(ParamStr(0)) + '1.csv', False);
end;
|