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

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

Аватара для Johny777

Ветеран


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

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


saurn,
Цитата saurn:
Мой вопрос http://forum.oszone.net/post-2148420-416.html еще актуален)) »
из шапки взял, из той же функции закрепления ярлыка в панели задач:
читать дальше »
Код: Выделить весь код
function ThereIsFile(const FileName: String): Boolean;
var
    oFS: Variant;
begin
    oFS := CreateOleObject('Scripting.FileSystemObject');
    try
        Result := oFS.FileExists(FileName);
    except
        //ShowExceptionMessage;
    end;
end;

procedure InitializeWizard();
begin
    if FileExists(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\') + 'Mozilla Firefox.lnk') then MsgBox('OK', mbInformation, MB_OK);
    //if ThereIsFile(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\') + 'Mozilla Firefox.lnk') then MsgBox('OK', mbInformation, MB_OK);
end;

PS: у тебя тоже вроде правильный путь был, но ни FileExists(...) ни альтернативная ThereIsFile(...)так не считали (аномалия ! ), но сейчас вроде работает и это главное!

=======================================================

by_gangster,
Цитата by_gangster:
P.S есть ли скрипт который сразу в указанную папку скачает? »
в примере что я тебе дал
function DownloadFile(const SourceFile, DestFile: String): Boolean;

и в шапке ещё пример El Sanchez

Последний раз редактировалось Johny777, 13-05-2013 в 15:06.

Это сообщение посчитали полезным следующие участники:

Отправлено: 14:56, 13-05-2013 | #432