выключение компьютера

[Сильванович Михаил]

Сообщение от komex

Че-то я не совсем понял, на каком языке это написано? Там вроде получается функция в функции? И что это означает:

function IsWin9x: Bool; {True = Win9x, False = NT}
asm
xor eax, eax
mov ecx, cs
xor cl, cl
jecxz @@quit
inc eax
@@quit:
end;

Нет begin'а, а внутри вообще непонятно что. Может просто я плохо знаю Delphi?!

P.S. И вот в чем прикол, при компиляции не выдает никакой ошибки! Но программа все равно не работает. Т.е. запускается, но ничего не происходит!

Функция в функции - используется для того, чтобы определить функцию
доступной только из данной функции - наша функция может использовать,
описанную внутри нее функцию, а вне функции к ней нельзя обратиться.
Эта функция написана на встроенном в Delphi Assembler'е - на что и указывает
директива asm - которая в данном случае заменила нам begin.
Так ты какое значение параметра использовал для MyWindowsExit?

Чтобы выключить ПК делай так: MyExitWindows(EWX_SHUTDOWN);

[komex]

Сообщение от Сильванович Михаил

Функция в функции - используется для того, чтобы определить функцию
доступной только из данной функции - наша функция может использовать,
описанную внутри нее функцию, а вне функции к ней нельзя обратиться.
Эта функция написана на встроенном в Delphi Assembler'е - на что и указывает
директива asm - которая в данном случае заменила нам begin.
Так ты какое значение параметра использовал для MyWindowsExit?

Чтобы выключить ПК делай так: MyExitWindows(EWX_SHUTDOWN);

О! Это тоже работает! И теперь можно легко выбрать: перезагрузить или выключить комп. Круто!

[zetrix]

function IsWin9x: Bool; {True = Win9x, False = NT}
asm
xor eax, eax
mov ecx, cs
xor cl, cl
jecxz @@quit
inc eax
@@quit:
end;

А что тут непонятного? Обычный ассемблер

[komex]

Сообщение от zetrix

А что тут непонятного? Обычный ассемблер

Ну это обычный асамблер для тех, кто его изучал! А я же знаю делфи только по 2 книгам... Так что мне можно так говорить!