ZwShutdownSystem (из ntdll.dll) - самый быстрый вариант, даже не

← →
adnry (2004-03-16 10:03) [0]

как написать єту функцию под delphi, у меня єсть исходник на С++ но я там ничего не понимаю.

← →
BiN © (2004-03-16 10:07) [1]

type
NTSTATUS = DWORD;
SHUTDOWN_ACTION = byte;
const
ShutdownNoReboot = 0;
ShutdownReboot = 1;
ShutdownPowerOff = 2;

function ZwShutdownSystem(Action:SHUTDOWN_ACTION):NTSTATUS;stdcall;

begin
ZwShutdownSystem(ShutdownPowerOff);
end;

← →
adnry (2004-03-16 13:00) [2]

єсли можна пример подкинте!!!!!!!

← →
BiN © (2004-03-16 13:06) [3]

begin
ZwShutdownSystem(ShutdownPowerOff);
end;
это и был пример

← →
adnry (2004-03-16 13:23) [4]

не хочет работать [Warning] Project1.dpr(19): Return value of function "ZwShutdownSystem" might be undefined

← →
MU (2004-03-16 13:26) [5]

Удалено модератором
Примечание: Offtopic

← →
BiN © (2004-03-16 13:29) [6]

>>adnry

такими темпами скоро в орешник попадешь.
И вообще, используй ExitWindowsEx

← →
Andry2 (2004-03-16 17:26) [7]

ExitWindowsEx - плохо работаєт, а ZwShutdownSystem суперски , уменя єсть исходник С++ і сам екзешник, но очень нужна на Delphi, я вижу тут никто не знаєт как ето зделать. Хто сумеєт киньте поштой, помогите бедному админу!!!!

← →
BiN © (2004-03-16 17:38) [8]

...я вижу тут никто не знаєт как ето зделать
куда уж нам уж.

а [1] - не ответ что ли

← →
Andry2 (2004-03-16 19:46) [9]

если ответ почему не пашет, может у меня рука кривая, то помогити исправить.

← →
Gero © (2004-03-16 22:39) [10]

> а [1] - не ответ что ли

Что ж это за ответ, если оно "не хочет работать" [4]

> может у меня рука кривая, то помогити исправить

Это Вам к хирургу надо :)

← →
nikkie © (2004-03-16 22:56) [11]

издеваетесь над мальчиком... а он ведь искренне скопировал код...

>Andry2
в [1] пропущено ключевое слово external и еще чуть-чуть. почитай хелп про него. а в следующий думай хоть немного, когда код копируешь.

не хочет работать [Warning] Project1.dpr(19): Return value of function "ZwShutdownSystem" might be undefined
ну если так сильно мешает, напиши
Result := ZwShutdownSystem(ShutdownPowerOff);
:))

← →
DrPass © (2004-03-16 23:18) [12]

>nikkie

> ну если так сильно мешает, напиши
> Result := ZwShutdownSystem(ShutdownPowerOff);

За такие шуточки в гестапо принимали без экзаменов :)

← →
BiN © (2004-03-17 09:33) [13]

Gero © (16.03.04 22:39) [10]
... Что ж это за ответ, если оно "не хочет работать"

Вопрос был о синтаксисе функции - в [1] на этот вопрос представлен полный ответ.
О статическом импорте функций из библиотек пока что никто не спрашивал.

← →
EXE7 (2004-03-17 10:38) [14]

export function ИЗ Dll
откуда делфя знает что у тебя функция есть такая?
а может dll еще что-то есть,искать по всем dll
она не будет
или прописана в WinUndocFunct.pas?

kiSystemService ;)

← →
adnry2 (2004-03-17 12:58) [15]

Удалено модератором
Примечание: Создание пустых сообщений

Вместо
function ZwShutdownSystem(Action:SHUTDOWN_ACTION):NTSTATUS;stdcall;
пиши
function ZwShutdownSystem(Action:SHUTDOWN_ACTION):NTSTATUS;stdcall;external "ntdll.dll";

← →
andry2 (2004-03-18 11:48) [17]

Alexander666 уже ближе к дело говорит, но там ищо надо наверноє і права получить, бо не хочет сразу без прав стартовать!!!!! Или я ошибаюсь!!!!!!!1

← →
andry2 (2004-03-18 12:06) [18]

Всем большоє спасибо заработало, я подставил ету функцию взамен
ExitWindowsEx в примерах для NT и турбо-ядро NT за 1 сек. пошло спать. Хто захочет можу дать пример. Всьотаки єсь на свети ГУРУ (Alexander666). Єслиб увидил поставилби ящик пива!!!

Спасибо, я не пью, если честно :-)

ZwShutdownSystem (из ntdll.dll) - самый быстрый вариант, даже не Найти похожие ветки