Кхм, как подвесить свою программу..

[Человек_Борща]

Всем привет!

Другого названия темы придумать я не смог .

Собственно зачем мне это нужно?
Проверить работоспособность функции, а так-как в системе сложно что-либо подвесить(Вообще не желательно) то, я решил написать то, что при запуске подвесит само себя.

Ну к примеру то же консольное окно.

Собственно как заставить программу повиснуть?

ADDED

Вопрос отвалился:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,Windows;

var
  b:Boolean;

begin
  b:=True;
  while b do
end.

Вешает программу , вешает проц на 50%+

p.s. Почему нет кнопки "Код" в режиме быстрого редактирования сообщения? (Руками теги муторно писать)

[Пепел Феникса]

а можно еще Sleep на большое время поставить.

и кстати, я так полагаю это функция на проверку наличия ответа от окна?
если да то тестируй лучше на окнах

[GunSmoker]

Sleep(Infinite);

[SERG1980]

repeat
until 2>3

[Человек_Борща]

Пепел Феникса, да именно эту функцию и тестирую.. Но на консолях не работает..

Хатя все предложенные варианты вроде и работают. Сейчас на окнах опробую..

[Johnson]

Подвесить процесс надо именно? Или загрузить процессор на максимум?

Ели первое - то

StopProcess(GetCurrentProcessId);

Если проц нагрузить - то попроси его сосчитать чтонить монументальное, Пи посчитать например до N-но знака...

Извиняюсь, StopProcess в моем модуле был... вот его код:

{
 Остановка всех нитей процесса.
 Если останавливается текущий процесс, то вызывающая нить не останавливается.
}
Function StopProcess(ProcessId: dword): boolean;
var
 Snap: dword;
 CurrTh: dword;
 ThrHandle: dword;
 Thread:TThreadEntry32;
begin
  Result := false;
  CurrTh := GetCurrentThreadId;
  Snap := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0);
  if Snap <> INVALID_HANDLE_VALUE then
     begin
     Thread.dwSize := SizeOf(TThreadEntry32);
     if Thread32First(Snap, Thread) then
     repeat
     if (Thread.th32ThreadID <> CurrTh) and (Thread.th32OwnerProcessID = ProcessId) then
        begin
        ThrHandle := OpenThread(THREAD_SUSPEND_RESUME, false, Thread.th32ThreadID);
        if ThrHandle = 0 then Exit;
        SuspendThread(ThrHandle);
        CloseHandle(ThrHandle);
        end;
     until not Thread32Next(Snap, Thread);
     CloseHandle(Snap);
     Result := true;
     end;
end;

Так разморозить:

{ Запуск процесса остановленного StopProcess }
Function RunProcess(ProcessId: dword): boolean;
var
 Snap: dword;
 CurrTh: dword;
 ThrHandle: dword;
 Thread:TThreadEntry32;
begin
  Result := false;
  CurrTh := GetCurrentThreadId;
  Snap := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0);
  if Snap <> INVALID_HANDLE_VALUE then
     begin
     Thread.dwSize := SizeOf(TThreadEntry32);
     if Thread32First(Snap, Thread) then
     repeat
     if (Thread.th32ThreadID <> CurrTh) and (Thread.th32OwnerProcessID = ProcessId) then
        begin
        ThrHandle := OpenThread(THREAD_SUSPEND_RESUME, false, Thread.th32ThreadID);
        if ThrHandle = 0 then Exit;
        ResumeThread(ThrHandle);
        CloseHandle(ThrHandle);
        end;
     until not Thread32Next(Snap, Thread);
     CloseHandle(Snap);
     Result := true;
     end;
end;

Щас пробежался по коду... вроде свой процесс нельзя остановить Используй дополнительное приложение... или вторую нить

На всякий случай - вот юниты с этими функциями: