Форум: "WinAPI";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];
Вниз
Ошибка 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 вся ветка
Форум: "WinAPI";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.036 c
