Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Wise Install Master 7.03 и NT Server


Alex Shulg ©   (2003-01-15 14:51:00) 

Для тех, кто пользуется Wise Install Master 7.03: Как в инсталяшке определить, что программа устанавливается на сервере и вместо автозагрузки засовывать ее в сервисы, чтобы грузилась как сервис?
Зарание благодарю


Reindeer Moss Eater   (2003-01-15 16:52:00) [1]

После вызова анализируем что получилось:
if DLLRESULT equals "0" then
Display Message "Cannot open SCManager"
else
Set Variable Мой_Дескриптор_SCManager to %DLLRESULT%


Reindeer Moss Eater   (2003-01-15 16:45:00) [2]

Небольшой пример вызова OpenSCManagerA:
Добавляем шаблон CALL DLL Function.
параметр DLL path name = %SYS32%\advapi32.dll
function name = OpenSCManagerA
список параметров функции :
long constant null
long constant null
dword constant 1
Result value type = dword



Alex Shulg   (2003-01-15 16:37:00) [3]

> Reindeer Moss Eater

Если бы пример еще подкинул, цены бы тебе не было!


Reindeer Moss Eater   (2003-01-15 16:16:00) [4]

Да все теми же API функциями из advapi32.dll
OpenSCManagerA
OpenServiceA
StartServiceA
.....


Alex Shulg   (2003-01-15 16:10:00) [5]

Ну ладно, с версией понятно,а как в сервис то засунуть?


Reindeer Moss Eater   (2003-01-15 15:50:00) [6]

> if System Has Windows NT Running then
Но ведь в этом нет различия между Workstation и Server"ом! Или я не прав?


Прав. Отличий нет. Сервисом можно быть и на WorkStation.

> А вообще внутри скрипта доступны любые вызовы из любых DLL, в том числе user32.dll
Ну мне это мало о чем сказало! Я так понимаю, что для того, чтобы засунуть программу в сервисы, необходимо вызвать какую-то функцию из какой-то библиотеки? А нельзя ли по подробнее!


Любая функция, экспортируемая любой DLL в твоем полном распоряжении. В том числе те, которые могут сказать точную версию ОС.


Alex Shulg   (2003-01-15 15:44:00) [7]

> Reindeer Moss Eater

> if System Has Windows NT Running then
Но ведь в этом нет различия между Workstation и Server"ом! Или я не прав?

> А вообще внутри скрипта доступны любые вызовы из любых DLL, в том числе user32.dll
Ну мне это мало о чем сказало! Я так понимаю, что для того, чтобы засунуть программу в сервисы, необходимо вызвать какую-то функцию из какой-то библиотеки? А нельзя ли по подробнее!


Reindeer Moss Eater   (2003-01-15 15:25:00) [8]

А вообще внутри скрипта доступны любые вызовы из любых DLL, в том числе user32.dll


Reindeer Moss Eater   (2003-01-15 15:24:00) [9]

if System Has Windows NT Running then ....


Наверх

Титульная страница Поиск, карта сайта Написать письмо