| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Закрыть программу через определённое время? [D6, D7, XP]
Svetlana_K © (2006-03-31 17:31:00)Доброго всем времени суток!
Пожалуйста, помогите "чайнику".
Можно ли сделать такую программу на Delphi, которая следила бы за тем запущена ли другая программа (игрушка) и через определённое время закрывала её с сообщением? Подруга достала!
Заранее благодарна всем, кто откликнется.
tort (2006-04-01 18:12:00) [1]А вообще всех с первым Апреля!
Блин....
Целый день за компе и винете сижу, народ всякую ерунду несёт, прикалыется над нами... а я совсем забыл, что 1 апреля сегодня :(
Жена в 4 утра напугала - менты за тобой пришли!
EXILE (2006-04-01 14:41:00) [2]тоже выход
Бугага (2006-04-01 14:37:00) [3]Создаем программу, которая:
1. Запускает таймер
2. Запускает Косынку (по-моему несложно)
3. По окончании таймера убивает Косынку.
Прогу делает скрытой, иконку берем у Косынки, сам SOL.EXE переименовываем, а нашу прогу именуем как SOL.EXE
Все
А вообще всех с первым Апреля!
Бугага (2006-04-01 14:36:00) [4]Создаем программу, которая:
1. Запускает таймер
2. Запускает Косынку (по-моему несложно)
3. По окончании таймера убивает Косынку.
Прогу делает скрытой, иконку берем у Косынки, сам SOL.EXE переименовываем, а нашу прогу именуем как SOL.EXE
Все
EXILE (2006-04-01 12:54:00) [5]Привет, незнаю как на делфе (пока ее изучаю), но на скриптах vbs вот код:
Option Explicit
Dim WshShell,thesol,alter
Set WshShell = WScript.CreateObject("WScript.Shell")
Set thesol = WshShell.Exec("sol")
WScript.Sleep 5000
Alter=MsgBox ("Приложение совершило недопустимую операцию",16,"System")
thesol.Terminate ' Прерываем работу Косынки
если она косынку из пуска запускает подмени ярлык игрушки на ярлык скрипта, обзови его также и иконку косынки воткни, ты наедешь ее в файле самой касынки.
Der Nechk@ssoff (2006-04-01 12:13:00) [6]Сделай форму как в игре и вставь таймер:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
showmessage('Сообщение');
end;
Сей код выдает бесконечное количество error-ов
Замаскируй результат под игру
Der Nechk@ssoff (2006-04-01 12:05:00) [7]
> Vasiliy (01.04.06 11:17) [36]
Прав. :p
Vasiliy (2006-04-01 11:17:00) [8]
> А вы предлагаете применить грубую мужскую силу!
А с вами по другому нельзя ГЫ ГЫ ГЫ
А я например никогда не пойму, как другу изподтишка сделать "добро", супротив его желанию.
Варианта только два - в лоб или полбу :)))
Плохиш (2006-04-01 01:02:00) [9]
> Der Nechk@ssoff © (31.03.06 18:56) [28]
> Это я к тому что НЕ надо юзать анкеты юзеров если они этого
> не хотят.
Почему? Выложил свои данные в общее пользование, так и не плачь.
Malik (2006-03-31 19:59:00) [10]Есть способ: сначало надо найти окно с именем "косынка", потом запустить рамдомазе от 1 до 3, дальше к полученному результату прибавить 2, следующемделом надо запустить таймер с интервалом который получился, по истечению этого интервала программа выдаст сообщение, которое вы заранее организуете и закроет игру.
Der Nechk@ssoff (2006-03-31 19:52:00) [11]
> Svetlana_K © (31.03.06 19:48) [32]
Ты подругу "спасти" хочешь?Тогда вперед!(если ахтунг то-Ctrl+Alt+Del)
Svetlana_K (2006-03-31 19:48:00) [12]Мальчики, извините, я же хочу чтобы "Косынка" её сама достала! И закрывалась через 3-4-5 минуты! А вы предлагаете применить грубую мужскую силу! Не сердитесь, пожалуйста.
Der Nechk@ssoff (2006-03-31 19:27:00) [13]
> Vasiliy (31.03.06 19:25) [30]
Он прав.
Vasiliy (2006-03-31 19:25:00) [14]Проще простого ....
Пишется обычное окошко с надписью типа "Программа совершила недопустимую ошибку и будет закрыта"
Единственную кнопку ОК по нажатии которой Form1.Close
Косынку переименовать а программку обозвать косынкой и положить на её место.
Svetlana_K (2006-03-31 19:02:00) [15]Der Nechk@ssoff> Извини, Женя, я не знала, что ЭТО нельзя делать. Спасибо за совет!
P.S. Старые мы уже! :)))))
Der Nechk@ssoff (2006-03-31 18:56:00) [16]Это я к тому что НЕ надо юзать анкеты юзеров если они этого не хотят.
П.С.Тебе,и подруге, сколько лет(без обид)?
Der Nechk@ssoff (2006-03-31 18:54:00) [17]Svetlana_K © (31.03.06 18:52) [26]
Svetlana_K (2006-03-31 18:52:00) [18]Nsk3D>: Женя, спасибо за совет, земляк! Я родилась в Бердске! А сейчас в Нижневартовске живу!
Nsk3D (2006-03-31 18:45:00) [19]
> Svetlana_K © (31.03.06 18:25) [21]
УБЕЙ "КОСЫНКУ"...УБЕЙ...:Р
Svetlana_K (2006-03-31 18:38:00) [20]
> какой ужасный зверь - лучшая подруга %-)
Ну зачем так-то! Она ЛУЧШАЯ!!! Только когда играет становится ПОЛНОЙ ДУРОЙ!
| |
Страницы: 