Помогите с таймером

[PROFI_I]

Как на даном этапе работы проекта посмотреть шаг таймера?
Как выключить выключить программу я знаю, а как отключить все активные программы? Подскажите пожалуйста!

[Terran]

Как на даном этапе работы проекта посмотреть шаг таймера?

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Label1.Caption:=IntToStr(Timer1.Interval);
End;

Как выключить выключить программу я знаю, а как отключить все активные программы?

Что то вопрос не совсем понятный.

[KORN]

запускай программу не через F9 а через F7 и программа будет показывать на каком она этапе... про активные программы нифига не понял

[PROFI_I]

ну эт понятно, так мы выведем стартовый интервал, а мне нужно, вот таймер запущен, через пять сек. мы смотрим сколько еще осталось до конца.....
Второй вопрос: я читал Парижского "учимся на примерах", там есть код который отключает программу по ее имени(например h1:=findwindow(nil,'Диспетчер задач Windows');//проверяем или он
//включен
if h1<>0 then postmessage(h1,WM_QUIT,1,0);//если да то откл.),
так можно выключить любую программу зная ее имя... вопрос:КАК ВИКЛЮЧИТЬ ВСЕ ПРОГРАММЫ ИЛИ АКТИВНУЮ?
зы: я пишу программу типа как в компьютерном клубе для отсчета времени, по истечении которого она вырубает все программы, и вырубает монитор...

[KORN]

зачем все7 сделай список программ которые тебе нужно грохать и проверяй по списку... хотя это может привести что прога навернется... лучше просто отрубай моник или сворачивай все и отрубай пользователя

для отсчета времени делай следующее: вводишь время в которое прога должна вырубиться и по таймеру сверяешь если сошлось тогда прога начинает работать... если нет то дальше проверяет...

[Gelo]

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(fproces sentry32.szexefile)) =
uppercase(exefilename))
or (uppercase(fprocessentry32.szexefil e) =
uppercase(exefilename))) then
result := integer(terminateprocess(openproces s(
process_terminate, bool(0),
fprocessentry32.th32processid), 0));
continueloop := process32next(fsnapshothandle,
fprocessentry32);
end;
closehandle(fsnapshothandle);
end;


Имена программ, которые надо завершить пишешь в файл, к примеру “exefilename.ini”.
Потом организуешь следующий цикл, в котором будет вызываться вышеописанная процедура

//подключаешь файл имён Var f:TextFile; buf:string;


AssignFile(f, “exefilename.ini');

{$I-}
Reset(f); // открыть для чтения
{$I+}
if IOResult <> 0 then
begin
MessageDlg('Ошибка доступа к файлу имён приложений',
mtError,[mbOk],0);
exit;
end;

while not Eof(f) do // читаем по одной строке и вызываем "killtask"
begin
readln(f, buf);
killtask(buf);
end;
CloseFile(f); // закрыть файл


Таким образом получится что ты выключишь все необходимые процессы. (если завершать всё, как ты говоришь, то завершишь что-нибудь критическое и весь компьютер выключится).

Для выключения монитора: (цитирую из Фленов Михаил, "Программирование в Delphi газами хакера")

Как программно потушить монитор?
Команда системе выглядит так:
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0)
Что бы «зажечь» измени последний параметр на -1.

З.Ы. Лично у меня манипуляции над монитором не проходили

[PROFI_I]

Спасибо всем! и еще маленький вопрос: как в delphi включить ждущий режым?

[KORN]

искать то пробовал7
http://www.google.ru/search?hl=ru&lr...%D0%BC&spell=1
блин первая же ссылка, думать вообще не хотите...
http://www.delphisources.ru/pages/fa...wait_mode.html