Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для El Sanchez

Ветеран


Contributor


Сообщения: 1274
Благодарности: 1030

Профиль | Отправить PM | Цитировать


Цитата by_gangster:
А в примере от El Sanchez, можно сделать что бы окно выбора не высвечивалось ? »
by_gangster, замените эти строки:
Код: Выделить весь код
if GetSaveFileName('Сохранить как...', fName, '', '*' + ExtractFileExt(fName), ExtractFileExt(fName)) then
try
вот этими:
Код: Выделить весь код
if DirExists(szDestDir) then
try
    fName := Format('%s\%s', [szDestDir, fName]);
Саму процедуру объявите как:
Код: Выделить весь код
procedure DownloadFile(urlFilename, szDestDir: String);
P.S. Вообще-то пример в шапке устарел, заменю его как-нибудь.
Это сообщение посчитали полезным следующие участники:

Отправлено: 21:23, 13-05-2013 | #442