Ошибка RegisterServiceProcess в NT-подобных системах

← →
Stefan (2004-12-01 15:51) [0]

пишу
{$IFDEF WIN32} // для win9x/Me
RegisterServiceProcess..........
{$ELSE} // для NT
{$ENDIF}

компилируется успешно, в Win98 работает, в w2k - со всего размаха и по морде. Не работает. Вылетает совсем с ощибкой, пишет, что не может найти точку входа на процедуру RegisterServiceProcess в ядре KERNEL32

Что делать ?

← →
KSergey © (2004-12-01 15:59) [1]

Нет такой штуки для NT

ЗЫ
К стати, а что, NT - это не Win32?

← →
Anatoly Podgoretsky © (2004-12-01 16:21) [2]

F1 + RegisterServiceProcess

← →
Xaker © (2004-12-01 17:47) [3]

Stefan (01.12.04 15:51)
покажи код для NT

← →
vertal © (2004-12-01 21:24) [4]

Пo-моему, другого варианта, как вот так, нету:
type TRegisterServiceProcess = function(dwProcessId: DWORD; dwType: DWORD): DWORD; stdcall; const RSP_SIMPLE_SERVICE = 1; RSP_UNREGISTER_SERVICE = 0; var RegisterServiceProcess: TRegisterServiceProcess; begin ... if(LongInt(GetVersion) < 0)then begin RegisterServiceProcess := GetProcAddress( GetModuleHandle( "kernel32.dll"), "RegisterServiceProcess"); RegisterServiceProcess(0, RSP_SIMPLE_SERVICE); ... end;
А константы компилятора не имеют отношения к тому, под какой средой запускается программа.

← →
Stefan (2004-12-02 22:40) [5]

Удалено модератором
Примечание: Такие вещи по почте

← →
Stefan (2004-12-02 22:41) [6]

Удалено модератором
Примечание: Такие вещи по почте

← →
Xaker © (2004-12-03 00:34) [7]

Stefan кинь код на xaker_delphi_sys@mail.ru

← →
Xaker © (2004-12-03 00:35) [8]

Удалено модератором

Stefan (02.12.04 22:41) [6]
и стукни в аську :))

← →
Stefan (2004-12-03 11:15) [10]

для чего тогда директивы ?

http://www.sources.ru/delphi/system/get_windows_version.shtml

← →
BlackTr (2004-12-03 11:26) [11]

Директивы обрабатываются компилятором, в run-time их просто нет :)

Ошибка RegisterServiceProcess в NT-подобных системах Найти похожие ветки