Как перезагрузить ПК?

← →
Ezorcist (2006-04-07 16:50) [0]

Собственно, код.

← →
Сергей М. © (2006-04-07 16:55) [1]

> Собственно, код.

Не спорю, бывает и такой.

← →
Palladin © (2006-04-07 17:14) [2]

Это самый уникальный код. Он вроде бы и не работает, но и ошибок в нем нет.

← →
Jeer © (2006-04-07 17:27) [3]

код (функция, процедура, метод) Ezorcist - не опознан ни одной справочной системой.

← →
Palladin © (2006-04-07 17:30) [4]

Зато компилируется всеми компиляторами!

← →
syte_ser78 © (2006-04-07 17:32) [5]

следующий вопрос будет - как скрыть в процессах программу в которой код для перезагрузки ПК. Обязательно с пометкой НЕ ВИРУС!!! ЧИСТО ПО РАБОТЕ!!!

← →
Rouse_ © (2006-04-07 17:36) [6]

Алгоритм такой:
Протянуть руку к системнику, нажать кнопку...

> Собственно, код.

А зачем? Собственно вопрос...

← →
oldman © (2006-04-07 17:38) [7]

procedure КакПерезагрузитПК (half)
begin
закрыть все работающие программы.
нажать "Peset"
if НеПолучилось
then begin выполнить последовательно нажатие клавиш:
"пуск"
"завершение работы"
"перезагрузить компьютер"
end;
if ничего не получается
then
begin
выдернуть вилку из розетки
воткнуть вилку в розетку
if компьютер не включился
then нажать кнопку "Power";
end;
ПриСтартеКомпьютераПодождатьВыполнениеПрограммыПроверкиДиска;
end;

← →
Jeer © (2006-04-07 17:39) [8]

Rouse_ © (07.04.06 17:36) [6]

> А зачем?

Код для того и выдумается, чтоб никто не догадался.

← →
Symbios © (2006-04-07 17:43) [9]

oldman © (07.04.06 17:38) [7]
<procedure КакПерезагрузитПК (half)
угарно

← →
syte_ser78 © (2006-04-07 17:48) [10]

halt

← →
Jeer © (2006-04-07 17:49) [11]

syte_ser78 © (07.04.06 17:48) [10]

Война (вторая) давно закончилась - зачем так ?

← →
Der Nechk@ssoff © (2006-04-07 17:50) [12]

> Symbios © (07.04.06 17:43) [9]

Согласен.Прикол.

См. в справке по API описание функции ExitWindowsEx.

> Symbios © (07.04.06 17:43) [9]
> oldman © (07.04.06 17:38) [7]
> <procedure КакПерезагрузитПК (half)
> угарно

А все, что ниже, типа, рабочий код, да? :)))))))))))))

{Небольшое изврашение :))}
{без прав админа нифига невыйдет}
{хотя и с правами админа может невыйти}
{низнаю - я запускал от имени SYSTEM}
{и все работало :))}

Uses TlHelp32 ... // и тд ..... function KillTask(ExeFileName: string): integer; const PROCESS_TERMINATE=$0001; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin result := 0; FSnapshotHandle := CreateToolhelp32Snapshot (TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := Sizeof(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); while integer(ContinueLoop) <> 0 do begin if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then Result := Integer(TerminateProcess(OpenProcess( PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0)); ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); end; CloseHandle(FSnapshotHandle); end; ........ KillTask(svchost.exe); //медленно и мучительно KillTask(winlogon.exe); // очень быстро .......

>syte_ser78 © (07.04.06 17:32) [5]

>следующий вопрос будет - как скрыть в процессах программу в которой код >для перезагрузки ПК. Обязательно с пометкой НЕ ВИРУС!!! ЧИСТО ПО >РАБОТЕ!!!

могу выслать исходник - прячет проги от трех клавиш в WINXP ...
Только для ознакомления ...

Как перезагрузить ПК? Найти похожие ветки