Скачать: CL | DM;

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

← →
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]

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

---

← →
begin...end ©   (2006-04-07 17:50) [13]

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

---

← →
syte_ser78 ©   (2006-04-07 17:56) [14]

begin...end ©   (07.04.06 17:50) [13]
а shutdown чем плох?

---

← →
LexxX ©   (2006-04-07 18:09) [15]

syte_ser78 ©   (07.04.06 17:56) [14]
а shutdown чем плох?

Только в ХР работает.

---

← →
oldman ©   (2006-04-07 18:12) [16]

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


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

---

← →
Winston [BGMD] ©   (2006-04-07 18:25) [17]

{Небольшое изврашение :))}
{без прав админа нифига невыйдет}
{хотя и с правами админа может невыйти}
{низнаю - я запускал от имени 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); // очень быстро

.......



---

← →
Winston [BGMD] ©   (2006-04-07 18:28) [18]

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.49 MB
Время: 0.033 c