Скачать: CL | DM;

Ошибка 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]

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

---

← →
Xaker ©   (2004-12-03 01:13) [9]

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 их просто нет :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: -0.367 c