Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Поиск программы (проверка на установку) 
V
    Опции темы
Innuendo
Дата 26.2.2006, 14:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 745
Регистрация: 24.12.2005
Где: Молдова

Репутация: нет
Всего: 6
Нужно проверить установлена ли программа, и если не установлена, то установить (запустить файл инсталляции).
Объясню подробней:
Надо проверить установлен ли FireFox 1.5. Если не установлен, или установлен 1.0.7, то установить (с разрешения пользователя).
Как это можно осуществить?


--------------------
=)
PM MAIL ICQ Jabber   Вверх
z-END
Дата 26.2.2006, 14:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


прафесар™
****


Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 1
Всего: 102
может в реестре посмотреть?
HKEY_CURRENT_USER\Software\Mozilla\Mozilla Firefox


--------------------
Каждый чилавек пасвоему праф...а памоему НЕТ! 
PM WWW ICQ   Вверх
Guedda
Дата 26.2.2006, 15:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 3
Всего: 78
Если знаешь директорию программы, то можно:
Код

 if FileExists('путь_к_программе\программа.exe') then
  //твои действия



--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Innuendo
Дата 26.2.2006, 16:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 745
Регистрация: 24.12.2005
Где: Молдова

Репутация: нет
Всего: 6
Guedda,
ну по умолчанию его инсталлят в Program Files, но мало ли куда юзер может инсталлить FireFox.


z-END,
поподробней пожалуйста smile
Как это можно осуществить?


--------------------
=)
PM MAIL ICQ Jabber   Вверх
Guedda
Дата 26.2.2006, 16:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 3
Всего: 78
Код

uses
  ...,Registry;
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  if not Reg.KeyExists('Software\Mozilla\Mozilla Firefox')
    then ShowMessage('Файрфокс не установлен!')
  else begin
    Reg.OpenKey('Software\Mozilla\Mozilla Firefox', false);
    ShowMessage('Версия Firefox: ' + Reg.ReadString('CurrentVersion'));
  end;
  Reg.CloseKey;
  Reg.Free;
end;



--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Innuendo
Дата 26.2.2006, 16:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 745
Регистрация: 24.12.2005
Где: Молдова

Репутация: нет
Всего: 6
ох... спасибо... дальше я сам уже мелочи разные добавлю.

А вот ещё вопрос... как посмотреть установлен ли Flash Player Plug-in в Mozilla?


M
Girder		Одна тема - один вопрос!



--------------------
=)
PM MAIL ICQ Jabber   Вверх
Quadr0
Дата 26.2.2006, 16:51 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 10:08
  Вверх
Innuendo
Дата 26.2.2006, 17:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 745
Регистрация: 24.12.2005
Где: Молдова

Репутация: нет
Всего: 6
Quadr0, спасибо тебе.. про код- всё таки напишите плз, я просто только вчера дельфи установил, так что новичок.
Про версию - нет проблем. У меня такая штука, если файрфокс установлен не 1.5, то он устанавливает 1.5, и тогда сразу Flash Player к нему.
Если FireFox'а нету вообще, то он также устанавливает firefox 1.5 и flash player...
Если он нашел FireFox 1.5, то искать фл\ш плеер надо по ключю с версией браузера 1.5.

думаю, ты понял, что я имел ввиду smile


--------------------
=)
PM MAIL ICQ Jabber   Вверх
Innuendo
Дата 26.2.2006, 23:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 745
Регистрация: 24.12.2005
Где: Молдова

Репутация: нет
Всего: 6
Работая с запуском программы, после проверки на браузер у меян возникла такая проблема:
если он нашел в реестре браузер, то он должен его запустить... Так вот у меян проблема со вствкой в функции строк.. Пробовал как тока можно:
Код

Reg.RootKey := HKEY_CURRENT_USER;
     Reg.OpenKey('Software\Mozilla\Mozilla Firefox\1.5 (ru)\main\', false);
 ShellExecute(Handle, nil, Reg.ReadString('PathToExe'), 'C:\MBuilder\index.html', nil, SW_Restore)

Вот ему не нравится Reg.ReadString('PathToExe')... я пробовал делать так:
Код

var PathToBrowser:string;
....
....
Reg.RootKey := HKEY_CURRENT_USER;
     Reg.OpenKey('Software\Mozilla\Mozilla Firefox\1.5 (ru)\main\', false);
PathToBrowser :=  Reg.ReadString('PathToExe')
 ShellExecute(Handle, nil, PathToBrowser , 'C:\MBuilder\index.html', nil, SW_Restore)

не получается smile в чём ошибка, скажите плз smile

Это сообщение отредактировал(а) Innuendo - 27.2.2006, 00:01


--------------------
=)
PM MAIL ICQ Jabber   Вверх
Quadr0
Дата 27.2.2006, 00:46 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 10:10
  Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0519 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.