Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

ZwShutdownSystem (из ntdll.dll) - самый быстрый вариант, даже не [D5, D7, NT4, Win2k, WinXP]

adnry © (2004-03-16 10:03:00)
как написать єту функцию под delphi, у меня єсть исходник на С++ но я там ничего не понимаю.

Alexander666 (2004-03-18 16:23:00) [1]
Спасибо, я не пью, если честно :-)

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

andry2 (2004-03-18 11:48:00) [3]
Alexander666 уже ближе к дело говорит, но там ищо надо наверноє і права получить, бо не хочет сразу без прав стартовать!!!!! Или я ошибаюсь!!!!!!!1

Alexander666 (2004-03-18 04:14:00) [4]
Вместо
function ZwShutdownSystem(Action:SHUTDOWN_ACTION):NTSTATUS;stdcall;
пиши
function ZwShutdownSystem(Action:SHUTDOWN_ACTION):NTSTATUS;stdcall;external 'ntdll.dll';

adnry2 (2004-03-17 12:58:00) [5]
Удалено модератором
Примечание: Создание пустых сообщений

EXE7 (2004-03-17 10:38:00) [6]
export function ИЗ Dll
откуда делфя знает что у тебя функция есть такая?
а может dll еще что-то есть,искать по всем dll
она не будет
или прописана в WinUndocFunct.pas?

kiSystemService ;)

BiN (2004-03-17 09:33:00) [7]
Gero © (16.03.04 22:39) [10]
... Что ж это за ответ, если оно "не хочет работать"

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

DrPass (2004-03-16 23:18:00) [8]
>nikkie

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

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

nikkie (2004-03-16 22:56:00) [9]
издеваетесь над мальчиком... а он ведь искренне скопировал код...

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

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

Gero (2004-03-16 22:39:00) [10]
> а [1] - не ответ что ли

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

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

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

Andry2 (2004-03-16 19:46:00) [11]
если ответ почему не пашет, может у меня рука кривая, то помогити исправить.

BiN (2004-03-16 17:38:00) [12]
...я вижу тут никто не знаєт как ето зделать
куда уж нам уж.

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

Andry2 (2004-03-16 17:26:00) [13]
ExitWindowsEx - плохо работаєт, а ZwShutdownSystem суперски , уменя єсть исходник С++ і сам екзешник, но очень нужна на Delphi, я вижу тут никто не знаєт как ето зделать. Хто сумеєт киньте поштой, помогите бедному админу!!!!

BiN (2004-03-16 13:29:00) [14]
>>adnry

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

MU (2004-03-16 13:26:00) [15]
Удалено модератором
Примечание: Offtopic

adnry (2004-03-16 13:23:00) [16]
не хочет работать [Warning] Project1.dpr(19): Return value of function 'ZwShutdownSystem' might be undefined

BiN (2004-03-16 13:06:00) [17]
begin
ZwShutdownSystem(ShutdownPowerOff);
end;
это и был пример

adnry (2004-03-16 13:00:00) [18]
єсли можна пример подкинте!!!!!!!

BiN (2004-03-16 10:07:00) [19]
type
NTSTATUS = DWORD;
SHUTDOWN_ACTION = byte;
const
ShutdownNoReboot = 0;
ShutdownReboot = 1;
ShutdownPowerOff = 2;

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

begin
ZwShutdownSystem(ShutdownPowerOff);
end;

Наверх

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